Tài liệu 100 de TIN HOC VA NHA TRUONG

... dụ tệp BANCO.TXT ứng với bàn cờ trên: 0101 0100 100 11001 1 01000 11 0001 0100 0 01000 00 Tin học & Nhà trường 100 Đề Toán - Tin học Ngoductho suu tam Trang 100 For i:=1 to n do begin DocDay(s); ... to length(s)-length(des[k])+1 do if des[k]=copy(s,i,length(des[k])) then begin Tin học & Nhà trường 100 Đề Toán - Tin học Ngoductho suu tam Trang 106 delete(s,i,leng...

Ngày tải lên: 04/12/2013, 14:12

... tệp BANCO.TXT ứng với bàn cờ trên: 0101 0100 100 11001 1 01000 11 0001 0100 0 01000 00 Tin học & Nhà trường 100 Đề Toán - Tin học Ngoductho suu tam Trang 100 For i:=1 to n do begin DocDay(s); ... to length(s)-length(des[k])+1 do if des[k]=copy(s,i,length(des[k])) then begin Tin học & Nhà trường 100 Đề Toán - Tin học Ngoductho suu tam Trang 106 delete(s,i,length...

Ngày tải lên: 04/12/2013, 14:12

... exit else begin j:=0; dem:=0; repeat inc(dem); if luu[dem]=0 then j:=j+1; until j>b[i]; luu[dem]:=i; end; for i:=1 to n do write(g,luu[i]:2); end; BEGIN nhap; assign(g,gn);rewrite(g); ... Senbo; Uses Crt, Graph; Var f:Text; gd, gm, N, W,xo,yo:Integer; Procedure Nhap; Begin Write('Nhap so N<50:');Readln(N); If N>50 Then N:=50; End; Procedure Veluoi; Var i,j...

Ngày tải lên: 16/07/2013, 01:25

... số 0. Ví dụ tệp BANCO.TXT ứng với bàn cờ trên: 0101 0100 100 11001 1 01000 11 0001 0100 0 01000 00 Tin học & Nhà trường 100 Đề Toán - Tin học 100 Problems & Solutions Page 140 rewrite(f); ... Tim:=j+1; End; PROCEDURE Xuly; Var j,dem,i :word; Begin j:=1;dem:=0; Tin học & Nhà trường 100 Đề Toán - Tin học 100 Problems & Solutions Page 141 end; end; end;...

Ngày tải lên: 20/07/2013, 01:25

... số 0. Ví dụ tệp BANCO.TXT ứng với bàn cờ trên: 0101 0100 100 11001 1 01000 11 0001 0100 0 01000 00 Tin học & Nhà trường 100 Đề Toán - Tin học 100 Problems & Solutions Page 139 end; writeln;writeln(f); ... Tim:=j+1; End; PROCEDURE Xuly; Var j,dem,i :word; Begin j:=1;dem:=0; Tin học & Nhà trường 100 Đề Toán - Tin học 100 Problems & Solutions Page 141 end;...

Ngày tải lên: 03/08/2013, 01:27

... số 0. Ví dụ tệp BANCO.TXT ứng với bàn cờ trên: 0101 0100 100 11001 1 01000 11 0001 0100 0 01000 00 Tin học & Nhà trường 100 Đề Toán - Tin học 100 Problems & Solutions Page 139 end; writeln;writeln(f); ... Tim:=j+1; End; PROCEDURE Xuly; Var j,dem,i :word; Begin j:=1;dem:=0; Tin học & Nhà trường 100 Đề Toán - Tin học 100 Problems & Solutions Page 141 end;...

Ngày tải lên: 01/09/2013, 12:10

... ok=false then exit; end; end; procedure lam; var i,j,x,y,u,v,k :integer; begin for i:=1 to dem do for j:=dem downto 1 do for x:=1 to dem do for y:=dem downto 1 do begin for u:=1 to 5 do ... exit else begin j:=0; dem:=0; repeat inc(dem); if luu[dem]=0 then j:=j+1; until j>b[i]; luu[dem]:=i; end; for i:=1 to n do write(g,luu[i]:2); end; BEGIN nhap; assign(g,gn);rewrit...

Ngày tải lên: 17/09/2013, 10:10

... số 0. Ví dụ tệp BANCO.TXT ứng với bàn cờ trên: 0101 0100 100 11001 1 01000 11 0001 0100 0 01000 00 Tin học & Nhà trường 100 Đề Toán - Tin học 100 Problems & Solutions Page 139 end; writeln;writeln(f); ... Tim:=j+1; End; PROCEDURE Xuly; Var j,dem,i :word; Begin j:=1;dem:=0; Tin học & Nhà trường 100 Đề Toán - Tin học 100 Problems & Solutions Page 141 end;...

Ngày tải lên: 17/09/2013, 10:10

... số 0. Ví dụ tệp BANCO.TXT ứng với bàn cờ trên: 0101 0100 100 11001 1 01000 11 0001 0100 0 01000 00 Tin học & Nhà trường 100 Đề Toán - Tin học 100 Problems & Solutions Page 140 rewrite(f); ... Tim:=j+1; End; PROCEDURE Xuly; Var j,dem,i :word; Begin j:=1;dem:=0; Tin học & Nhà trường 100 Đề Toán - Tin học 100 Problems & Solutions Page 141 end; end; end;...

Ngày tải lên: 27/09/2013, 13:10

... dụ tệp BANCO.TXT ứng với bàn cờ trên: 0101 0100 100 11001 1 01000 11 0001 0100 0 01000 00 Tin học & Nhà trường 100 Đề Toán - Tin học Ngoductho suu tam Trang 100 For i:=1 to n do begin DocDay(s); ... to length(s)-length(des[k])+1 do if des[k]=copy(s,i,length(des[k])) then begin Tin học & Nhà trường 100 Đề Toán - Tin học Ngoductho suu tam Trang 106 delete(s,i,leng...

Ngày tải lên: 04/12/2013, 14:12