* Xác định bài toán :

- Input : chiều cao h, cạnh đáy a

- Output : diện tích tam giác

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

- Bước 1 : nhập a, h 

- Bước 2 : s ← 0.5 * a * h;

- Bước 3 : in ra màn hình giá trị s

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

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

program sksk;

uses crt;

var a, h, s : real;

begin

clrscr;

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

write('nhap chieu cao tuong ung :');readln(h);

s := 0.5 * a * h;

writeln('dien tich tam giac la :', s:8:2);

readln

end.

XĐ:

Inp: nhập cạnh đáy và chiều cao

Out: diện tích tam giác

Thuật toán:

B1: nhập cạnh đáy và chiều cao

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 canh day:');readln(a);

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

S:=(a*h)/2;

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

readln;

end.