hãy viết 1 chương trình Pascal hoàn chỉnh để tính diện tích của hình hình tam giác
hãy viết 1 chương trình Pascal hoàn chỉnh để tính diện tích của hình hình tam giác
By Margaret
By Margaret
hãy viết 1 chương trình Pascal hoàn chỉnh để tính diện tích của hình hình tam giác
Program dthtg;
Uses crt;
Var a, h, S: real;
Begin
Clrscr;
Write(‘Canh bat ki cua tam giac la: ‘); Readln(a);
Write(‘Chieu cao tuong ung la: ‘); Readln(h);
S := (a*h)/2;
Writeln(‘Dien tich hinh tam giac la: ‘,S:10:2);
Readln;
End.
Program Dien_Tich_Tam_Giac;
Uses crt;
Var a, h:i nteger; s:real;
begin
writeln (‘nhap do dai mot canh:’);
readln (a);
writeln (‘nhap chieu cao tuong ung:’);
readln (h);
s:=1/2*a*h;
writeln (‘dien tich hinh tam giac=’,S:4:2);
readln
end.