Pascal uzduotis Zaisliukai

Taigi, si uzduotis yra http://www.google.lt/url?sa=t&rct=j&q=&esrc=s&source=web&cd=2&ved=0CFkQFjAB&url=http%3A%2F%2Fwww.venta.akmene.lm.lt%2Fstatiniai%2FIT%2520VBE%2F1347_IT-pvz-2010.pdf&ei=D7XLT8mjNIzVsgaFncXxBg&usg=AFQjCNF_SM_lrDwsR9yesDcM-froB9vfxg&sig2=mDtbxPWMeAAL-i8K3WrnMw siame egzamine 14 psl.Mano kodas toks:

program Zaisliukai;


type mas=array[1..100] of integer;

var i,j,e,e1,g,g1:integer;
Df,Rf:text;
A,B,C,D:mas;
m,n:integer;

procedure Duomenys;
begin
   Assign(Df,'U1duom.txt');
   Reset(Df);
   Readln(Df,m,n);
   for i:=1 to m do
   Read(Df,A[i]);
   for i:=1 to n do
   Read(Df,B[i]);
   Close(Df);
end;

procedure mainai;
begin
   e:=0;
   e1:=0;
   for i:=1 to m do
   begin
       for j:=1 to n do
       if (A[i]<>B[j]) then e:=e+1;
       if n=e then C[i]:=A[i];
   end;
   for i:=1 to n do
   begin
       for j:=1 to n do
       if (B[i]<>A[j]) then e1:=e1+1;
       if e1=n then D[i]:=B[i];
   end;
end;

procedure Irasymas;
begin
   Assign(Rf,'U1rez.txt');
   Rewrite(Rf);
   Duomenys;
   mainai;
   for i:=1 to m do
   if C[i]=0 then g:=g+1;
   if g=m then Writeln(Rf,'0') else if g<>m then
   begin
       for i:=1 to m do
       if C[i]<>0 then Writeln(Rf,C[i]);
   end;
   for i:=1 to n do
   if D[i]=0 then g1:=g1+1;
   if g1=n then Write(Rf, '0') else if g1<>n then
   begin
       for i:=1 to n do
       if D[i]<>0 then Writeln(Rf,D[i]);
   end;
   Close(Rf);
end;

begin
  Irasymas;
end.

Mano duomenu failas:

8 14

5 6 6 9 14 25 8 26

5 20 6 7 13 7 9 10 12 20 15 16 21 5

Ir rez failas:

0

0

parasius puse programos, turetu parasyti, kuriais zaisliukais gali apsikeisti lina, o paskiau Jurgis, bet abiejose eilutese raso 0 kaip matot, nors antroje neturetu but 0, pasinagrinekit mano koda, kas galit ir padekit prasau :)

Taigi, si uzduotis yra http://www.google.lt...MeAAL-i8K3WrnMw siame egzamine 14 psl.Mano kodas toks:

program Zaisliukai;

 

Geriau miegot eik :) Bus naudingiau :)

Vistiek dar manau galiu kazkiek ismokti, noris kuo daugiau gaut, tai dar kokia 1h pasedesiu :D

Reikėjo mokytis ne dieną prieš egzaminą :) Max uždavinuką lengvai galėjai šiandien pasidaryt :) paskutinė diena skirta teorijai ir poilsiui, kuris YRA BŪTINAS :)

Nu viska as suprantu, bet negi sunku parasyt, kas cia blogai? :)

Išsimiegok tau sako, tavo pačio labui! :) Iš patirties neveltui sako, dar ir ne vienas pasakys ;)