2015-03-07
292
#72: if i>1 then dec(i)
else i:=kol;
#80: if i<kol then inc(i)
else i:=1;
#75: i:=1;
#77: i:=kol;
end;
until k=#13;
Case i of
1: begin dialog;
writeln('Должен формироваться список');
savebase_in_file;
end;
2: begin dialog;
if pStart = nil then begin
writeln('Прочитайте данные из файла'#10#13);
List_creat;
Readln; end
Else
Begin
writeln('Выполняем сортировку списка');
List_creat;
Sort;end;
end;
3: begin dialog;
writeln('Список всех');
List_displ;
readln;
end;
Begin
dialog;
If noswap then begin
writeln('Список однофамильцев');
List_equal;readln; end
Else begin
Sort;List_equal;
readln;
end;
end;
Begin
dialog;
writeln('Вы хотите уничтожить список- y or n?');
readln(ch);
if ch='y' then DeleteList;
halt;
end;
end;
until false;
end;
procedure vivod(x1,y1,l:integer);
var i:integer;
Begin
{Текст основной программы, обеспечивающий решение сформулированной задачи}
kol:=5;
Textcolor(14);
Textbackground(0);
clrscr; dialog;
window(x1,y1,x1+l+4,y1+kol*2);
clrscr; textbackground(2);
for i:=1 to kol do
Begin
window(x1+2,y1+i*2-1,x1+l+2,y1+i*2-1);
clrscr;
write(alter[i]);
end;
alt(x1,y1,25);
end;
Begin
vivod(2,2,25);
window(1,1,80,25);
textbackground(0);
textcolor(7);
clrscr;
End.
