cách lập trình tính diện tích hình vuông trong pascal

0 bình luận về “cách lập trình tính diện tích hình vuông trong pascal”

1. Program dien_tich_hinh_vuong;

   Uses crt;

   Var a,S:real;

   Begin

   clrscr;

   Write(‘canh a=’);Readln(a);

   Write(‘S=’);Readln(S);

   S:=a*a;

   Readln

   End.

   Bình luận

2. program dientich;

   uses crt;

   var S,a:integer;

   begin

   writeln(‘nhap a’);

   readln(a);

   S:=a*a;

   writeln(‘ketqua’,S);

   readln;

   end.

   Bình luận