Рандомно выводить строки из txt файла

GreeNPk

Нужно написать программу чтоб рандомно выводить строки из txt файла... По одной строке, и при нажатии на какую-нибудь клавишу выводить другую запись... Помогите кто чем сможеет..
4 ответа

GreeNPk

var
   t:text;
   i,g:longint;
   s:string;
begin
   assign(t,'text.txt');{связь с файлом}
   reset(t);{перевод курсора на первую строчку}
   g:=0;
   while(not(eof(t))) do{пока не конец файла}
   begin
      readln(t,s);
      g:=g+1;
   end;
   i:=random(g)+1;{из-зи диапозона рандома}
   reset(t);
   for i:=i downto 1 do
   begin
      readln(t,s);
   end;
   writeln(s);
end.


GreeNPk

Спасибо огромное!!!:dance3:


GreeNPk

GreeNPk, осталось выяснить, допускаются ли повторы.


GreeNPk

Допускаются.