Felhasználói eszközök

Eszközök a webhelyen


inf-prog-genius-2018:inf-prog-genius-2018

Különbségek

A kiválasztott változat és az aktuális verzió közötti különbségek a következők.

Összehasonlító nézet linkje

Előző változat mindkét oldalon Előző változat
inf-prog-genius-2018:inf-prog-genius-2018 [2018/11/10 11:37]
beistvan
inf-prog-genius-2018:inf-prog-genius-2018 [2018/12/01 11:52] (aktuális)
beistvan
Sor 143: Sor 143:
 </​code>​ </​code>​
  
 +
 +===3. rész===
 +7. program
 +==Fkeres megvalósítása==
 +<code pascal fkereses.pas>​
 +program fkeres;
 +uses sysutils;
 +const n = 100;
 +type adattipus = record a: integer; s: string; end;
 +var t:text; s:string; a,​i,​db,​keres:​integer;​
 +    tomb: array[1..n] of adattipus;
 +begin
 +   ​assign(t,​ '​adatok.txt'​);​
 +   ​reset(t);​
 +   i:=1;
 +   while not eof(t) do begin
 +     ​readln(t,​ a, s);
 +     ​tomb[i].a := a;
 +     ​tomb[i].s := s;
 +     //​writeln(tomb[i].a,'​ -- ',​tomb[i].s);​
 +     ​inc(i);​
 +   end;
 +   db := i - 1;
 +   keres := 10;
 +   i := 1;
 +   ​while(i <= db) and (tomb[i].a <> keres)do
 +     ​inc(i);​
 +   if i <= db then
 +     ​writeln(trim(tomb[i].s));​
 +   ​close(t);​
 +   ​readln;​
 +end.
 +</​code>​
 +
 +A 7. programhoz szükséges szöveges állomány.
 +<code text adatok.txt>​
 +2 januar
 +4 februar
 +6 marcius
 +8 aprilis
 +10 majus
 +12 junius
 +14 julius
 +16 augusztus
 +18 szeptember
 +20 oktober
 +22 november
 +24 december
 +</​code>​
inf-prog-genius-2018/inf-prog-genius-2018.txt · Utolsó módosítás: 2018/12/01 11:52 szerkesztette: beistvan