Суть программы такова: ты вводишь название программы,а программы выводит на экран код этой программы!
Основная проблема такова,что если в коде программы 120 строк,то мы увидим только последние 40 строк!
"Листание" вперёд у меня получилось,а вот назад-никак!
Помогите! Program HW2N1;
uses crt;
const p=80; {подключение библиотек}
var
t: text;
m,o,y:char;
i,d,r,g,c:integer;
n:string; {описание переменных}
Begin
clrscr; {начало программы}
writeln('введи имя программы'); {вывод сообщения с запросом}
readln(n);{ввод имени открываемой программы}
assign(t,n); {связываем логическмй файл t с физическим файлом,
имя которого ввели}
reset(t); {открытиена чтение}
for i:=1 to 20 do begin
read(t,m); {считываем из файла f n-ый эл-нт}
write(m);
writeln(' ">" или "<" ');
readln(o);
case o of
'>':begin d:=0;
Writeln('===========================================================');
while d<20 do begin
read(t,m); {считываем из файла f n-ый эл-нт}
write(m);
if (eoln(t)=true) then d:=d+1;
end;
Writeln('===========================================================');
end;
'<':begin c:=0;g:=0;g:=g+1;;
Writeln('===========================================================');
read(t,m); {считываем из файла f n-ый эл-нт}
while(EOF(t)<>true) do begin
if (eoln(t)=true) then c:=c+1;
if c=d-20*g then write(m);
Writeln('===========================================================');
end;
end;
'e': exit;
end;
end;
{выводим эл-нт на печать}
{конец цикла}
close(t); {закрываем файл}
readln; {ожидание ввода ENTER}
end.{конец программы}
