Лидеры рейтинга

ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

340

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Советник

267

Россия, Санкт-Петербург


ID: 400669

epimkin

Профессионал

254


ID: 137394

Megaloman

Мастер-Эксперт

122

Беларусь, Гомель


ID: 405239

al4293189

1-й класс

86


ID: 401888

puporev

Профессор

69

Россия, Пермский край


ID: 325460

CradleA

Мастер-Эксперт

65

Беларусь, Минск


8.9.8

01.08.2021

JS: 2.9.16
CSS: 4.5.14
jQuery: 3.6.0
DataForLocalStorage: 2021-08-03 10:16:01-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 201104

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Jin (Посетитель)
Дата: 06.06.2021, 23:23 Консультация закрыта
Поступило ответов: 1

Здравствуйте! Пожалуйста, нужна помощь в решении задачи на Lazarus:
Описать и проверить процедуру которая ищет в списке L элемент E.

Доброго времени суток Jin

Смотрите код:
Код [Pascal]
type
  pList=^tList;
  tList=record
    data:integer;
    next:pList;
  end;
 var
   l,p:pList;
   e,n:integer;
 function find(a:integer;b:plist):boolean;
   begin
     while (b<>nil)and(a<>b^.data)do b:=b^.next;
     find:=b<>nil;
   end;
 begin
   repeat
     write('enter n:=');
     readln(n);
   until n>0;
   l:=nil;
   while n>0 do
     begin
       new(p);
       p^.next:=l;
       l:=p;
       l^.data:=n;
       dec(n);
     end;
    write('enter e:=');
    readln(e);
    if find(e,l) then writeln('true')else writeln('false');
    while l<>nil do
    begin
      p:=l;
      l:=l^.next;
      dispose(p);
    end;
 end.


Удачи!

Зенченко Константин Николаевич

Старший модератор
10.06.2021, 13:09
Мини-форум консультации # 201104

Нет сообщений в мини-форуме

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 88

puporev

Профессор

Рейтинг: 69

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0

lamed

Академик

Рейтинг: 0