Question

viet chuong trinh pascal de tinh dien tich hinh tam giac

Answer 1

Program Dien_tich_tam_giac;
Uses Crt;
Var
a,b,c:Integer;
p,s:Real;
Begin
Clrscr;
Writeln('DIEN TICH TAM GIAC');
Writeln('------------------');
Write('-Nhap so thu nhat: ');
Readln(a);
Write('-Nhap so thu hai : ');
Readln(b);
Write('-Nhap so thu ba : ');
Readln(c);
If (a+b>c) And (b+c>a) And (c+a>b) Then
Begin
Writeln('+Dung la Tam giac');
p:=0.5*(a+b+c);
s:=Sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('+Dien tich= ',s:10:2);
End .

Answer 2

Có nhiều công thức tính diện tích tam giác khác nhau. Ở đây bạn phải cho biết tam giác thuộc loại hình tam giác cân , tam giác thường , tam giác vuông , hay tam giác đều.

Answer 3

Program hotrotinhoc;

var a,b : integer;

begin

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

write('b='); readln(b);

write('Dien tich cua tam giac :',(1/2*a*b):2:2));

readln

end.

Answer 4

var a,b,s:integer;

begin

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

write('b=');readln(b);

s:=1/2*a*b;

writeln('Dien tich tam giac la: ',s);

readln;

end.

Chỗ s bạn tự cho tỉ lệ vô nhá tùy ý của bạn