на паскале АВС видает ошибку ввода строка 39
помогите
задание Написать функцию, которая проверяет, упорядочены ли элементы списка по алфавиту
type telem='a'..'z';
list=^node;
node= record
info : telem;
next : list
end;
var s,l : list;
x : telem;
n,i : integer;
function sort(l : list) : boolean;
var p,q : list; {ссылка на пару соседних звеньев}
ok : boolean;
begin
ok:=true; p:=L;
{nil или ссылка на 1-е звено} if p<>nil then begin q:=p^.next;
{nil или ссылка на 2-е звено} while (q<>nil) and ok do
begin
ok:=p^.info<=q^.info;
p:=q; q:=q^.next {переход к след. паре}
end
end;
sort:=ok
end;
procedure out_spisok(l:list);
begin
while l<> nil do
begin s:=l^.next; write(l^.info,' '); l:=s; end;
writeln;
end;
begin
{формируем список}
s:=nil;
writeln('Введите количество элементов списка');
readln(n);
for i:=1 to n do
begin
new(l); l^.next:=s; readln(x); l^.info:=x; s:=l; end;
{выводим список на экран}
writeln('Введенный список');
out_spisok(l);
if sort(l) then writeln('Список отсортирован по алфавиту')
else writeln('Список не отсортирован по алфавиту');
{освобождаем динамическую память}
while l<> nil do
begin s:=l^.next; dispose(l); l:=s; end;
end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.