ĐỀ3: Nối 1 chỉ mục

by **QuangPhuong** Sat Oct 18, 2008 10:06 pm

QuangPhuong: Admin; Tổng số bài gửi : 110
Age : 37
Địa chỉ : Lớp 06CNTT- Đại học sư phạm - Đại học Đà Nẵng
Điểm thưởng cho đóng góp :

Registration date : 18/09/2008

by QuangPhuong Sat Oct 18, 2008 10:06 pm

Code:: program noi_1_chimuc; uses crt; type contro=^node; node=record x,y:integer; next:contro; end; mang=array[1..10] of contro; mang1=array[1..10] of integer; var m1,m2:mang; b1,b2:mang1; u,v,k,i,j:integer; f1,f2:text; procedure taonut(var f:contro;a,b:integer); var p,q:contro; begin new(q);q^.x:=a;q^.y:=b;q^.next:=nil; if f=nil then begin f:=q;p:=f; end else begin p:=f; while p^.next<>nil do p:=p^.next; p^.next:=q; end; end; procedure docfile1(var m:mang;var b:mang1; var u:integer); var i,j,x,y,z:integer; begin assign(f1,'file1.txt'); reset(f1); x:=0;i:=0; while not eof(f1) do begin x:=z; read(f1,y);readln(f1,z); if x<>z then begin inc(i); b[i]:=z; end; taonut(m[i],y,z); end; u:=i; close(f1); end; procedure docfile2(var m:mang;var b:mang1; var u:integer); var i,j,x,y,z:integer; begin assign(f2,'file2.txt'); reset(f2); x:=0;i:=0; while not eof(f2) do begin x:=y; read(f2,y);readln(f2,z); if x<>y then begin inc(i); b[i]:=y; end; taonut(m[i],y,z); end; u:=i; close(f2); end; procedure ketxuat; var i,j:integer;p,q:contro; f:text; begin assign(f,'Ketqua.txt'); rewrite(f); for i:=1 to u do for j:=1 to v do if b1[i]=b2[j] then begin p:=m1[i]; while p<>nil do begin q:=m2[j]; while q<>nil do begin write(f,p^.x:3); write(f,b1[i]:3); writeln(f,q^.y:3); write(p^.x:3); write(b1[i]:3); writeln(q^.y:3); q:=q^.next; end; p:=p^.next; end; end; close(f) end; begin clrscr; for i:=1 to 10 do begin m1[i]:=nil; m2[i]:=nil; end; docfile1(m1,b1,u); docfile2(m2,b2,v); ketxuat; readln; end.

Anh em nào trúng đề này thì nhờ Dyn(DUY_06CNTT1) chuyển sang C nhé! hihihi

Tìm kiếm

Display results as : Số bài Chủ đề
Advanced Search