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