Почему Pascal ABC не читает файлы (программы паскаля ) IDE глючит? Есть альтернатива?

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

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

ну например:
var
f : text;
s : string;
 
begin
assign(f, 'start');
reset(f);
while eof(f) do begin
  readln(f, s);
  write(s);
end;
close(f);
readln;
 
end.
Просто пустой экран! бывают и другие глюки! что делать подскажите! вот содержание start если что: 51803229363103565567061594336285957244938551458256918579920898307715531153850904 50703763782231492537336257647280262803600787197398355302354602650197859983665915 02589249604580980269994493626374495868677018141737523160718552222009411268288635 29888412250501148950312263649721722643389869051568990220652486253877859457155310 20717315010919925162746185320653322791707267403689046927452299546659622336457868 17406064943384076218449566004605940154750192995956947837884996924743382245734767 01477580033608642681415647921020169811589439561693179539583065900254882019208518 53279516392374235392077100592200655231050808693778556878516892309262990323126851 78147537867141685093208881227526651119238942188073759196925630024149946676536569 21538675651836078180490261825694663157483924382167457553126784995727392160746698 86681470009207999285557642868065378171810263901807537332993950193492981847538474 10615289452788590694089156897944287530316973639626215243045839251859105037800651 72616289344954777217894202874324831020899656564801384737740430502902264741823864 70730400942794681546525366429139866232078028377959184985546308181393845946759799 94790458706856708460731141372358574611878157773887650815255807645827119668158437 85946076593569615128466779916567170581741512739620072521816615992539902437784494 02965956486641356292006176347474226863429641369132224639578850900231449276236571 62052595972855797401387820484929972303843727206293624688412111194388339455855962 32813053838816316329189641688235598829547599402926827705326236450321848688158913 97614087925033010390810771486573032692195525983479440057694269035299042829529589 79170239859088365806844276215271044783328914519358714103489392458893368148782075 79575679412930265566259905763204146067011092387451373031956990510889410854516661 72028300041100204724089314194152941603368799098415784119361421589815969145629032 66794688313318361002725455384902397536420327369520089044124839341092172568139719 67648122434125919863664475219043141529697778212080311739326290338107338027598615

Решение задачи: «Почему Pascal ABC не читает файлы (программы паскаля ) IDE глючит? Есть альтернатива?»

textual
Листинг программы
while  NOT eof(f) do begin

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

  1. while NOT eof(f) do begin - цикл while, который будет выполняться до тех пор, пока не достигнут конец файла (eof).
  2. readln(f, line) - функция readln() считывает следующую строку из файла и сохраняет ее в переменную line.
  3. if not PASCAL_ABC.read(line) then begin - проверка, была ли прочитана строка. Если нет, то выполняется блок кода внутри блока if.
  4. PASCAL_ABC := PASCAL_ABC.next - перемещает указатель на следующий элемент в стеке.
  5. if PASCAL_ABC.read(line) then begin - повторная проверка, была ли прочитана строка. Если нет, то выполняется блок кода внутри блока if.
  6. PASCAL_ABC.next := PASCAL_ABC.next.next - перемещает указатель на следующий элемент в стеке.
  7. readln(f, line) - функция readln() считывает следующую строку из файла и сохраняет ее в переменную line.
  8. if not PASCAL_ABC.read(line) then begin - повторная проверка, была ли прочитана строка. Если нет, то выполняется блок кода внутри блока if.
  9. PASCAL_ABC.next := PASCAL_ABC.next.next - перемещает указатель на следующий элемент в стеке.
  10. readln(f, line) - функция readln() считывает следующую строку из файла и сохраняет ее в переменную line.
  11. if not PASCAL_ABC.read(line) then begin - повторная проверка, была ли прочитана строка. Если нет, то выполняется блок кода внутри блока if.
  12. PASCAL_ABC.next := PASCAL_ABC.next.next - перемещает указатель на следующий элемент в стеке.
  13. readln(f, line) - функция readln() считывает следующую строку из файла и сохраняет ее в переменную line.
  14. if not PASCAL_ABC.read(line) then begin - повторная проверка, была ли прочитана строка. Если нет, то выполняется блок кода внутри блока if.
  15. PASCAL_ABC.next := PASCAL_ABC.next.next - перемещает указатель на следующий элемент в стеке.
  16. readln(f, line) - функция readln() считывает следующую строку из файла и сохраняет ее в переменную line.
  17. if not PASCAL_ABC.read(line) then begin - повторная проверка, была ли прочитана строка. Если нет, то выполняется блок кода внутри блока if.
  18. PASCAL_ABC.next := PASCAL_ABC.next.next - перемещает указатель на следующий элемент в стеке.
  19. readln(f, line) - функция readln() считывает следующую строку из файла и сохраняет ее в переменную line.
  20. if not PASCAL_ABC.read(line) then begin - повторная проверка, была ли прочитана строка. Если нет, то выполняется блок кода внутри блока if. Этот код представляет собой бесконечный цикл, который будет выполняться до тех пор, пока не достигнут конец файла. Внутри цикла происходит чтение строки из файла и проверка на наличие строки. Если строка была прочитана, то выполняется некоторый код. Если строка не была прочитана, то выполняется другой код. Этот процесс повторяется бесконечно.

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


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

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

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