Question

[Dương Phương Trà]

ĐỀ: Viết thuật toán, chương trình.

- nhập vào 3 cạnh của tam giác ( VD: a,b,c)

-Tính chu vi và diện tích của tam giác đó.

Answer 1

[Viên Tiểu Mộng]

program tam_giac;

uses crt;

var a,b,c,p,S:real;

begin

clrscr;

write('nhap canh a:'); readln(a);

write('nhap canh b:'); readln(b);

write('nhap canh c:'); readln(c);

p:=(a+b+c)/2

S:=(p*(p-a)*(p-b)*(p-c));

writeln('chu vi hinh tam giac la:',p:10:2);

writeln('dien tich hinh tam giac la:',S:10:2);

readln;

end.

Answer 2

[Nguyễn Xạ Điêu]

Program nhu_cai_l;

User crt;

Var

a , b , c , h , S , P : Real ;

BEGIN

Writeln (' Nhap do dai 3 canh cua tam giac : ') ;

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

Write (' b = ') ; Readln ( b ) ;

Write (' c = ') ; Readln ( c ) ;

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

S:=1/2*a*h;

P:=a+b+c;

Writeln (' Chu vi tam giac do la:’,P) ;

Writeln (' Dien tich tam giac do la:’,S) ;

Readln

End.