Question

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 )

Answer 1

Program tam_giac;

uses crt;

var a,h: real;

begin

clrscr;

write('nhap a='); readln(a);

write('nhap h='); readln(h);

writeln('dien tich tam giac =' ,1/2*a*h:4:2);

readln;

end.

Answer 2

Program dien_tích_tamgiac;

Var a , h . Read;

Begin

Write ('nhap a ='); Readln (a);

Write ('nhap chieu h ='); Readln (h);

Writeln ('dien tich tam giac la:'S=1/2*a*h:4:2);

Readln;

End.

Answer 3

tam giác gì bạn ơi

Answer 4

Program diện tích tam giác;

Var a , h . Read;

Begin

Write ('nhap a ='); Readln (a);

Write ('nhap chieu h ='); Readln (h);

Writeln ('dien tich tam giac la:'S=1/2*a*h:4:2);

Readln;

End.

Answer 5

Program dien_tích_tamgiac;

Var a , h . Read;

Begin

Write ('nhap a ='); Readln (a);

Write ('nhap chieu h ='); Readln (h);

Writeln ('dien tich tam giac la:'S=1/2*a*h:4:2);

Readln;

End.

Answer 6

program andanh;

uses crt;

var a,h,s: real;

begin

clrscr;

write('Do dai 1 canh: ');readln(a);

write('Chieu cao tuong ung: ');readln(h);

s:= (a * h) / 2;

write('Dien tich hinh tam giac la: ',s:0:4);

readln

end.