Viết lệnh khai báo a) Tính diện tích S của hình tam giác với độ dài một cạnh a và chiều cao tương ứng h (a và h là các số tự nhiên được nhập vào từ bàn phím). b) Tính kết quả c của phép chia lấy phần nguyên và kết quả d của phép chia lấy phần dư của hai số nguyên a và b.

a

Program Tinh_S;
Var
a,h,S: real;
begin
Write('nhap vao canh tam giac'); readln(a);
Write('nhap vao chieu cao'); readln(h)

b

Program tinhketqua;

Var a,b,c,d : integer;

Begin

Write(‘Nhap hai so a,b :’);

Readln (a,b);

a)

=> Công thức tính diện tích tam giác : S = a * h * 1/2

=> S là số thực

=> Kiểu dữ liệu số thực : real;

=> Khai báo : Var a, h, S : real;

b) 

=> Phép chia lấy phần nguyên : div

=> Phép chia lấy phần dư : mod

=> mod và div chỉ được sử dụng với kiểu nguyên

=> a, b, c, d là số nguyên

=> Khai báo : Var a, b, c, d : integer;