,no jinac delam to ve freepascalu
Fórum › Pascal
Zvejkal
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.
vsem diky za pomoc...
Zjistit počet nových příspěvků
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 1 host
Podobná vlákna
žvejkal2009 — založil Melamber777
Moderátoři diskuze