Đề bài : Viết chương trình Pascal nhập vào sốđo ba cạnh tam giác là a,b,c và chiều cao h của cạnh a.Tính chu vi và diện tích của tam giác và in kết quảra màn hình. (a,b,c,h là sốnguyên dương).
2 câu trả lời
program tam_giac;
uses crt;
var a, b, c, h, cv : integer;
s : real;
begin
clrscr;
write('nhap do dai canh a :');readln(a);
write('nhap do dai canh b :');readln(b);
write('nhap do dai canh c :');readln(c);
write('nhap chieu cao cua canh a :');readln(h);
cv := a + b + c;
s := 0.5 *a * h;
writeln('chu vi tam giac la :', cv);
writeln('dien tich tam giac la :', s:4:2);
readln
end.
Program TAMGIAC;
Uses crt;
Var a,b,c,h,p:integer;
S:real;
Begin
Clrscr;
Write('a = ');readln(a);
Write('b = ');readln(b);
Write('c = ');readln(c);
Write('h = ');readln(h);
p:=a+b+c;
s:=(a*h)/2;
Writeln('Chu vi tam giac = ',p);
Writeln('Dien tich tam giac = ',s:2:1);
Readln;
End.