program tam_giac;
uses crt;
var a, b, c, h, cv : integer;
      s : real;
begin
clrscr;
write('nhap do dai canh a :');readln(a);
write('nhap do dai canh b :');readln(b);
write('nhap do dai canh c :');readln(c);
write('nhap chieu cao cua canh a :');readln(h);
cv := a + b + c;
s := 0.5 *a * h;
writeln('chu vi tam giac la :', cv);
writeln('dien tich tam giac la :', s:4:2);
readln
end.

uses crt;

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

begin

clrscr;

writeln ('Ho va ten:....');

writeln ('So hieu:....');

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

write ('Nhap b: '); readln (b);

write ('Nhap c: '); readln (c);

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

p:=a+b+c;

s:=a*h/2;

       writeln ('Chu vi cua tam giac la: ',p);

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

readln;

end.

Bình luận:

Các biến a, b, c, h lần lượt là ba cạnh của tam giác và chiều cao tương ứng cạnh a. Biến p được truyền vào chu vi, biến s được truyền vào diện tích, ta cũng có thể bỏ hai biến này, thay vào đó thì đổi hai dòng:

       writeln ('Chu vi cua tam giac la: ',p);

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

thành:

       writeln ('Chu vi cua tam giac la: ',a+b+c);

        writeln ('Dien tich cua tam giac la: ',a*h/2:0:0); //:0:0 cho dep ay ma

Khi đó ta bỏ khai báo biến p và s, cx bỏ luôn những gì liên quan đến p và s

Lưu ý: Biến s khai báo là real vì trong dòng ta truyền giá trị s:=a*h/2; đây là một số thực nên cần khai báo v