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

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 đủ nhất…

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

Viết một bình luận