1. Cho 2 số nguyên a,b . Viết hàm (function) tính chu vi và diện tích hình chữ nhật 2. Cho 2 số nguyên a,b . Viết hàm (function) tính chu vi và

0 bình luận về “1. Cho 2 số nguyên a,b . Viết hàm (function) tính chu vi và diện tích hình chữ nhật 2. Cho 2 số nguyên a,b . Viết hàm (function) tính chu vi và”

1. 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.
   2/ Đề hơi lag :V Hình vuông có 4 cạnh bằng nhau nhé.

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

   Bình luận