Loi giai 100 de thi tin hoc va nha truong

... 2]; i := l; j := r; repeat while Val[t, i] < x do Inc(i); while Val[t, j] > x do Dec(j); if i <= j then begin Tg := Val[t, i]; Val[t, i] := Val[t, j]; Val[t, j] := Tg; Tg := Pos[t, i]; ... chuso(NN: longInt):char; Var st:string[10]; dem,M:longInt; Begin dem:=0; M:=1; Repeat str(M,st); dem := dem+length(st); inc(M); Until dem >= NN; chuso := st[length(st) - (dem - NN)] (*----------...

Ngày tải lên: 31/08/2013, 20:10

... 2]; i := l; j := r; repeat while Val[t, i] < x do Inc(i); while Val[t, j] > x do Dec(j); if i <= j then begin Tg := Val[t, i]; Val[t, i] := Val[t, j]; Val[t, j] := Tg; Tg := Pos[t, i]; ... chuso(NN: longInt):char; Var st:string[10]; dem,M:longInt; Begin dem:=0; M:=1; Repeat str(M,st); dem := dem+length(st); inc(M); Until dem >= NN; chuso := st[length(st) - (dem - NN)] (*----------...

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

... ứ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 11 01 01000 1 1001 1000 01000 110 Hãy viết chương ... chương trình: Nhap xau ky tu: Tin học & Nhà trường 100 Đề Toán - Tin học 100 Problems & Solutions Page 13 PEACE ↵ Xau ky tu tren duoc ma hoa la: UJFHJ Nhap xau...

Ngày tải lên: 31/08/2013, 20:10

... 2]; i := l; j := r; repeat while Val[t, i] < x do Inc(i); while Val[t, j] > x do Dec(j); if i <= j then begin Tg := Val[t, i]; Val[t, i] := Val[t, j]; Val[t, j] := Tg; Tg := Pos[t, i]; ... chuso(NN: longInt):char; Var st:string[10]; dem,M:longInt; Begin dem:=0; M:=1; Repeat str(M,st); dem := dem+length(st); inc(M); Until dem >= NN; chuso := st[length(st) - (dem - NN)] (*----------...

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

Ngày tải lên: 14/10/2013, 02:11

... 2]; i := l; j := r; repeat while Val[t, i] < x do Inc(i); while Val[t, j] > x do Dec(j); if i <= j then begin Tg := Val[t, i]; Val[t, i] := Val[t, j]; Val[t, j] := Tg; Tg := Pos[t, i]; ... chuso(NN: longInt):char; Var st:string[10]; dem,M:longInt; Begin dem:=0; M:=1; Repeat str(M,st); dem := dem+length(st); inc(M); Until dem >= NN; chuso := st[length(st) - (dem - NN)] (*----------...

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

... 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: 02/08/2013, 01:25

... 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

... trống ứng với 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 01 01000 1 1001 1000 01000 110 Hãy viết chương trình tính số quân cờ liên tục lớn nhất nằm ... crt; var n:longint; Tin học & Nhà trường 100 Đề Toán - Tin học 100 Problems & Solutions Page 100 while not eof(f) do begin readln(f,s); for k:=1 to n do for i:...

Ngày tải lên: 18/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