Viết chương trình bằng Free Pascal Viết chương trình in ra màn hình diện tích S của hình chữ nhật biết chiều dài a và chiều rộng b được nhập từ bàn ph

0 bình luận về “Viết chương trình bằng Free Pascal Viết chương trình in ra màn hình diện tích S của hình chữ nhật biết chiều dài a và chiều rộng b được nhập từ bàn ph”

1. Program Chu_nhat;
   uses crt;
   Var a, b, S: real;
   Begin      

   Write(‘Nhap chieu dai:’); readln(a);      
   Write(‘Nhap chieu rong:’); readln(b);      

   S := a*b;          
    writeln(‘Dien tich hinh chu nhat la:’,S);      
    readln;
   end.

   chúc bạn học tôt, cho mình xin ctlhn nha

   Bình luận

2. program Hinh_chu_nhat;

   uses crt;

   var a,b,S,P: integer;

   begin

   writeln(‘Nhap chieu dai:’);

   readln(a);

   writeln(‘Nhap chieu rong:’);

   readln(b);

   P:=((a+b)*2);

   S:=(a*b);

   writeln(‘Chu vi la:’,P);

   writeln(‘Dien tich la:’,S);

   readln

   End.

   Bình luận