Oldal 1 of 2
Hátralevő idő:
Válaszoljon az alábbi kérdésre!

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

Begin

t.h:=0;

For i:=to Round(Sqrt(x)) do Begin

If (xmodi)=then Begin

Inc(t.h);t.e[t.h]:=i;Inc(t.h);t.e[t.h]:=div i;End;End;

End;

Function O_Fv(Const t:TE):LongInt;

Var S,i:LongInt;

Begin

S:=0;For i:=to t.do S:=S+t.e[i];O_Fv:=S

End;

Procedure C_elj(Const t:TE);

Var i,j:Integer;

Begin

i:=1;

For j:=to t.div do Begin

Writeln(j:4,':',t.e[i]:5,',',t.e[i+1]:5);Inc(i,2);End;

End;

Procedure B_elj(Const N:Integer;Var B:TE);

Var i,j:Integer;

OOi,OOj:LongInt;

Oi,Oj:TE;

Begin

B.h:=0;

For i:=to do Begin

OGy(i,Oi);OOi:=O_Fv(Oi);j:=OOi;

If i<then Begin

OGy(j,Oj);OOj:=O_Fv(Oj);

If (OOi=j)and(OOj=ithen Begin

Inc(B.h);B.e[B.h]:=i;Inc(B.h);B.e[B.h]:=j;End End;

End;End;

Begin

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

Mi a feladata az O_Fv függvénynek?
A válasz hibákat tartalmaz, amelyeket piros színnel vannak kiemelve. Kérjük, javítsa őket, és próbálja újra.
Megszakít

Oldalainkat 16 vendég és 0 tag böngészi

http://b.artbetting.net/

UK Bookmaker http://f.artbetting.net
Reviw on bokmaker Number 1 in uk http://w.artbetting.net/ William Hill
Full Reviw on best bokmaker - Ladbrokes http://l.artbetting.net/ full information