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
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
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.
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.