tin 8 [pascal]

orangery

Học sinh tiến bộ
Thành viên
25 Tháng mười hai 2015
422
357
229
19
Quảng Nam
$\color{green}{\text{C-o-s-mos}}$
Viết chương trình tính chu vi và diện tích của hình thoi
Program baitap;
uses crt;
var a,b,c,d,e:real;
begin
clrscr;
write('Nhap do dai canh: ');readln(a);
b:=a*4;
writeln('Chu vi hinh thoi la: ',b:2:2);
write('Do dai duong cheo 1 la: ');readln(c);
write('Do dai duong cheo 2 la: ');readln(d);
e:=1/2*c*d;
write('Dien tich hinh thoi la: ',e:2:2);
readln;
end.
 
  • Like
Reactions: Lê Mạnh Cường
Top Bottom