Zvejkal – Pascal – Fórum – Programujte.com

,no jinac delam to ve freepascalu

tak jsem to vyresil nahodnym...

program zvejkal;

uses crt;

var soubor:text;

slovo,slovo2:string[120];

i:integer;//promena pro nahodne generovani



procedure inicializace;

begin

  assign(soubor,'slovnik.txt');

{$I-}

reset(soubor);

{$I+}

   if IOResult<>0 then rewrite(soubor);



   close(soubor);

end;

procedure ulozit; //procedura ulozit

begin

append(soubor);

writeln(soubor,slovo);

close(soubor);

end;

procedure vetu; //procedura nacist

begin

reset(soubor);

randomize;

i:=20;



for i:=random(i)+random(i)-10 to random(i)+20 do begin

readln(soubor,slovo2);

end;

close(soubor);

end;

//hlavni program

begin

textbackground(red);

textcolor(yellow);

clrscr;

writeln('ahoj,ja jsem zvejkal ocem si pozvejkame?');



repeat

readln(slovo);

inicializace;

ulozit;

vetu;

writeln(slovo2);

until(slovo='konec');

end.