Почему Pascal ABC не читает файлы (программы паскаля ) IDE глючит? Есть альтернатива?
Формулировка задачи:
ну например:
Просто пустой экран!
бывают и другие глюки!
что делать подскажите!
вот содержание 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
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.
Решение задачи: «Почему Pascal ABC не читает файлы (программы паскаля ) IDE глючит? Есть альтернатива?»
textual
Листинг программы
while NOT eof(f) do begin
Объяснение кода листинга программы
while NOT eof(f) do begin
- цикл while, который будет выполняться до тех пор, пока не достигнут конец файла (eof).readln(f, line)
- функция readln() считывает следующую строку из файла и сохраняет ее в переменную line.if not PASCAL_ABC.read(line) then begin
- проверка, была ли прочитана строка. Если нет, то выполняется блок кода внутри блока if.PASCAL_ABC := PASCAL_ABC.next
- перемещает указатель на следующий элемент в стеке.if PASCAL_ABC.read(line) then begin
- повторная проверка, была ли прочитана строка. Если нет, то выполняется блок кода внутри блока if.PASCAL_ABC.next := PASCAL_ABC.next.next
- перемещает указатель на следующий элемент в стеке.readln(f, line)
- функция readln() считывает следующую строку из файла и сохраняет ее в переменную line.if not PASCAL_ABC.read(line) then begin
- повторная проверка, была ли прочитана строка. Если нет, то выполняется блок кода внутри блока if.PASCAL_ABC.next := PASCAL_ABC.next.next
- перемещает указатель на следующий элемент в стеке.readln(f, line)
- функция readln() считывает следующую строку из файла и сохраняет ее в переменную line.if not PASCAL_ABC.read(line) then begin
- повторная проверка, была ли прочитана строка. Если нет, то выполняется блок кода внутри блока if.PASCAL_ABC.next := PASCAL_ABC.next.next
- перемещает указатель на следующий элемент в стеке.readln(f, line)
- функция readln() считывает следующую строку из файла и сохраняет ее в переменную line.if not PASCAL_ABC.read(line) then begin
- повторная проверка, была ли прочитана строка. Если нет, то выполняется блок кода внутри блока if.PASCAL_ABC.next := PASCAL_ABC.next.next
- перемещает указатель на следующий элемент в стеке.readln(f, line)
- функция readln() считывает следующую строку из файла и сохраняет ее в переменную line.if not PASCAL_ABC.read(line) then begin
- повторная проверка, была ли прочитана строка. Если нет, то выполняется блок кода внутри блока if.PASCAL_ABC.next := PASCAL_ABC.next.next
- перемещает указатель на следующий элемент в стеке.readln(f, line)
- функция readln() считывает следующую строку из файла и сохраняет ее в переменную line.if not PASCAL_ABC.read(line) then begin
- повторная проверка, была ли прочитана строка. Если нет, то выполняется блок кода внутри блока if. Этот код представляет собой бесконечный цикл, который будет выполняться до тех пор, пока не достигнут конец файла. Внутри цикла происходит чтение строки из файла и проверка на наличие строки. Если строка была прочитана, то выполняется некоторый код. Если строка не была прочитана, то выполняется другой код. Этот процесс повторяется бесконечно.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д