[r]
(1)Bài giải đề thi học sinh giỏi tinh năm học 2008-2009 môn tin học Gv Thắng tin
Bài kho an toàn Program Bai1; Uses Crt;
Var f:Text;
A: Array[1 100,1 100] of byte; M,N,i,j:Byte; Kt: Boolean; Begin
Assign(f,’ANTOAN.INP’); Reset(f);
Read(f,M,N);
While not eof(f) Do For i:=1 to M For j:=1 to N
Read(f,a[i,j]); Close(f);
Kt:=False;
Assign(f,’ANTOAN.OUT’); Rewrite(f);
For i:=2 to M-1 Do For j:=2 to N-1 Do
If a[I,j]=0 then Begin
If (A[i,j+1]=1)and(A[i,j-1]=1)and(A[i+1,j+1]=1)and (A[i-1,j+1]=1)
and(A[i+1,j-1]=1)and(A[i+1,j]=1)and(A[i-1,j]=1)and (A[i-1,j-1]=1) Then
Begin
Writeln(f,i,’ ‘,j); Kt:=true;
End; End;
If Kt=False then Writeln(f,-1); Close(f);
End.
(2)(3)Bài xử lý mảng chiều Program Bai2;
Uses crt;
Var f:text; A:Array[1 10000] of integer; N,s,max,i: integer;
Begin
Assign(f,’SO.INP’); Reset(f);
N:=1;
While not eof(f) Begin
Read(f,a[n]) Inc(n); End;
Close(f);
S:=0; max:=a[1]; For i:=1 to n-1
Begin
S:=S+a[i];
If a[i]>max then max:=a[i]; End;
Assign(f,’SO.OUT’); Rewrite(f);
Writeln(f,s); Writeln(f,max); For i:=1 to n-1
If a[i]=max then write(f,i,’ ‘); Close(f);
Readln; End.
SO.INP 1 5 4
ANTOAN.OUT 2 2
(4)Bài xử lý xâu lặp Uses crt;
Var f:text; S1,S2:string; I,j:integer;
Begin
Clrscr;
Assign(f,’XAU.INP’); Reset(f);
Readln(f,S1); Readln(f,S2); Close(f);
I:=0;
While Pos(S1,S2)<>0 Do Begin
Inc(i);
J:=Pos(S1,S2); Delete(S2,1,j); End;
Assign(f,’XAU.OUT’); Rewrite(f);
Write(f,j); Close(f); Readln; End.
XAU.INP aba
bababababa
SO.OUT 49
8 4 8