mot so dang bai tap pascal

<span class='text_page_counter'>(1)</span>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é).

<span class='text_page_counter'>(2)</span> 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;.

<span class='text_page_counter'>(3)</span> 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 ..

<span class='text_page_counter'>(4)</span> 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);.

<span class='text_page_counter'>(5)</span> 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é).

<span class='text_page_counter'>(6)</span> 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;.

<span class='text_page_counter'>(7)</span> 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.

<span class='text_page_counter'>(8)</span> 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:.

<span class='text_page_counter'>(9)</span> 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;.

<span class='text_page_counter'>(10)</span> 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 < 20 . In ra tích các số chẵng tứ 1 > 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;.

<span class='text_page_counter'>(11)</span> 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é).

<span class='text_page_counter'>(12)</span>