Viết 2 ctr con tìm chu vi và diện tích của 1 hcn áp dụng các ctr con đó để tìm chu vi và S của n hình chữ nhật với chiều dài và chiều rộng được nhập t

0 bình luận về “Viết 2 ctr con tìm chu vi và diện tích của 1 hcn áp dụng các ctr con đó để tìm chu vi và S của n hình chữ nhật với chiều dài và chiều rộng được nhập t”

1. program Mang;
   uses crt;
   var   a,b: array[1..10000] of integer;
            n,i: integer;
        
   function dientich(a,b: integer):integer;
   begin
         dientich:=a*b;
   end;

   function chuvi(a,b: integer):integer;
   begin
         chuvi:=(a+b)*2;  
   end;

   begin
          clrscr;
         
          write(‘Nhap so hinh chu nhat= ‘);readln(n);
         
          for i:=1 to n do
              begin
             
                 write(‘Chieu dai hcn thu ‘,i,‘: ‘);readln(a[i]);
                
                 write(‘Chieu rong hcn thu ‘,i,‘: ‘);readln(b[i]);
                
              end;
          
           writeln(‘———————-‘);
             
           for i:=1 to n do
          
                begin
                   
      writeln(‘Dientich hcn thu ‘,i,‘: ‘,dientich(a[i],b[i]));
          
           writeln(‘Chuvi hcn thu ‘,i,‘: ‘,chuvi(a[i],b[i]));
         
                end;
     readln;
   end.

   Bình luận

2. var d, r: 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 chieu dai va chieu rong: ‘);

       Readln(d, r);

       Writeln(‘chu vi: ‘, cv(d, r));

       Write(‘dien tich: ‘, dt(d, r));

       Readln

   End.

   Bình luận