Một số dạng bài tập pascal

Phần I : Viết các chương trình in ra dòng chữ , hình .
Code:
Bài 1 : Viết chương trình in ra dòng chữ "Chào các bạn" . 
program Vd;
uses wincrt;
begin
write('Chào các bạn");
end.(''Ctrl + F9'' để chạy bạn nhé)
Code:
Bài 2 : Viết chương trình in ra hình chữ nhật * * * * * * *
 * * 
 * * * * * * *
program vd;
uses wincrt;
begin
writeln('* * * * * * *');
writeln('* *');
writeln('* *');
writeln('* * * * * * *');
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 3 : Viết chương trình in ra hình trái tim : ...
Code:
program vd;
uses wincrt;
begin
writeln(' ** ** ');
writeln(' * * * *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' * *');
writeln(' *');
end.(''Ctrl + F9'' để chạy bạn nhé)
Phần II : Các bài tập lập trình tính đại số và tính chu vi , diện tích hình .
Bài 4 : Viết chương trình tính dãy số thập phân 1+1/2+1/3+1/4...+1/9
Code:
program vd;
uses wincrt;
begin
writeln('1+1/2+1/3+1/4+1/5+1/6+1/7+1/8+1/9=',1+1/2+1/3+1/4+1/5+1/6+1/7+1/8+1/9);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 5 : Viết chương trình tính (10+2)^2/3+1
Code:
program vd;
uses wincrt;
begin
writeln('(10+2)^2/3+1=',(10+2)*(10+2)/3+1);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 6 : Viết chương trình tính (8^3-5^3):2^3+1
Code:
program vd;
uses wincrt;
begin
writeln('(8^3-5^3):2^3+1=',(8*8*8-5*5*5)/(2*2*2)+1);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 7 : Viết chương trình tính chu vi hình tròn có bán kính = 5
Code:
program vd;
uses wincrt;
var cv:real;
Const bk=5;
 pi=3,14;
begin
cv:=bk*2*3,14;
writeln('Chu vi hình tròn có bán kính = 5 là',cv:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 8 : Viết chương trình tính diện tích hình tròn có bán kính = 10 
Code:
program vd;
uses wincrt;
var dt:real;
const bk=10;
 pi=3,14;
begin
dt:=bk*bk*3,14;
writeln('Dien tich hinh tròn có bán kính = 10 là',dt:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 9 : Viết chương trình tích chu vi hình chữ nhật có cd = 5 , cr = 3 
Code:
program vd;
uses wincrt;
var cv:real;
const cd=5;
 cr=3;
begin
cv:=(cd+cr)*2;
writeln('Chu vi hình chữ nhật có cd = 5 , cr = 3 là',dt:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 10 :Viết chượng trình tính diện tích hình chữ nhật có cd = 10 , cr = 5 
Code:
program vd;
uses wincrt;
var dt:real;
const cd=10;
 cr=5;
begin
dt:=cd*cr;
writeln('Diện tích hình chữ nhật có cd = 10 , cr = 5 là',dt:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Phần III : Viết chương trình tính , số phải nhập từ bàn phím . Viết chương trình khai báo .
Bài 11 :Nhập cd , cr để tính diện tích hình chữ nhật 
Code:
program vd;
uses wincrt;
var cd,cr,dt:real;
begin
writeln('Đây là chương trình tính diện tích hình chữ nhật');
writeln('Nhap cd=');readln(cd);
writeln('Nhap cr=');readln(cr);
dt:=cd*cr;
writeln('dt=',dt:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 12 : Nhập bán kính từ bàn phím để tính diện hình tròn 
Code:
program vd;
uses wincrt;
var bk,cv:real;
begin
writeln('Đây là chương trình tính chu vi hình tròn');
writeln('Nhập bk=');readln(bk);
dt:=bk*bk*3,14;
writeln('dt=',dt:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 13 : Viết chương trình tính tiền điện với tiền điện = số kwh * 1,500 , số kwh nhập từ bàn phím .
Các bạn nên tự làm phép tính ở nhà kẻo gian lận :tp41:
Code:
program vd;
uses wincrt;
var tiendien,kwh:real;
begin
writeln('Đây là chương trình tính tiền điện');
writeln('Nhập kwh=');readln(kwh);
tiendien:=kwh*1500;
write('tiendien=',tiendien:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 14 : Nhập 2 số nguyên A , B tính tổng 2 số nguyên .
Code:
program vd;
uses wincrt;
var A,B,tổng:real;
begin
writeln('Đây là chương trình tính tổng 2 số nguyên A và B');
writeln('Nhập số A=');readln(A);
writeln('Nhập số B=');readln(B);
tổng:=A+B;
write('tổng=',tổng:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 15 : Nhập họ và tên , năm sinh in ra số tuổi 
Code:
program vd;
uses wincrt;
var a,tuổi:integer;
 b:string;
begin
writeln('HovaTen');readln(b);
writeln('Nhap Nam sinh');readln(a);
tuổi:=2011-a;
writeln('tuổi=',tuổi);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 16 : Viết chương trình tính điểm trung bình của Toán , Lý , Hóa
Code:
program bvd;
uses wincrt;
var Toán,Lý,Hóa,tb:real;
begin
writeln('Nhập điểm toán=');readln(Toán);
writeln('Nhập điểm lý=');readln(Lý);
writeln('Nhập điểm hóa=');readln(Hóa);
tb:=(Toán+Lý+Hóa)/3
write('Điểm trung bình của Toán , Lý , Hóa=',tb:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 17 : Viết chương trình tính tổng bình phương 2 số nguyên , 2 số nguyển nhập từ bàn phím 
Code:
program vd;
uses wincrt;
var songuyen1,songuyen2,tbp:real;
begin
writeln('Nhập số nguyên thứ nhất=');readln(songuyen1);
writeln('Nhập số nguyên thứ hai=');readln(songuyen2);
tbp:=songuyen1*songuyen1+songuyen2*songuyen2;
write('Tổng bình phương 2 số nguyên=',tbp:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Những dấu in đậm trên bạn có thể thay thế bằng 1 chữ cái như : A, B, C ... Khi cho chạy chương trình không gây anh hưởng chương trình tính .
Phần IV : Viết chương trình so sánh có chia hết hay không .
Bài 18 : Viết chương trình nhập vào số nguyên N , in ra màng hình số đó có chia hết cho 2 hay không .
Code:
program vd;
uses wincrt;
var N:integer;
begin
writeln('Nhập N=');readln(N);
If N mod 2 = 0 then write('N chia hết cho 2');
If N mod 2 0 then write('N không chia hết cho 2');
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 19 : Viết chương trình nhập vào số nguyên N , in ra màng hình số đó có chia hết cho 2 và 3 hay không .
Code:
program vd;
uses wincrt;
var N:integer;
begin
writeln('Nhập N=');readln(N);
If (N mod 2 = 0) and (N mod 3 = 0) then write('N chia hết cho 2 và 3');
If (N mod 2 0) and (N mod 3 0) then write('N không chia hết cho 2 và 3');
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 20 : Viết chương trình nhập vào số nguyên N , in ra màng hình số đó có chia hết cho 2 , 4 và 5 hay không . 
Code:
program vd;
uses wincrt;
var N:integer;
begin
writeln('Nhập N=');readln(N);
If (N mod 2 = 0) and (N mod 4 = 0) and (N mod 5 = 0) then write('N chia hết cho 2 , 4 và 5');
If (N mod 2 0) and (N mod 4 0) and (N mod 5 0) then write('N không chia hết cho 2 , 4 và 5');
end.(''Ctrl + F9'' để chạy bạn nhé)
Phần V : Viết chương trình so sánh các số nguyên 
Bài 21 : Viết chương trình nhập vào 2 số nguyên A và B , in ra số nguyên lớn hơn 
Code:
program vd;
uses wincrt;
var A,B:integer;
begin
write('Nhập số nguyên thứ nhất=');readln(A);
write('Nhập số nguyện thứ hai=');readln(B);
If A > B then write('A');
If A < B then write('B');
If A = B then write('A bằng B');
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 22 : Viết chương trình nhập vào 2 số nguyên A và B , in ra thứ tự từ bé đến lớn
Code:
program vd;
uses wincrt;
var A,B:integer;
begin
write('Nhập số nguyên thứ nhất=');readln(A);
write('Nhập số nguyên thứ hai=');readln(B);
If A > B then write(B', ,'A);
If A < B then write(A', ,'B);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 23 : Viết chương trình nhập vào 3 số nguyên A , B và C . In ra thứ tự từ lớn đến bé .
Code:
program vd;
uses wincrt;
var A,B,C:integer;
begin
write('Nhập số nguyên thứ nhất=');readln(A);
write('Nhập số nguyên thứ hai=');readln(B);
write('Nhập số nguyện thứ ba=');readln(C);
If (A > B) and (A > C) and (B > C) then write('A,B,C');
If (A > C) and (A > B) and (C > B) then write('A,C,B');
If (B > A) and (B > C) and (A > C) then write('B,A,C');
If (B > C) and (B > A) and (C > A) then write('B,C,A');
If (C > A) and (C > B) and (A > B) then write('C,A,B');
If (C > B) and (C > A) and (B > A) then write('C,B,A');
end. (''Ctrl + F9'' để chạy bạn nhé)
Bài 24 : Viết chương trình nhập vào 3 số nguyên A , B và C . In ra thứ tự từ bé đến lớn
Code:
program vd;
uses wincrt;
var A,B,C:integer;
begin
write('Nhập số nguyên thứ nhất=');readln(A);
write('Nhập số nguyên thứ hai=');readln(B);
write('Nhập số nguyện thứ ba=');readln(C);
If (A > B) and (A > C) and (B > C) then write('C,B,A');
If (A > C) and (A > B) and (C > B) then write('B,C,A');
If (B > A) and (B > C) and (A > C) then write('C,A,B');
If (B > C) and (B > A) and (C > A) then write('A,C,B');
If (C > A) and (C > B) and (A > B) then write('B,A,C');
If (C > B) and (C > A) and (B > A) then write('A,B,C');
end.(''Ctrl + F9'' để chạy bạn nhé)
Phần VI : Viết chương trình in ra một dãy dòng chữ thông qua lệnh For...do
Bài 25 : Viết chương trình in ra màng hình 10 chữ Vinatinhoc.net
Code:
program vd;
uses wincrt;
var i:integer;
begin
write('Đây là chương trình in ra màng hình 10 chữ Vinatinhoc.net');
For i:=1 to 10 do writeln('Vinatinhoc.net');
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 26 : Viết chương trình in ra màng hình 5 chữ Vinatinhoc và 5 chữ .net 
Code:
program vd;
uses wincrt;
var i,j:integer;
begin
write('Đây là chương trình in ra màng hình 5 chữ Vinatinhoc và 5 chữ .net');
For i:=1 to 5 do writeln('Vinatinhoc');
For j:=6 to 10 do writeln('.Net');
end.(''Ctrl + F9'' để chạy bạn nhé)
Phần VII : Viết các chương trình tính đại số thông qua lệnh For...do
Bài 27 : Viết chương trình tính tổng từ 1 --> 50 
Code:
program vd;
uses wincrt;
var i:integer;
 Tổng:longint;
begin
Tổng:=0;
writeln('Đây là chương trình tính tổng từ 1 đến 50');
For i:= 1 to 50 do Tổng:=Tổng+i;
write('Tổng=',Tổng);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 28 : Viết chương trình tính tích từ 1 --> 10
Code:
program vd;
uses wincrt;
var i:integer;
 Tích:longint;
begin
Tích:=1;
writeln('Đây là chương trình tính tích từ 1 đến 10');
For i:=1 to 10 do Tích:=Tích*i;
write('Tích=',Tích);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 29 : Viết chương trình tính dãy số thập phân từ 1+1/2+1/3+1/4+...+1/9
Code:
program vd;
uses wincrt;
var i:integer;
 Tổng:real;
begin
Tổng:=0;
writeln('Đây là chương trình tính dẫy số thập phân');
For i:=1 to 9 do Tổng:=Tổng+1/i;
write('Tổng=',Tổng:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 30 : Viết chương trình tính dãy số thập phân từ 1+1/2+1/4+1/6...+1/10
Code:
program vd;
uses wincrt;
var i:integer;
 Tổng:real;
begin
Tổng:=0;
Writeln'('Đây là chương trình tính dãy số thập phân chẵn');
For i:=1 to 10 do if i mod 2 = 0 then Tổng:=Tổng+1/i;
write('Tổng=',Tổng:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 31 : Viết chương trình tính dã số thập phân từ 1+1/3+1/5+1/7+1/9.
Code:
program vd;
uses wincrt;
var i:integer;
 Tổng:real;
begin
Tổng:=0;
writeln('Đây là chương trình tính dãy số thập phân lẽ');
For i:=1 to 9 do if i mod 2 0 then Tổng:=Tổng+1/i;
write('Tồng='Tổng:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)
Phần VIII : Viết chương trình tính bằng cách nhập vào số thông qua lệnh For...Do
Bài 32 : Nhập vào 1 số nguyên N . In ra tổng các số từ 1 --> N . 
Code:
program vd;
uses wincrt;
var N,i:integer;
 Tổng:longint;
begin
writeln('Nhập số nguyên =');readln(N);
Tổng:=0;
For i:=1 to N do Tổng:=Tổng+i;
write('Tổng=',Tổng);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 33 : Nhập vào 1 số nguyên N . In ra tổng các số lẽ từ 1 --> N 
Code:
program vd;
uses wincrt;
var N,i:integer;
 Tổng:longint;
begin
writeln('Nhập số nguyên =');readln(N);
Tổng:=0;
For i:=1 to N do If i mod 2 0 then Tổng:=Tổng+i;
write('Tổng=',Tổng);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 34 : Nhập vào 1 sô nguyên N . In ra tổng các số chẳng từ 1 --> N
Code:
program vd;
uses wincrt;
var N,i:integer;
 Tổng:longint;
begin
writeln('Nhập số nguyên =');readln(N);
Tổng:=0;
For i:=1 to N do If i mod 2 = 0 then Tổng:=Tổng+i;
write('Tổng=',Tổng);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 35 :Nhập vào 1 số nguyên N N .
Code:
program vd;
uses wincrt;
var N,i:integer;
 Tích:longint;
begin
writeln('Nhập số nguyên =');readln(N);
Tích:=1;
If N < 20 then
For i:=1 to N do If i mod 2 = 0 then Tích:=Tích*i;
write('Tích=',Tích);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 36 : Nhập vào 1 số nguyên N > 10 . In ra tổng các số lẽ từ 1 > N .
Code:
program vd;
uses wincrt;
var N,i:integer;
 Tổng:longint;
begin
writeln('Nhập số nguyên =');readln(N);
Tổng:=0;
If N > 10 then 
For i:=10 to N do If i mod 2 0 then Tổng:=Tổng+i;
write('Tổng=',Tổng);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 37 : In ra bảng cưu chương N , N nhập từ bàn phím 
Code:
program vd;
uses wincrt;
var N:integer;
begin
writeln('Nhập N=');readln(N);
For i:=1 to 10 do writeln(N,' x ' , i:2, ' = ' , N*i:3);
end.(''Ctrl + F9'' để chạy bạn nhé)
Bài 38 : Tính A=1+2+3+...+N/2*4*6*...*M ( M , N nhập từ bàn phím)
Code:
program vd;
uses wincrt;
var M,N,i,j:integer;
 Tổng,Tích:longint;
 A:real;
begin
writeln('Nhập số nguyên N=');readln(N);
Tổng:=0;
For i:=1 to N do Tổng:=Tổng+i;
writeln('Nhập số nguyên M=');readln(M);
Tích:=1;
for j:=1 to M do If j mod 2 = 0 then Tích:=Tích*j;
A:=Tổng/Tích;
write('A=',A:5:2);
end.(''Ctrl + F9'' để chạy bạn nhé)