Как сделать так, чтобы программа работала без массива? - Pascal ABC

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

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

Решение задачи: «Как сделать так, чтобы программа работала без массива?»

textual
Листинг программы
var f:text;
    a:integer;
    ars:string;
begin;
assign(f,'C:\Users\oleg\Desktop\хлам\для сдачи ноут\7 лаба\о.txt');
reset(f);
a:=0;
while not Eof(f) do//если достигнут конц фала то возвращает истину
 begin
  readln(f,ars);
  if pos('.',ars)<>0 then a:=a+1;
 end;
close(f);
writeln(a);
end.

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

  1. Переменная f устанавливается в значение text, что означает, что мы будем работать с текстовым файлом.
  2. Переменная a устанавливается в значение integer, что означает, что мы будем работать с целым числом.
  3. Переменная ars устанавливается в значение string, что означает, что мы будем работать со строкой.
  4. Функция assign используется для назначения пути к файлу переменной f.
  5. Функция reset используется для подготовки файла к чтению.
  6. Переменная a инициализируется значением 0.
  7. Запускается цикл while not Eof(f) (цикл будет выполняться до тех пор, пока не будет достигнут конец файла).
  8. В цикле вызывается функция readln(f,ars), которая читает строку из файла и сохраняет ее в переменной ars.
  9. Внутри цикла проверяется, содержит ли строка точку (if pos('.',ars)<>0). Если это условие истинно, то значение переменной a увеличивается на 1.
  10. После завершения цикла while not Eof(f) вызывается функция close(f), которая закрывает файл.
  11. Выводится значение переменной a.

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

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