27.Prednaska/Cvicenie: Rozdiel medzi revíziami

Z Pascal
Prejsť na: navigácia, hľadanie
Riadok 7: Riadok 7:
  
  
1. pre spájaný zoznam
+
1. Vytvorte triedu '''TSlovnik''', ktorá do spájaného zoznamu načíta zo súboru (napr. '''slovnik.txt''') zoznam dvojíc slov (slovenské anglické), napr.
 
{{Prog}}
 
{{Prog}}
  type
+
  pes dog
  PVrchol = ^TVrchol;
+
macka cat
  TVrchol = record
+
...
    Info: Integer;
+
    Next: PVrchol;
+
  end;
+
 
|}
 
|}
* napísať procedúru '''Urob(Z: PVrchol)''', ktorá za každý vrchol s párnou hodnotou vloží nový vrchol s nulovou hodnotou, napr. zo zoznamu
+
* trieda '''TSlovnik''' je spájaným zoznamom, ktorý bude mať vrcholy utriedené podľa anglických slovíčok, napr.  
 
{{Prog}}
 
{{Prog}}
  4 -> 5 -> 6 -> 7 -> 8 -> nil
+
  TVrchol = class
|}
+
  Slov, Angl: string;
:vyrobí zoznam
+
  Next: TVrchol;
{{Prog}}
+
  ...
  4 -> 0 -> 5 -> 6 -> 0 -> 7 -> 8 -> 0 -> nil
+
end;
 +
 
 +
TSlovnik = class
 +
  Z: Tvrchol;
 +
  constructor Create(Subor: string);
 +
  procedure Vloz(S, A: string);    ''// vloží do zoznamu na správne miesto ďalšiu dvojicu slov''
 +
  ...
 +
  end;
 
|}
 
|}

Verzia zo dňa a času 13:58, 2. marec 2013

27. Cvičenie


< 27.Prednáška | riešené úlohy

...

Domáca úloha

1. Vytvorte triedu TSlovnik, ktorá do spájaného zoznamu načíta zo súboru (napr. slovnik.txt) zoznam dvojíc slov (slovenské anglické), napr.

pes dog
macka cat
... 
  • trieda TSlovnik je spájaným zoznamom, ktorý bude mať vrcholy utriedené podľa anglických slovíčok, napr.
TVrchol = class
  Slov, Angl: string;
  Next: TVrchol;
  ...
end;
 
TSlovnik = class
  Z: Tvrchol;
  constructor Create(Subor: string);
  procedure Vloz(S, A: string);     // vloží do zoznamu na správne miesto ďalšiu dvojicu slov
  ...
end;