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