Share
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
Lost your password? Please enter your email address. You will receive a link and will create a new password via email.
Answers ( )
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.
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.
Để 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é!