Выборочное чтение из файла - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Бодрого дня, господа. Ни как не могу найти решение такой проблемки: Есть файл, допустим, info.txt:
Первая строка Первого пункта Вторая строка Первого пункта Третья строка Первого пункта Первая строка Второго пункта Вторая строка Второго пункта Третья строка Второго пункта Первая строка Третьего пункта Вторая строка Третьего пункта Третья строка Третьего пункта
В паскале делаем якобы "меню":
writeln('1.');
writeln('2.');
writeln('3.');
readln(N);
assign(F,'info.txt');
reset(F);
Человек вводит "1", "2" или "3". Необходимо прочитать нужные строки (с 1 по 3 или с 4 по 6, или с 7 по 9) и вывести на экран. И на этом ступор. Знаю, как прочитать и вывести 3 первых. А остальные ... Очень хелп.

Решение задачи: «Выборочное чтение из файла»

textual
Листинг программы
uses classes;
var
  L : TStringList;
  i, n : integer;
begin
  writeln('1.');
  writeln('2.');
  writeln('3.');
  readln(N);
 
  L := TStringList.Create;
  L.LoadFromFile('info.txt');
  for i := (n - 1)*3 to 3*n - 1 do
    writeln(L[i]);
  L.Free;
end.

Объяснение кода листинга программы

  1. Объявление переменных: L (TStringList), i, n (integer).
  2. Вывод на экран списка чисел от 1 до 3.
  3. Чтение с клавиатуры числа N.
  4. Создание объекта TStringList (L) и загрузка его из файла 'info.txt'.
  5. Организация цикла по элементам списка (L) от (n-1)3 до 3n-1.
  6. Вывод на экран содержимого каждого элемента списка (L).
  7. Освобождение памяти, занятой объектом TStringList (L).

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.333 из 5
Похожие ответы