Viết chương trình tính diện tích đường tròn khi biết bán kính:

Program CT_DT_HT;

Uses Crt;

Var a : real;

       b : integer;

Begin

Clrscr;

Writeln (‘nhap so nguyen a =’);

Read (a);

b := a*3,14;

Writeln (‘DT hinh tron la ‘,b);

Readln;

End.

Viết chương trình giải phương trình ax +b=0:

Program Phuong_trinh_bac_nhat;
Uses crt;
Var a,b : real;
Begin
Clrscr;
Write ('Nhap so a:'); readln(a);
Write ('Nhap so b:'); readln(b);
If (a<>0) then writeln ('Nghiem cua phuong trinh la:', -b/a);
If (a=0) and (b=0) then writeln ('Phuong trinh co vo so nghiem');
If (a=0) and (b<>0) then writeln ('Phuong trinh vo nghiem');
Readln
End.

Viết chương trình tính S đường tròn khi biết R.

uses crt;

var r,s: real;

begin

clrscr;

write ('nhap R: ');  readln (r);

s:=r*2*Pi;

writeln ('S= ',s:1:2);

readln;

end.

Viết chương trình giải phương trình ax +b=0.

uses crt;
var a,x,b,i: integer;
begin
clrscr;
write ('nhap a: ');  readln (a);
write ('nhap b: ');  readln (b);
write ('cac gia tri cua x la: ');
if a>b then
for i:=1 to a do
if (a*x+b=0) then write(i,'  ')
else
for i:=1 to b do
if (a*x+b=0) then write(i,'  ');
readln;
end.

`text{Code đã test trên Pascal}`