Реферат: Курсовая по информатике

for j:=1 to max do

g[j]:=0;

i:=1;

repeat

repeat

g[i]:=g[i]+1;

until pr or (g[i]>n);

if (g[i]>n) then

begin

g[i]:=0; i:=i-1;

end

else i:=i+1;

until (i=1)or(i>max);

gen:=i>max;

end;

begin

clrscr;

writeln(' Haжмите цифру, указывающую номер файла');

writeln(' с которого будут счтываться данные. ');

writeln('');

for i:=1 to 3 do

writeln(' ',i,' - файл input',i,'.txt');

{Запpосномеpафайла.}

repeat

num:=readkey;

if not((num='1')or(num='2')or(num='3')) then

writeln(' Вы в чем-то ошиблись');

until (num='1')or(num='2')or(num='3');

filen:='input'+num+'.txt';