Программа для подготовки к экзамену. Работа с файлом.

[zink]

Нужна программа для подготовки к экзамену.
Суть программы: Составление билетов к экзамену. Из текстового файла Questions.txt (n строк с вопросами к экзамену) нужно вывести m случайных строк. В текстовом файле каждая строка является одним вопросом.

Написать мог бы сам, но работу с файлами надо вспомнить, да и готовлюсь к экзамену.

Алгоритм:
for i=1 to m do
begin
генерируем число k принадлежащее n через randomize
выписываем k-тую строку из файла ( вот здесь подзабыл, как делать это)
end;

Актуально до 16 числа =)

[Zer0]

Один из простых вариантов:

var q:array[1..250] of string;
     y:set of byte;
     f:text;
     m,r,i,k:integer;
begin
     randomize;
     assign(f,'Questions.txt');
     reset(f);
     k:=0;
     while not eof(f) do begin
      inc(k);
      readln(f,q[k]);
     end;
     close(f);
     y:=[];
     write ('M = ');
     readln(m);
     for i:=1 to m do begin
     repeat
       r:=random(k)+1;
     until not (r in y);
     y:=y+[r];
     writeln(q[r]);
     end;
end.

Из минусов - не будет работать, когда вопросов в файле больше 250

[zink]

Сообщение от Zer0

Один из простых вариантов:

var q:array[1..250] of string;
     y:set of byte;
     f:text;
     m,r,i,k:integer;
begin
     randomize;
     assign(f,'Questions.txt');
     reset(f);
     k:=0;
     while not eof(f) do begin
      inc(k);
      readln(f,q[k]);
     end;
     close(f);
     y:=[];
     write ('M = ');
     readln(m);
     for i:=1 to m do begin
     repeat
       r:=random(k)+1;
     until not (r in y);
     y:=y+[r];
     writeln(q[r]);
     end;
end.

Из минусов - не будет работать, когда вопросов в файле больше 250

Спасибо большое =) пойду готовиться. Вопросов меньше, так что работать будет =)

[Serge_Bliznykov]

через TStringList метод LoadFromFile('имя текстового файла')

УПС... устарело!