Bài 1,Viết chương trình tính chu vi và diện tích hình tam giác khi biết cạnh đáy a và chiều cao h.Biết a,h là số thực (khai báo thêm cạnh b,c) Bài 2,Viết chương trình Pascal tính tổng của 4 số a ,b,c,d in ra màn hình tổng hai số đó ?(Với a và b là 4 số nguyên bất kỳ được nhập từ bàn phím)

Bài 1

program tamgiac;

var a,h : real;

      b,c : integer;

begin

readln(a,b,c,h);

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

write(' Dt tam giac là :', (a+h)/2)

readln

end.

Bài 1 :

uses crt;

var a, b, c, h : real;

begin

clrscr;

write('Nhap 3 canh tam giac, chieu cao : ');

readln(a, b, c, h);

writeln('Chu vi : ', (a + b + c) : 2 : 2);

writeln('Dien tich : ', (a * h / 2) : 2 : 2);

readln

end.

Bài 2 :

uses crt;

var a, b, c, d : integer;

begin

clrscr;

write('Nhap 4 so a, b, c, d : ');

readln(a, b, c, d);

writeln('Tong 4 so : ', a + b + c + d);

readln

end.