Bài Tập Pascal Nâng Cao (có Lời Giải) - Tài Liệu Text - 123doc

Tải bản đầy đủ (.doc) (113 trang)

1. Trang chủ
>>
2. Giáo án - Bài giảng
>>
3. Tin học

Bài tập pascal nâng cao (có lời giải)

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (313.95 KB, 113 trang )

1. Cho số tự nhiên N và số tự nhiên k. Tính chữ số thứ k trong biểu diễn thập phân của số N.(Ví dụ cho N=23456 và k=1 thì ta có đáp số là 6, k=4 thì ta có đáp số là 3)Uses CRT;Var N: longint;i, k, d: byte;BeginCLRSCR;Write('Nhập số N:'); Readln(N);Writeln('Nhập số K1 phan tu');Readln;END.9. Cho xâu ký tự S. Viết chương trình tính xem trong S có bao nhiêu chữ cái tiếng Anh(không phân biệt chữ in hoa hay thường). Ví dụ với S là "Ha thanh" ta có đáp số là 4.Var S: string;i, j, dem: integer;Beginwrite('Cho một xâu ký tự S: '); Readln(S);i:=2; dem:=1While (i1 thenbegini:=1;repeatj:=i+1;repeattrung:=false;if b[i]=b[j] then trung:= true;if trung thenbeginif jm);inc(i);until i>m;end;if m>0 then for k:=1 to m do write(b[k]:4);readln;END.10. Cho trước một xâu ký tự bất kỳ. Trong xâu trên sẽ có xen kẽ các ký tự số và ký tự khônglà số. Ví dụ:dgghhg456cghh086chgh1fdfgdfg76cgf9Viết chương trình tách các phần là "số" của xâu trên và đưa ra một mảng số nguyên. Trong vídụ trên mảng số sẽ có 4 phần tử bao gồm 456, 86, 1 và 76.USES crt;CONSTso: set of char = ['0','1','2','3','4','5','6','7','8','9'];VARa: array[1..100] of integer;st,b: string;l,i,n: byte;c: integer;BEGINclrscr;writeln('Chuong trinh xu li xau co so :');write('Nhap mot xau co so : ');readln(st);l:=length(st);i:=1; n:=0;repeatif (st[i] in so) thenbeginb:= '';repeatb:=b+st[i];inc(i);until (not(st[i] in so))or(i>l);inc(n);val(b,a[n],c);end;inc(i);until i>l;10for i:=1 to n do write(a[i]:8);readln;END.11. Cho hai dãy sốa1, a2, a3, ..., anb1, b2, b3, ..., bnHãy viết chương trình tìm ra một dãy con chung liên tục có độ dài lớn nhất của hai dãy trên.uses crt;vara,b:array[1..100] of integer;n,i,j,jmax,k,kmax:byte;ch:char;BEGINclrscr;writeln('Chuong trinh tim mot day con chung lien tuc cua hai day so: ');write('Nhap do dai N cua hai day : ');readln(N);writeln('Nhap day a : ');for i:=1 to n dobeginwrite('a[',i,'] = ');readln(a[i]);end;writeln('Nhap day b : ');for i:=1 to n dobeginwrite('b[',i,'] = '); readln(b[i]);end;kmax:=0;for i:=1 to n do11for j:=1 to n dobeginif a[i]=b[j] thenbegink:=0;repeatinc(k);until (i+k>n)or(j+k>n)or(a[i+k]b[j+k]);if kmax33 thi he so > maxlongint }BeginClrscr;Writeln('Tam giác Pascal:');Write('Nhấp số n:'); Readln(n);For i:=0 to n doBeginFor j:=i downto 0 doIf (j=i)or(j=0) then a[j]:=1Else a[j]:=a[j]+a[j-1];End;For j:=0 to n do Write(a[j]:10);Readln;End.13. Xét bàn cờ vua 8x8. Các ô được đánh dấu bởi vị trí hàng và cột, ví dụ vị trí (1,2) chỉ ra vịtrí hàng 1 cột 2.Cho trước k vị trí, trên đó đã xếp k quân hậu: (i1,j1), (i2,j2), ..., (ik,jk).Viết chương trình kiểm tra xem k quân hậu trên có ở trong trạng thái độc lập hay không (tứclà không quân nào có thể khống chế quân nào).Trường hợp các quân trên đã độc lập hãy kiểm tra xem có thể bổ xung thêm một quân hậunữa mà vẫn bảo đảm tính độc lập được hay không, nếu được hãy chỉ ra vị trí của quân hậumới.Uses crt;Varih, jh: array[1..8] of byte;13i, j, k: byte;ihm, jhm: integer;dl, ok, t: boolean;BeginClrscr;Writeln('Nhập vị trí của k quân hậu trên bàn cờ (1