| Bài Viết Mới Nhất |
|---|
| Tên Bài Viết | Tác Giả | Thời Gian Gửi | | Mới sưu tầm được 1 game làm bằng Pascal nè | Duy Tân |  Tue Jan 28, 2014 3:26 am | | Thi tin học trẻ tỉnh Kon Tum lần thứ XI năm 2010 | minhlenhat28 | Sat Jun 29, 2013 8:33 pm | | Vật lý trong tin học | Jeremy_Belpois_c3kt | Fri May 24, 2013 11:52 am | | Kiểm tra theo mức độ khó dần | Jeremy_Belpois_c3kt | Sat Apr 20, 2013 8:12 pm | | Tài liệu tham khảo | Jeremy_Belpois_c3kt | Sat Apr 20, 2013 8:09 pm | | Đề cấp trường. | Jeremy_Belpois_c3kt | Fri Feb 22, 2013 7:21 pm | | Tìm tất cả các số nguyên tố từ 2 đến N | blueskythien2010 | Thu Nov 22, 2012 4:04 pm | | Viết chương trình in ra dãy Fibonacy có phần tử lớn nhất nhỏ hơn n ? Có ai giúp mình với | mikiramper_snowstorm96 | Sat Nov 17, 2012 3:26 pm | | ĐỀ HSG 12 2012-2013 | blueskythien2010 | Mon Oct 15, 2012 4:27 pm | | Đề thi học sinh giỏi Tin học 12 | Jeremy_Belpois_c3kt | Wed Oct 10, 2012 11:14 am | |
| | Club Olympic Tin học trường THPT Kon Tum :: Nhóm chuyên mục :: Pascal :: Bài tập cơ bản | Share | |
| | Tác giả | Thông điệp |
|---|
pechanhtaiaiThành viên   Status : Nhìn thì vote cho một phát rùi nhìn tiếp ngen!  Tổng số bài gửi : 43Money : 59Ngày sinh : 14/07/1994Ngày tham gia : 19/10/2010Đến từ : My Mother |  Tiêu đề: Tham khảo bài tập tí Thu Jan 06, 2011 2:02 pm | | Câu 0: Kiểm tra xâu đối xứngVí dụ về xâu đối xứng: - abcdedcba- 123abcdcba321Ví dụ về xâu không đối xứng:- abcd- cdedaViết trương trình kiểm tra tính đối xứng của xâu theo ví dụ trên- Dữ liệu vào được cho trong một file text có tên Input.txt có cấu trúc:Dòng 1 chứa số m (0<=m<=250)M dòng tiếp theo mỗi dòng chứa 1 xâu cần kiểm tra- Dữ liệu ra được ghi vào 1 file text có tên Output.txt có cấu trúcDòng 1 chứa số mM dòng tiếp theo mỗi dòng chứa số 0 hoặc 10 nếu xâu tương ứng không đối xứng1 nếu xâu tương ứng đối xứngCâu 1: Cho một bảng A gồm N x N số nguyên ( N ≤ 100), các dòng được đánh số từ trên xuống dưới bắt đầu từ 1, các cột được đánh số từ trái qua phải cũng bắt đầu từ 1. Mỗi số trong bảng có giá trị tuyệt đối không vượt quá 1000. Bảng B được tạo ra từ bảng A với quy tắc sau: Phần tử của B nằm ở dòng I, cột j có giá trị bằng tổng của các số nằm trong ô (i,j) và các số kề nó trong bảng A: Bij=Aij+A(i+1)j+A (i-1)j+Ai(j-1)+Ai(j-1)Chú ý: Các phần tử nằm ngoài bảng được xem như có giá trị bằng 0.Câu 2: Viết chương trình nhập vào hai mảng một chiều gồm các số nguyên có số lượng phần tử <=100. Sau đó sắp xếp hai mảng đó theo thứ tự không tăng, tiến hành tạo ra mảng thứ 3 bằng cách hoà hai mảng vừa nhập thành một sao cho mảng hoà được có vẫn có thứ tự không tăng.(VD: mảng A gồm các phần tử: 9; 7; 5; 4; 1. Mảng B gồm các phần tử: 6; 3; 2. Khi đó mảng C nhận được là: 9; 7; 6; 5; 4; 3; 2; 1.Câu 3: Cho một xâu kí tự S . Hãy viết chương trình tính xem trong S có bao nhiêu loại kí tự khác nhau (phân biệt chữ in hoa với chữ in thường). Ví dụ với S là “Pascal” ta có đáp số là 5 .Câu 4: Mật mã CaesarPhương pháp mật mã cũa Caesar là dịch chuyển từng ký tự cũa thông điệp cần mã hoá sang phải k ký tự trong bảng chữ cái tiếng Anh(a,b,c,…,z), trong đó k là một số nguyên cho trước, gọi là khoá của mật mã. Trong trường hợp dịch chuyển vượt quá chữ cái cuối cùng thì sẽ quay lại đầu.Ví dụ: với k=3 thì: ad,be,…,wz,xa,yb,…Viết chương trình:- Đọc tập tin inp.txt, tập tin này có 2 dòng: dòng đầu là khoá, dòng sau là thông điệp cần mã hoá.- Mã hoá thông điệp trên và ghi ra tập tin out1.txt 2 dòng: dòng đầu là khoá, dòng sau là bản mật mã.- Đọc lại tập tin out1.txt và giải mã bản mật mã, ghi ra tập tin out2.txt thông điệp đã được giải mã.Câu 5: Xét dãy số Fibonacci mở rộng Fn với n thay đổi từ -∞ đến +∞. Các phần tử của dãy là các số nguyên và có tính chất Fn = Fn-1 + Fn-2 với mọi n nguyên. Ví dụ: xét một dãy Fibonacci mở rộng với F3 = -10; F4 = 7 thì một phần của dãy này như sau: n : 1 2 3 4 5 6 7 8 9 Fn : -27 17 -10 7 -3 4 1 5 6Yêu cầu: Cho biết trước các giá trị i, Fi , j , Fj và số nguyên n thỏa mãn: i ≠ j, 1 ≤ i, j, n ≤ 50. -1015 ≤ Fk ≤ 1015 với mọi k thỏa mini, j, n ≤ k ≤ maxi, j, n. Hãy tính giá trị FnDữ liệu vào: Cho trong file văn bản FIBO.INP gồm một dòng ghi 5 số i, Fi , j , Fj , n giữa các số cách nhau ít nhất một khoảng cách.Kết quả: Ghi ra file văn bản FIBO.OUT giá trị Fn |
|   | NhokToMoThành viên mới  Status : Nhìn bạn quen quen, hình như tớ chưa gặp bao giờ!Tổng số bài gửi : 8Money : 12Ngày sinh : 08/07/1995Ngày tham gia : 15/11/2010Đến từ : nhà ko số | | Tiêu đề: Re: Tham khảo bài tập tí Thu Jan 06, 2011 2:13 pm | | câu 3, em làm theo kiểu sắp xếp mảng 1 chiều:- chuyển xâu kí tự về dãy số, đưa về mảng 1 chiều- sắp xếp mảng theo tăng dần hoặc giảm dần- khi đó các số giống nhau sẽ gần nhau, nếu số thứ i khác số thứ i+1 thì tăng biến đếm lên 1 Code: var s:string; a:array[1..255] of byte; i,j,n,k:byte;begin write('nhap xau: '); readln(s); n:=length(s); for i:=1 to n do a[i]:=ord(s[i]); for j:=n downto 2 do for i:=1 to j-1 do if a[i]>a[i+1] then begin k:=a[i]; a[i]:=a[i+1]; a[i+1]:=k; end; j:=0; {dung j lam bien dem} for i:=1 to n-1 do if a[i]<>a[i+1] then j:=j+1; write('co ',j+1,' ki tu khac nhau'); readln;end. |
| | | | Sponsored content | | Tiêu đề: Re: Tham khảo bài tập tí |
| | | | pechanhtaiaiThành viên Status : Nhìn thì vote cho một phát rùi nhìn tiếp ngen! Tổng số bài gửi : 43Money : 59Ngày sinh : 14/07/1994Ngày tham gia : 19/10/2010Đến từ : My Mother | | Tiêu đề: Re: Tham khảo bài tập tí Thu Jan 06, 2011 2:41 pm | | chém câu 4 ngen, nếu gặp chữ in hoa thì cho nó về chữ thường lun Code: var f1,f2:text; s,b:string; k,x,i:integer;begin {---ma hoa---} assign(f1,'d:\inp1.txt'); reset(f1); assign(f2,'d:\out1.txt'); rewrite(f2); readln(f1,k); writeln(f2,k); readln(f1,s); b:=''; for i:=1 to length(s) do begin x:=ord(s[i]); if (x>=65) and (x<=90) then x:=x+32+k else x:=x+k; if x>122 then x:=x-122+97-1; b:=b+chr(x); end; writeln(f2,b); close(f1); close(f2); {--giai ma--} assign(f1,'d:\out1.txt'); reset(f1); assign(f2,'d:\out2.txt'); rewrite(f2); readln(f1,k); readln(f1,s); writeln(f2,k); b:=''; for i:=1 to length(s) do begin x:=ord(b[i]); x:=x-k; if x<97 then x:=x+26; b:=b+chr(x); end; write(f2,b); close(f1); close(f2);end. cần tệp tin d:\inp1.txt chạy ví dụ dưới đây thử ngen 3abcxyĐược sửa bởi pechanhtaiai ngày Sun Jan 09, 2011 3:02 pm; sửa lần 1. |
| | | |__Lep__|Thành viên  Status : Tạm thời ngừng codeTổng số bài gửi : 34Money : 53Ngày sinh : 21/05/1994Ngày tham gia : 21/10/2010 | | Tiêu đề: Re: Tham khảo bài tập tí Thu Jan 06, 2011 6:14 pm | | NhokToMo có cách làm giống anh rồi. Ý tưởng lớn gặp nhau nhỉ |
| | | | |__Lep__|Thành viên Status : Tạm thời ngừng codeTổng số bài gửi : 34Money : 53Ngày sinh : 21/05/1994Ngày tham gia : 21/10/2010 | | Tiêu đề: Re: Tham khảo bài tập tí Thu Jan 06, 2011 6:38 pm | | Ai test thử giùm câu 0 cái. Cái Free nhà mình bị sao rồi. Code: var f1,f2:text; m,i:integer; s:string;function kt(s:string):boolean;var k,i:integer;begink:=length(s);kt:=true;for i:=1 to (k div 2) do if s[i]<>s[k-i+1] then kt:=false;end;beginassign(f1,'E:\Input.txt');reset(f1);readln(f1,m);assign(f2,'E:\Output.txt');rewrite(f2);for i:=1 to m do begin readln(f1,s); if kt(s) then writeln(f2,1) else writeln(f2,0); end;close(f1);close(f2);end. |
| | | | pechanhtaiaiThành viên Status : Nhìn thì vote cho một phát rùi nhìn tiếp ngen! Tổng số bài gửi : 43Money : 59Ngày sinh : 14/07/1994Ngày tham gia : 19/10/2010Đến từ : My Mother | | Tiêu đề: Re: Tham khảo bài tập tí Thu Jan 06, 2011 9:10 pm | | test thử rồi, đề yêu cầu ghi giá trị của biến m (theo chương trình của bạn) vào tệp f2 nữa. Chỉ cần thêm câu lệnh writeln(f2,m); nữa là okcó cách khác nữa nè, ko dùng chương trình con Code: type xau=string;var f1,f2:text; a:xau; m,i:integer;begin assign(f1,'D:\INPUT.TXT'); reset(f1); assign(f2,'D:\OUTPUT.TXT'); rewrite(f2); readln(f1,m); writeln(f2,m); repeat begin readln(f1,a); m:=length(a); i:=1; while (i <= m div 2) and (a[i]=a[m-i+1]) do i:=i+1; if i <= m div 2 then writeln(f2,0) else writeln(f2,1); end; until eof(f1); close(f1); close(f2);end. |
| | | | pechanhtaiaiThành viên Status : Nhìn thì vote cho một phát rùi nhìn tiếp ngen! Tổng số bài gửi : 43Money : 59Ngày sinh : 14/07/1994Ngày tham gia : 19/10/2010Đến từ : My Mother | | Tiêu đề: Re: Tham khảo bài tập tí Thu Jan 06, 2011 9:27 pm | | chạy câu 1 thử coi nèk Code: uses crt;type bang=array[0..100,0..100] of integer;var a,b:bang; i,j,n,x,y:byte;{----xuat bang---}procedure xuat(ab:bang);var ii,jj:byte;begin for ii:=1 to n do begin for jj:=1 to n do write(ab[ii,jj]:5); writeln; end;end;{----ctrinh chinh----}begin clrscr; write('nhap kich thuoc cho bang A vuong: '); readln(n); writeln('bang A:'); randomize; for i:=1 to n do for j:=1 to n do a[i,j]:=random(1000); xuat(a); for i:=1 to n do for j:=1 to n do begin x:=i-1; y:=j-1; if x=0 then a[x,j]:=0; if y=0 then a[i,y]:=0; if x+2>n then a[x+2,j]:=0; if y+2>n then a[i,y+2]:=0; b[i,j]:=a[i,j]+a[x+2,j]+a[x,j]+a[i,y+2]+a[i,y]; end; writeln('bang B:'); xuat(b); readln;end. |
| | | | pechanhtaiaiThành viên Status : Nhìn thì vote cho một phát rùi nhìn tiếp ngen! Tổng số bài gửi : 43Money : 59Ngày sinh : 14/07/1994Ngày tham gia : 19/10/2010Đến từ : My Mother | | Tiêu đề: Re: Tham khảo bài tập tí Fri Jan 14, 2011 3:34 pm | câu 5 nha, ý tưởng:- cho một số f(k) bất kì chính là số f(i+1), -1015<=f(k)<=1015, lúc đầu gán f(k):=1015- cộng f(i) với f(k) theo hệ thức truy hồi cho đến khi tổng đó đúng bằng f(j) hoặc số lần cộng bằng khoảng cách giữa i và j (j-i-1) giả sử j>i- nếu tổng theo hệ thức truy hồi không bằng f(j) thì thay đổi biến f(k) cho đến lúc f(j) bằng tổng theo hệ thức truy hồi, ta lưu lại f(k), f(i)- vì n là số bất kì nên nếu n>i thì thực hiện việc cộng truy hồi (n-i) lần, nếu n<i thì thực hiện trừ truy hồi |n-i| lần, thu được f(n)chương trình hoàn chỉnh: Code: var f:text; i,j,n,fi,fj,fn,fk:integer; x,y,a,k:integer; kt:boolean;begin assign(f,'d:\fibo.txt'); reset(f); read(f,i); read(f,fi); read(f,j); read(f,fj); read(f,n); close(f); kt:=false; fk:=1015; while (-1015<=fk) and (fk<=1015) and (kt=false)do begin y:=fk; a:=fi; repeat begin x:=a+y; a:=y; y:=x; k:=k+1; end; until (k=j-i-1); k:=0; if (x<fj)or(x>fj) then fk:=fk-1 else kt:=true; end; if n>i then for x:=1 to n-i-1 do begin fn:=fi+fk; fi:=fk; fk:=fn; end else for x:=1 to abs(n-i) do begin fn:=fk-fi; fk:=fi; fi:=fn; end; assign(f,'d:\fiboo.txt'); rewrite(f); write(f,fn); close(f);end. mọi người test thử xem sao  |
| | | c3ktBan Cố Vấn Tổng số bài gửi : 9Money : 14Ngày tham gia : 31/10/2010 | | Tiêu đề: Re: Tham khảo bài tập tí Fri Jan 14, 2011 4:38 pm | | Xem lại cái đề nhé. Copy - paste nhầm rồi: Câu 5: -1015 ≤ Fk ≤ 1015 với mọi k thỏa mini, j, n ≤ k ≤ maxi, j, n.(Đúng phải là 10 mũ 15 chứ không phải 1015 đâu) |
| | | | pechanhtaiaiThành viên Status : Nhìn thì vote cho một phát rùi nhìn tiếp ngen! Tổng số bài gửi : 43Money : 59Ngày sinh : 14/07/1994Ngày tham gia : 19/10/2010Đến từ : My Mother | | Tiêu đề: Re: Tham khảo bài tập tí Fri Jan 14, 2011 4:42 pm | | sư phụ ơi, nếu -10^15 <= f(k) <= 10^15 thì kiểu dữ liệu của f(k) là gì? số lớn quá, past đề nhầm rùi làm tạm luôn |
| | | | Sponsored content | | Tiêu đề: Re: Tham khảo bài tập tí |
| | | |
| Trang 1 trong tổng số 1 trang | | Permissions in this forum: | Bạn không có quyền trả lời bài viết | | Club Olympic Tin học trường THPT Kon Tum :: Nhóm chuyên mục :: Pascal :: Bài tập cơ bản |  |
|
| | Club Olympic Tin học trường THPT Kon Tum :: Nhóm chuyên mục :: Pascal :: Bài tập cơ bản |  |
|
|
| Chuyển đến: Chọn Diễn Đàn||--Quy định chung của forum| |--Quy định khi tham gia gửi bài viết| |--Quy tắc tính điểm thành tích| |--Góp ý cho forum| |--Quy định cho các điều hành viên| |--Nhóm chuyên mục |--Pascal | |--Lý thuyết | |--Bài tập cơ bản | |--Trao đổi | |--Đề thi | |--Máy tính và hệ điều hành |--Microsoft Office | |--MS Word | |--MS PowerPoint | |--MS Exel | |--MS Access | |--Paint | |--Internet |--Phần mềm ứng dụng khác |
|
Club Olympic Tin học trường THPT Kon Tum
