Viết chương trình tính diện tích và chu vi của hình bình hành ABCD với độ dài các cạnh a, b, h được nhập từ bàn phím. hepllllllllllllllllllllllllll
2 câu trả lời
Program BT;
Uses crt;
Var a,b,h,s,q: Real;
Begin
Clrscr;
Write('Hay nhap do dai a,b,h: '); readln(a,b,h);
s:=a*h;
q:=(a+b)*2;
Writeln('Dien tich la: ',s:4:2);
Writeln('Chu vi la: ',q:4:2);
Readln;
End.
uses crt;
var a,b,h:integer;
P,S:real;
begin
write('Nhap canh a: ');readln(a);
write('Nhap canh b: ');readln(b);
P:=(a+b)*2;
S:=a*h;
writeln('Chu vi hbh la: ',P);
writeln('Dien tich hbh la: ',S);
readln;
end.
Câu hỏi trong lớp
Xem thêm