Viết chương trình pascal tính chu vi, diện tích hình thang và chu vi diện tích hình tròn giúp. Mink vs các bạn ơi

Question

Viết chương trình pascal tính chu vi, diện tích hình thang và chu vi diện tích hình tròn giúp. Mink vs các bạn ơi

in progress 0
Thu Giang 5 years 2021-04-29T05:47:46+00:00 3 Answers 677 views 0

Answers ( )

    0
    2021-04-29T05:49:45+00:00

    a/Program Chu_vi_dien_tich_hinh_thang

    Var a, b, c, d, h, S, P : Real;

    Begin

    writeln (‘nhap a’);

    readln (a);

    writeln (‘nhap b’);

    readln (b);

    writeln (‘nhap c’);

    readln (c);

    writeln (‘nhap d’);

    readln (d);

    writeln (‘nhap h’);

    readln (h);

    P = a + b + c + d

    S = (a + b ) * h / 2

    writeln ( ‘Chu vi cua hinh thang la, P : 3 : 2);

    writeln ( ‘Dien tich cua hình thang la, S : 3 : 2);

    readln;

    readln

    End.

    b/

    Program CHU_VI_Hinh_Tron;
    Uses Crt;
    Var r,dt,cv:real;
    Begin
    Clrscr;
    Writeln (‘Nhap ban kinh R=’);readln(r);
    dt:=pi*r*r;
    cv:=2*pi*r;
    Writeln(‘Dien tich hinh tron la:’,dt:6:2);

    Writeln(‘Chu vi hinh tron la:’,cv:6:2);
    Readln;
    End.

     

    1
    2021-04-29T05:49:46+00:00

    Program CVDT;
    Uses crt;
    Var a,b,c,d,e: real;  k:byte;
    Begin
            Clrscr;
            Write(‘Nhap k (1-2): ‘); Readln(k);
            If k=1 then
            Begin
                    Write(‘Nhap do dai 2 day: ‘); Readln(a,b);
                    Write(‘Nhap do dai 2 canh ben: ‘); Readln(c,d);
                    Write(‘Nhap chieu cao: ‘); Readln(e);
                    Write(‘Chu vi la: ‘,a+b+c+d:5:2);
                    Writeln;
                    Write(‘Dien tich la: ‘,(a+b)*e/2:5:2);
            End
            Else
            Begin
                    Write(‘Nhap do dai ban kinh: ‘); Readln(a);
                    Write(‘Chu vi la: ‘,a*2*3.14:5:2);
                    Writeln;
                    Write(‘Dien tich la: ‘,a*a*3.14:5:2);
            End;
            Readln
    End.

    1
    2021-04-29T05:49:54+00:00

    Để tìm câu trả lời chính xác các em hãy tham khảo chu vi hình thang các nguồn hoc24.vn, lazi.vn, hoidap247.com để thầy cô và các chuyên gia hỗ trợ các em nhé!

Leave an answer

Browse

Giải phương trình 1 ẩn: x + 2 - 2(x + 1) = -x . Hỏi x = ? ( )