GIẢI VÀ SƯU TẦM CÁC BÀI TOÁN PASCAL Ở TRUNG HOC CƠ SỞ docx

ĐỀ TÀI: GIẢI VÀ SƯU TẦM CÁC BÀI TOÁN PASCAL Ở TRUNG HOC CƠ SỞ Sinh viên thực hiện: Phan Thanh Vịnh Lớp: CĐSP Toán – Tin K50  I Câu lệnh IF THEN ELSE Bài 1  ! "!#$%&'()*%+,$-./,!01"1$+230453!"6"7,4$ $,8"*%98:98!2,3&;<,); ;98$<,)$-8 $=8$->?8@$>A8B8' -  ! "C/2D EFGH I-$/2JK55""L$,8"KMD I-$/JKNKMDC/52JMD I-$/JK!NKMDC/52J!MD I-$/JK"NKMDC/52J"MD HOJP!Q"M5J!P"QM5J"PQ!M 5JQM5J!QM5J"QM/ I-$/2JK,R*2""L,$$,8"KM F2/ I-$/2JK8$,SKMD C/52D FR' Bài 2 !#$%&' T,""2A3<AU3$V$W8"7"X8'L01 0>-,3 & ""Q3YU2J8$-M 8"L"L82J8$-M - 8 C/2D H  R/,H$/8/-D EFGH I-$/JKE/LKMDC/52JMD 8NDR/,ND Z-HNR E/8 I-$/JKNKMDC/52JMD HOJQM5JYUM/ E/8 8N8PD R/,NR/,PD F5D F5D I-$/2JK""QYU2K R/,MD I-$/2JK8"L"L82K 8MD C/52D FR' Bài 3 ! ! " 5'()*$&,8$-2#$"7"X8388$-2#$01 "!T[.'  U - [.  ! " 5C/2D EFGH I-$/2JK8$-"L\KMD I-$/JKNKMDC/52JMD I-$/JK!NKMDC/52J!MD I-$/JK"NKMDC/52J"MD I-$/JK5NKMDC/52J5MD [.ND HO[.Y!/[.N!D HO[.Y"/[.N"D HO[.Y5/[.N5D I-$/2JKG$-2$2K [.MD C/52D FR' Bài 4 ]"83*$8^, L01T$-,3&012383*$B,#*$-8$L_' - L 8* 8E*$/D ,H$/8/-D EFGH I-$/JKR"8*8,KMD C/52J8* 8 ,MD ,N`PJ,,5`MD HO8Y/ E/8 8N8PUD ,N,D F5D LNa!J8*P8bUPJ8PMb 5P,P,5\M,5cD /LdO I-$/2JKL$KMD I-$/2JKL(KMD UI-$/2JKLEKMD I-$/2JKLLKMD \I-$/2JKL,KMD I-$/2JKLLKMD eI-$/2JKLE*KMD F5D C/52D FR' Bài 5 T$">A8$-& f!5 0+,^ $ 868g H-,3&5>568  hTL0+, h!5 h+,^ h+,$ h+,868g hW80+, E60)$-X8$L*+Ji"E60)%98$-X8$L*+M0jL%kW80+,QN *8>@"26' l/-$D -ERH$/8/-D   88L 85/,C/2D EFGH 2-"-D I-$/JK!5KMDC/52JERMD I-$/JKR/,$KMDC/52JMD I-$/JKR/,88LKMDC/52J88LMD I-$/JKR/,KMDC/52JMD 85/,NPP88LD 2-"-D I-$/2JK/LER/,KMD I-$/2JK!5K ERMD I-$/2JKR/,K MD I-$/2JKR/,$K MD I-$/2JKR/,88LK 88LMD I-$/2JK85/,K 85/,MD HO85/,QN/ I-$/2JKE5$-L8$L*/KM F2/ I-$/2JKE%8$-L8$L*/KMD C/52D FR' Bài 6 T$">A8$-&$m"'L01<n$V"_$m"k3%T$oLp "7n$V01' TL23qPr %T$oLp"7$W82,3&' TL23qr %T$oLp"7kL2,3&' TL23qsr %T$oLp"7$>A82,3&' TL23qbr %T$oLp"7$V"2,3&'TL23qPr %T$oLp"7$W82 ,3&' TL23qPr %T$oLp"7$W82,3&' l/-$D -  ! C/2D $-D EFGH 2-"-D I-$/JKNKMDC/52JMD I-$/JK!NKMDC/52J!MD I-$/JK/$$L"/2JPbsMKMD \ C/52J$MD HO$NKPt/NP!D HO$NKt/N!D HO$NKbt/Nb!D HO$NKst/Ns!D I-$/J $ ! KNK MD C/52D FR' Bài 7 Gp3!k2L>A8$-& . U PJ,UM.PN u0f*,23$,$m"$Lvw' l/-$D - , R/2$C/2D  EFGH 2-"-D I-$/JK,NKMDC/52J,MD R/2$No-J,UM\D HOR/2$Y/ I-$/2JKL8$-8/,KM F2/ E/8 HOR/2$N/ I-$/2JKL8$-"8/,%/xNK J,UMsUM F2/ E/8 I-$/2JKL8$-"U8/,KMD I-$/2JKxNK JJ,UMPo-$J5/2$MMsUMD I-$/2JKxUNK JJ,UMo-$JR/2$MMsUMD F5D F5D C/52D FR' Bài 8 T$">A8$-&$m [3$98!;RL8;TL ["y8$V "z2{ $-8$->?8@8>@"26$&$98!;;' l/-$D -  [H$/8/-D E/8 2-"-D I-$/JK [NKMDC/52J [MD HOJJP[M,5UNM/I-$/2JKRL8SKM F2/I-$/2JKSKMD C/52D FR '  HH|G}x~•(€(•Gx~•( ‚RƒG„(ZdC Bài 1 $-&$V$V"""$m$=$' -E*$/DJb"…"†*bM ‡-5DJb$V"bM EFGH ND Jb"8y$ˆ!‰3L"LŠ$V"bM Z-N$R Jb""†*$‹Œ$9ybM NbD Jb232‹9†$f9ybM I-$/JKbUb'''bNK MD C/52D FR' Bài 2 T$">A8$-&0T,2_.L#$k"7""%V$m$L4"!p8"g"$-82_ 8•%V$m!Ž8!3V,J%98f!k$a !E• 5y83,l"/0+ "L*+0W"g$>?8"gM' l/-$D -a *•KaK''K‘K’O$/8/-D ""-D !*$/D EFGH 2-"-D Z-"NKaK$K‘KR•"’ND I-$/2JKG,2KMD Z-NR E/8 "NC/5%/*D "Nl"/J"MD •"’N•"’PD F5D I-$/2JK2.L$/""%$L2KMD Z-"NKaK$K‘K5 HO•"’Q/ I-$/2J" •"’\ K2'KMD C/52D FR' Bài 3 $m )*2$-&0+$V""$W8L a. PsU U Ps U P•Ps U  a. PsUSPsSP•PsS M - I-5D C/2D EFGH I-$/JKKMDC/52JMD ND Z-NR NPso-JMD e I-$/2JKNK UMD C/52D FR' !M -  “ I-5D C/2D  EFGH I-$/JKKMDC/52JMD ND ND Z-NR E/8 NbDJb$VbM NPsD F5D I-$/2JKNK UMD C/52D FR' Bài 4 V8$-"7!+L$B"L JPs U MJPsU U M•JPs U M - E*$/D C/2D E/8 I-$/JKKMDC/52JMD ND Z-NRNbJPso-JMMD I-$/2JKNK MD C/52D F5' 2 SỬ DỤNG LỆNH WHILE Bài 5 $-&$V$W8 aNPsUPsP•Ps u0f*23$m0>@"3$=!3V,' l/-$D - H$/8/-D $8C/2D EFGH 2-"-D I-$/JK$L/KMDC/52JMD $8ND ND I2/YNR E/8 $8N$8PsD NPD F5D c I-$/2JK8"$,2K $8UeMD C/52D FR' Bài 6 V3,2”*$=  u0f*$m"3$m0>@"3$=!3V,' l/-$D - H$/8/-D  8$-C/2D EFGH 2-"-D I-$/JKKMDC/52JMD I-$/JK,LKMDC/52JMD ND 8$-ND I2/YNR E/8 8$-N8$-bD NPD F5D I-$/2JK,L!8K 8$-MD C/52D FR' l/-$D - H$/8/-D  8$-C/2D EFGH 2-"-D I-$/JKKMDC/52JMD I-$/JK,LKMDC/52JMD ND 8$-ND I2/YNR E/8 8$-N8$-bD NPD F5D I-$/2JK,L!8K 8$-MD C/52D FR' Bài 7 T$">A8$-&,4$5)*$0 L01-,3&""%" L' l/-$D -aa *•''’dOH$/8/-D  “ H$/8/-D EFGH 2-"-D I-$/JKR5"L5*NKMDC/52JMD Z-HNR • E/8 I-$/JKa•K  K’NKMDC/52Ja•’MD F5D I-$/2JK"%"L2KMDI-$/2Ja•’MD NUD I2/YNR E/8 “ND I2/J“YM5Ja•“’YQa•’MR"J“MD HO“N/I-$/2Ja•’MD NPD F5D C/52D FR' Bài 8 T$">A8$-&,4$5)*$0 L01–.T26$/$B$m$^8 5_' l/-$D -aa *•''’dOH$/8/-D  “  H$/8/-D EFGH 2-"-D I-$/JKR5"L5*NKMDC/52JMD I-$/2JK5*KMD Z-NR E/8 I-$/JKa•K  K’NKMDC/52Ja•’MD F5D ND I2/JYNMR E/8 “NPD I2/“YN5 E/8 HOa•“’Ya•’$/ E/8 Na•“’D a•“’Na•’D a•’ND F5D “N“PD F5D NPD F5D I-$/2JKR*L%./KMD Z-NRI-$/Ja•’\MD C/52D FR' 3 Sử dụng lệnh Repeat ` Bài 9 ,4$5)*0>@"$=!3V,'()*T$">A8$-&,4$-—2k$ %$#$"p""_$˜$-85)*2A' l/"-$D - !a *•''’dOH$/8/-D  ,  “ %E*$/D $-L8E2/D EFGH 2-"-D I-$/JK55"L5*8L*/KMDC/52JMD I-$/2JK""$L"L5*KMD Z-N5 E/8 I-$/JK•K  K’NKMDC/52J•’MD F5D ND,ND C//$ $-L8NO2/D “NPD C//$ HOJ“YNM5J•’N•“’M/$-L8N$-L/D"J“MD l$2$-L8-J“QMD HO$-L8/ E/8 ,N,PD !•,’N•’D‡-$/2J!•,’\MD F5D "JMD l$2QD HO,Q/ E/8 ND C//$ “NPD C//$ $-L8NO2/D HO!•’N!•“’/$-L8N$-L/D HO$-L8/ E/8 HO“Y,/ Z-%N“,R!•%’N!•%P’D ,N,D 5/"J“MD F5D "J“MD l$2“Q,D "JMD l$2Q,D F5D HO,Q/ Z-%N,RI-$/J!•%’\MD  [...]... thuc!'); Readln; END Bài 4 : Một file bản ghi chứa một danh sách học sinh PTTH , thơng tin về mỗi học sinh ngồi các trường Họđệm , Tên , Tuổi , Lớp giống như các bài trên còn có thêm trường Điểm chứa điểm trung bình của học sinh trong năm học Hãy lập chương trình : a a Hiển thị lên màn hình danh sách những học sinh giỏi nhất của trường là những bạn có điểm trung bình từ 8.0 trở lên và cao nhất trong... a[i] ) ; End ; i := 1 ; m := 0 ; Repeat trung := false ; j := i + 1; Repeat If ( j n ) ; If trung Then Begin m := m + 1; b[m] := a[i] ; writeln ( b[m] : 4 ) ; End ; inc(i) ; Until i > n ; If m > 1 Then Begin i := 1 ; Repeat j := i + 1 ; Repeat trung := false ; If b[i] = b[j] Then trung := true ; If trung Then Begin If j < m Then For k... trên màn hình 1 Xem 2 2 Sua chua 2 3 Loai bo 3 4 Nhap them 4 5 Thoat Lua chon cua ban : _ Sau đó đợi gõ phím Chương trình phải đợi cho tới khi phím gõ vào là một trong các chữ số 1 5 hoặc các chữ cái đầu của các tuỳ chọn thì thơng báo phím gõ vào hợp lệ và kết thúc chương trình Trong chương trình phải dùng một tập hợp để kiểm tra việc nhập giá trị cho biến từ bàn phím (* Hiển tḥ menu *) Uses Crt;... then begin st:=st+ch; Write(ch); end Else If ch#13 then Write(#7); Until ch=#13; Readln; END Bài 6 : Hãy lập chương trình nhập vào một xâu kí tự từ bàn phím u cầu các kí tự nhập vào phải là các chữ cái thuộc bảng chữ cái tiếng Anh , bỏ qua các phím khác (* Nhập một xâu toàn các chươ cái *) Uses Crt; Const A:set of char=['a' 'z','A' 'Z']; Var ch: char; st: string; Sinh viên: Phan Thanh Vịnh - Lớp CĐSP... ch:= 'A' to 'Z' do Writeln('So lan xuat hien cua ',ch,' trong xau la: ', A[ch]:4) ; Readln ; END Bài 2 : Cho số tự nhiên n và xâu có độ dài n Hãy biến đổi xâu đã cho bằng cách thay đổi trong đó : a a Tất cả các dấu ! bằng dấu chấm a b Mỗi một nhóm các dấu chấm liền nhau bằng một dấu chấm b c Một nhóm các dấu chấm đứng liền nhau bằng dấu ba chấm a) Var S: string; i: byte; BEGIN Write(' Cho mot xau... i:=2 to len do If (Hoten[i-1]=#32)and(Hoten[i] in Chu) then Hoten[i]:=Upcase(Hoten[i]); Write('Ho ten sau khi dieu chinh la: ', Hoten); Readln; END Bài 9 : Viết chương trình nhập xãu kí tự từ bàn phím , sau đó gọt xâu lại bằng cách cách xố đi các kí tự trống ở hai đầu của xâu Ví dụ nếu nhập xâu “ Ha noi “ , thì kết quả sẽ là “Ha noi” Var S: String; BEGIN Write('Cho mot xau ky tu: '); Readln(S); While... Phan Thanh Vịnh - Lớp CĐSP Tốn – Tin K50 16 End; End ; End ; Write('Nhan Enter de ket thuc '); Readln; End Bài 7 : Viết thủ tục Compare ( S1 , S2 : String ; Var Kq : String ) thực hiện cơng việc sau : so sánh hai xâu S1 và S2 , tìm tất cả các kí tự có trong cả hai xâu trên Xâu Kq sẽ chứa tất cả các kí tự đó , mỗi kí tự chỉ được nhớ một lần Uses Crt; Var xau1,xau2,xau: string; (*==================================*)... Readln; END Bài 5 : Hãy lập chương trình nhập vào một xâu nhị phân Các kí tự nhập vào khơng hợp lệ bị bỏ qua (* nhập một xâu nḥ phân *) Uses Crt; Const bit : set of char= ['0','1']; Var ch: char; st: string; BEGIN Clrscr; st:=''; Write('Nhap vao mot xau nhi phan : '); Repeat ch:= Readkey; If ch in bit then begin st:=st+ch; Write(ch); end Else If ch#13 then Write(#7); Until ch=#13; Readln; END Bài 6... Thanh Vịnh - Lớp CĐSP Tốn – Tin K50 14 St2 := S ; End ; End ; Bài 4 : Viết chương trình thực hiện lần lượt các cơng việc sau : _ Lập thủ tục nhập ba số thực dương a , b , c từ bàn phím _ Lập thủ tục kiểm tra xem ba số trên có lập thành ba cạnh của tam giác hay khơng ? _ Viết thủ tục tính diện tích của tam giác _ Viết thủ tục tính các trung tuyến của tam giác _ Viết hồn thiện chương trình chính ... Bài 7 : Viết chương trình nhập một xâu kí tự và biến đổi chúng thành tồn chữ in hoa Var S : string; i : integer; BEGIN Write('Cho mot xau ky tu: '); Readln(S); For i:=1 to length(S) do If S[i] in ['a' 'z'] then S[i]:= Upcase(S[i]); Write('Chuoi sau khi da bien doi la: ', S); Readln; END Bài 8 : Họ tên một học sinh được nhập từ bàn phím Bạn hãy viết chương trình điều chỉnh lại các kí tự đầu của các . ĐỀ TÀI: GIẢI VÀ SƯU TẦM CÁC BÀI TOÁN PASCAL Ở TRUNG HOC CƠ SỞ Sinh viên thực hiện: Phan Thanh Vịnh Lớp: CĐSP Toán – Tin K50  I. K50  I Câu lệnh IF THEN ELSE Bài 1  ! "!#$%&'()*%+,$-./,!01"1$+230453!"6"7,4$ $,8"*%98:98!2,3&;<,);