Felhasználói név
Jelszó
Olvassa el, és értse meg az alábbi igénytelenül szedett programkódot!
Program MiEzAProgram;
Uses Crt;
Const MaxN=10000;
Type TE=Record
h:Integer;e:Array[1..MaxN] of Integer End;
VarN:LongInt;B:TE;c:Char;
Procedure A_elj(Var N:LongInt);
Begin
Repeat
Write('Meddig:');Readln(N);
Until(N>0)and(N<=MaxN);
End;
Procedure OGy(x:LongInt;Var t:TE);
Vari:LongInt;
t.h:=0;
For i:=2 to Round(Sqrt(x)) do Begin
If (xmodi)=0 then Begin
Inc(t.h);t.e[t.h]:=i;Inc(t.h);t.e[t.h]:=x div i;End;End;
Function O_Fv(Const t:TE):LongInt;
Var S,i:LongInt;
S:=0;For i:=1 to t.h do S:=S+t.e[i];O_Fv:=S
Procedure C_elj(Const t:TE);
Var i,j:Integer;
i:=1;
For j:=1 to t.h div 2 do Begin
Writeln(j:4,':',t.e[i]:5,',',t.e[i+1]:5);Inc(i,2);End;
Procedure B_elj(Const N:Integer;Var B:TE);
OOi,OOj:LongInt;
Oi,Oj:TE;
B.h:=0;
For i:=2 to N do Begin
OGy(i,Oi);OOi:=O_Fv(Oi);j:=OOi;
If i<j then Begin
OGy(j,Oj);OOj:=O_Fv(Oj);
If (OOi=j)and(OOj=i) then Begin
Inc(B.h);B.e[B.h]:=i;Inc(B.h);B.e[B.h]:=j;End End;
End;End;
ClrScr;
A_elj(N);B_elj(N,B);C_elj(B);
c:=ReadKey;
End.
Ha külön oldalon szeretné látni e kódot, akkor kattintson ide:
http://people.inf.elte.hu/szlavi/KozIsmInf/Teszt/E_struktura.pdf
Oldalainkat 16 vendég és 0 tag böngészi