Bài 1:

Program tamgiac;

Uses crt;

Var a,h:real;

Begin

Clrscr;

Write('a=');

Readln(a);

Write('h=');

Readln(h);

Writeln('Dien tich hinh tam giac:',(a*h)/2:6:2);

Readln

End.

Bài 2:

Program phepchia;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('a=');

Readln(a);

Write('b=');

Readln(b);

If a>b then 

  Begin

  Writeln('a div b=',a div b);

  Writeln('a mod b=', a mod b);

  End

Else

  Begin

  Writeln('b div a=',b div a);

  Writeln('b mod a=', b mod a);

  End;

  Readln

End.

Câu 1:

Program dien_tich_tamgiac;

Var a , h ,S: real;

Begin

Write ('nhap a ='); Readln (a);

Write ('nhap chieu h ='); Readln (h);

S=1/2*a*h)

;Writeln ('dien tich tam giac la:',S:4:2);

Readln;

End.

Câu 2: Bạn học lệnh if, until chưa, nếu chưa có thì dùng cách 1, còn có hc rồi thì dùng cách 2, mà dùng cách 2 tốt hơn cách 1 vì trong phép chia, mẫu số không được có số 0, mà cách một vẫn cho b=0 vẫn đc nên hơi sai sai)

Cách 1:

Program tinhtoan;

Var a,b,c,d : integer;

Begin

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

Readln (a,b);

c:=a div b;

d:=a mod b;

Writeln(‘ Phan nguyen cua a va b la :’,c);

Writeln(‘ Phan du cua a va b la :’,d);

Readln;

End.

Cách 2:

uses crt;

var a,b,c,d:integer;

begin

clrscr;

write('nhap so bi chia:'); readln(a);

repeat

write('nhap so chia:'); readln(b);

if b=0 then writeln('ban da nhap sai, yeu cau ban nhap lai');

until b<>0;

c:=a div b;

d:=a mod b;

writeln('thuong cua phep chia ',a,' cho ',b,' la: ',c);

writeln('so du cua phep chia ',a,' cho ',b,' la: ',d);

readln;

end.