* Mô tả thuật toán :

- Bước 1 : nhập ba cạnh a, b, c

- Bước 2 : p ← (a + b + c) / 2

- Bước 3 : s ← sqrt(p * (p - a) * (p - b) * (p - c))

- Bước 4 : xuất giá trị s

- Bước 5 : kết thúc

* Viết chương trình :

uses crt;

var a, b, c : integer; p, s : real;

begin

clrscr;

write('nhap ba canh a, b, c :');readln(a, b, c);

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

s := sqrt(p * (p - a) * (p - b) * (p - c));

writeln('dien tich tam giac :', s:3:1);

readln

end.

Mô tả thuật toán:

B1: nhập chiều cao và cạnh a

B2: S<--(a*h)/2

B3: Xuất ra màn hình S

B4: Kết thúc

Vt chg trình:

uses crt;

var a,h,S:integer;

begin

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

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

S:=(a*h)/2;

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

readln;

end.