ai giỏi tin thì viết dùm mình 1 chương trình pascal về tính chu vi, diện tích hình chữ nhật dùng lệnh if then và else vs
ai giỏi tin thì viết dùm mình 1 chương trình pascal về tính chu vi, diện tích hình chữ nhật dùng lệnh if then và else vs
By Peyton
program Tinh_Chu_Vi_Dien_Tich_HV
var a,s,c:longint;
begin
write(‘Nhap vao do dai canh hinh vuong: ’)
read(a);
if a>0 then
begin
c:=4*a;
s:=a*a;
writeln(‘Chu vi hinh vuong co canh dai ’ ,a, ‘la: ’,c);
writeln(‘Dien tich hinh vuong co canh dai ’ ,a, ‘la: ’,s)
end
else
write(Du lieu sai, khong the thuc hien duoc! ’);
readln
end.
Program Tinh_Chu_Vi_Dien_Tich_HV
var a,s,c:longint;
begin
write(‘Nhap vao do dai canh hinh vuong: ’)
read(a);
if a>0 then
begin
c:=4*a;
s:=a*a;
writeln(‘Chu vi hinh vuong co canh dai ’ ,a, ‘la: ’,c);
writeln(‘Dien tich hinh vuong co canh dai ’ ,a, ‘la: ’,s)
end
else
write(Du lieu sai, khong the thuc hien duoc! ’);
readln
end.
cho 5 sao