oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
 Trimis: 13.04.2008 13:52 Titlul subiectului: Problema 09 |
|
|
| Cod: |
{9. fisierele unu.txt si doi. txt contin fiecare dintre ele, numere intregi
distincte ordonate crescator. creati fisierul tei.txt si apoi scrieti in el,
cate una pe linie, valorile diferite din cele doua fisiere, in ordine crescatoare}
program ex9;
var f,g,h:text;
a,b,c:array[1..100] of integer;
n1,n2,n,i,j,k:integer;
begin
assign(f, 'unu.txt'); reset(f);
assign(g, 'doi.txt'); reset(g);
assign(h, 'trei.txt'); rewrite(h);
n1:=0; n2:=0; n:=0;
while not eof(f) do begin
n1:=n1+1;
read(f,a[n1]);
end;
while not eof(g) do begin
n2:=n2+1;
read(g,b[n2]);
end;
i:=1; j:=1;
while (i<=n1) and (j<=n2) do if a[i]<b[j] then begin
n:=n+1;
c[n]:=a[i];
i:=i+1;
end
else if a[i]>b[j] then begin
n:=n+1;
c[n]:=b[j];
j:=j+1;
end
else i:=i+1;
if i<=n1 then begin
n:=n+1;
c[n]:=a[i];
i:=i+1;
end;
if j<=n2 then begin
n:=n+1;
c[n]:=b[j];
j:=j+1;
end;
for k:=1 to n do writeln(h,c[k]);
close(f);
close(g);
close(h);
end.
|
|
|
