Bài giảng 100 de tin hoc trong nha truong

... 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); ... 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; Tin học & Nhà trường 100 Đề To...

Ngày tải lên: 28/11/2013, 22:11

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

... Readln(F1,N); Write(F2,’N=,’=>’,12+((N-2)*8)); Dem:= 0; For I:= 0 to N-1 do For J:= 0 to J-1 do If Trong (I,J) and Trong (I+1,J) and Trong (I,J+1) and Trong (I+1, J+1) then(Dem) Writeln(F2,’’,Dem*4); End; Close(F1); Close(F2); End. (Lời ... bạn trong nhóm 2 đã quen nhau đôi một thì nhóm đó chứa 3 bạn quen nhau đôi một cần tìm; ngược lại nếu có 2 bạn trong nhóm không quen n...

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); ... 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; Tin học & Nhà trường 100 Đề To...

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

... M,N< =100 4. Cho ma trận MxN hãy tìm hình chữ nhật có diện tích lớn nhất có các phần tử bằng nhau. Cách giải bài toán 2 giải giống với bài toán 1, bài toán 3 và 4 giải giống nhau dựa trên cơ sở bài ... 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; assig...

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); ... 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; Tin học & Nhà trường 100 Đề To...

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