Viết chương trình tính diện tích S của hình tam giác với độ dài một cạnh a và chiều cao tương ứng h (a và h là các số tự nhiên được nhập vào từ bàn phím ) Ai giỏi Tin giải giúp mình
2 câu trả lời
Program iq_vo_cuc;
Var
a,h,S: real;
Begin
Write('Nhap canh tam giac'); readln(a);
Write('Nhap chieu cao'); readln(h)
S: = (a*h)/2;
Write('Dien tich hinh tam giac la:',h);
Readln
End.
uses crt;
var a,h:longint; S:real;
begin
clrscr;
write('Nhap a: ');readln(a);
write('Nhap h: ');readln(h);
S:=1/2*a*h;
writeln('Dien tich hinh tam giac: ',S:0:4);
readln
end.
Câu hỏi trong lớp
Xem thêm