Những bài tập dành cho lập trình pascal

Bài 1: N mỗi số chiếm 4 vị trí và 15 số trên 1 dòng.(Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các sỗ chẵn từ 0 Lời giải:
Code:
uses crt; {khai bao` thu vien crt}
var n,i,dem:integer;
BEGIN
clrscr;{ cau lenh xoa man hinh};
write(`Nhap n: `);readln(n);
dem:=0;
for i:=1 to n do
begin
if i mod 2=0 then
begin
write(i:4);
dem:=dem+1;
end;
if dem=15 then
begin
dem:=0;
writeln;{in duoc 15 so thi xuong dong};
end;
end;
readln
END.
Bài 2: Nhập vào 2 số nguyên dương a và b. + Tính và in ra màn hình tổng, hiệu, tích, thương và UCLN của 2 số đó + Tính tổng các ước số dương của |a+b| Lời giải:
Code:
uses crt;
var a,b,tg,i,tong:integer;
function tinh(x,y:integer):integer;
begin
tg:= x mod y;
if tg=0 then tinh:=y else tinh:=tinh(y,tg);
end;
BEGIN
clrscr;
write(`Nhap a: `);readln(a);
write(`Nhap b: `);readln(b);
tong:=1;
for i:=2 to abs(a+b) do
if (abs(a+b) mod i =0) then tong:=tong+i;
writeln(`Tong 2 so la: `,a+b);
writeln(`Hieu 2 so la: `,a-b);
writeln(`Tich 2 so la: `,a*b);
writeln(`Thuong 2 so la: `,a/b:0:4);
writeln(`UCLN 2 so la: `,tinh(a,b));
writeln(`Tong cac uoc cua `,a+b,` la: `,tong);
readln
END.
Bài 3: Lập chương trình nhập vào độ dài các cạnh của tam giác rồi thực hiện : + Tính chu vi, diện tích, 3 đường cao của tam giác. + Kiểm tra xem tam giác đó có là tam giác cân hoặc vuông không? Lời giải:
Code:
uses crt;
var a,b,c,cv,dt,p: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);
cv:=a+b+c;
p:=(a+b+c)/2;
dt:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(`Chu vi tam giac la: `,cv:0:4);
writeln(`Dien tich tam giac la: `,dt:0:4);
writeln(`Duong cao canh thu 1 la: `,dt*2/a:0:4);
writeln(`Duong cao canh thu 2 la: `,dt*2/b:0:4);
writeln(`Duong cao canh thu 3 la: `,dt*2/c:0:4);
if (a=b) or (a=c) or(b=c) then writeln(`Tam giac can`);
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=b*b+a*a)then
writeln(`Tam giac vuong`);
readln
END.
Bài 4: Lập trình giải phương trình bậc 2: Lời giải:
Code:
uses crt;
var a,b,c,x1,x2,d:real;
BEGIN
clrscr;
write(`Nhap a: `);readln(a);
write(`Nhap b: `);readln(b);
write(`Nhap c: `);readln(c);
d:=b*b-4*a*c;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(`2 nghiem PT la: