viết chương trình con tính chu vi và diện tích : -Hình Vuông -Hình Chữ Nhật -Hình Tam Giác chia làm 3 phần nha mọi người tặng điểm cho câu trả lời đầy

0 bình luận về “viết chương trình con tính chu vi và diện tích : -Hình Vuông -Hình Chữ Nhật -Hình Tam Giác chia làm 3 phần nha mọi người tặng điểm cho câu trả lời đầy”

1. Procedure HV(a: extended);

   Begin

             Writeln(‘Chu vi: ‘,a*4:0:2);

             Write(‘Dien tich: ‘,a*a:0:2);

   End;

   Procedure HCN(a,b: extended):;

   Begin

             Writeln(‘Chu vi: ‘,(a+b)/2:0:2);

             Write(‘Dien tich: ‘,a*b:0:2);

   End;

   Procedure HTG(a,b,c: extended);

   Var s,p: extended;

   Begin

             p:=(a+b+c)/2;

             s:=sqrt(p*(p-a)*(p-b)*(p-c));

             Writeln(‘Chu vi: ‘,2*p:0:2);

             Write(‘Dien tich: ‘,s:0:2);

   End;

   Bình luận

2. chương trình tính diện tích, chu vi hình vuông (sử dụng chương trình con)

   program tinhdientich;
   procedure hv(var s, cv, a: real);

           begin
           s:=a*a;

           cv:=4*a;
           end;

   begin

   write(‘nhap a = ‘);

   readln(a);

   write(‘dien tich hinh vuong la=’, ‘s’);

   readln(s);

   writeln(‘chu vi hinh vuong la=’, ‘cv’)

   readln(cv);

   readln

   end.

   chương trình tính diện tích, chu vi hình chữ nhật (sử dụng chương trình con) 

   program tinh dien tich;     

   procedure CN(var a, b, s, cv: real);
           begin
           s:= a*b;

           cv:=(a+b)*2;

           end;
   begin

   write(‘nhap a, b=’);

   readln(a);

   readln(b);

   writeln(‘dien tich hinh chu nhat=’, ‘s’);

   readln(s);

   writeln(‘chu vi hinh chu nhat=’, ‘cv’);

   readln(cv);

   readln

   end.

   chương trình tính diện tích, chu vi hình tam giác (sử dụng chương trình con) 

   program tinh dien tich;

   procedure TG(var a, b, cv, s: real);

           begin
           cv:=(a+b+c)/2;
           s:=sqrt(cv*(cv-a)*(cv-b)*(cv-c));
   begin
   write(‘nhap a =’);

   readln(a);
   write (‘nhap b =’);

   readln(b);

   write(‘nhap c =’);

   readln(c);
   writeln(‘Chu vi tam giac:=’, ‘cv’);

   readln(cv);
   writeln(‘Dien tich tam giac:’, ‘s’);

   readln(s);

   readln
   end.

   hình tròn

   program tinh dien tich;

   procedure ht(var s, cv, r: real);
          begin
          cv:=3,14*r*r;

          s:=2*3,14*r;

          end;

   begin

   write(‘nhap r=’);

   readln(r);

   writeln(‘dien tich hinh tron =‘, ‘s’);

   readln(s)

   writeln(‘chu vi hinh tron =’, ‘cv’);

   readln(cv);

   readln
   end;

   Bình luận