Viết chương trình tính chu vi và diện tích hình chữ nhật (sử dụng chương trình con – Hàm hoặc Thủ tục. Giúp mình với ạ!!! ( dùng pascal ạ )

0 bình luận về “Viết chương trình tính chu vi và diện tích hình chữ nhật (sử dụng chương trình con – Hàm hoặc Thủ tục. Giúp mình với ạ!!! ( dùng pascal ạ )”

1. uses crt;
   var a,b:real;
   function cv(x,y:real):real;
   begin
      cv:=(x+y)*2;
   end;
   function dt(x,y:real):real;
   begin
      dt:=a*b;
   end;
   begin
      write(‘Nhap a: ‘); readln(a);
      write(‘Nhap b: ‘); readln(b);
      writeln;
      write(‘Chu vi hinh chu nhat la: ‘,cv(a,b):4:2);
      writeln;
      write(‘Dien tich hinh chu nhat la: ‘,dt(a,b):4:2);
      readln
   end.

   Bình luận

2. program tinh;
   uses crt;
   var x,y : integer;
   function cv(a,b : integer) : integer;
   begin cv:=(a+b)*2; end;
   function dt(a,b : integer) : integer;
   begin dt:=a*b; end;
   begin clrscr;
   write(‘Nhap hai canh hinh chu nhat :’);
   readln(x); readln(y);
   writeln(‘Chu vi hinh chu nhat la :’,cv(x,y));
   writeln(‘Dien tich hinh chu nhat la :’, dt(x,y));
   readln
   end.

   Bình luận