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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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

   Bình luận