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

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


РАССЫЛКИ ПОРТАЛА RFPRO.RU

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

puporev
Статус: Профессор
Рейтинг: 156
• повысить рейтинг »
Лысков Игорь Витальевич
Статус: Мастер-Эксперт
Рейтинг: 0
• повысить рейтинг »
Степанов Иван /REDDS
Статус: 4-й класс
Рейтинг: 0
• повысить рейтинг »

Pascal / Delphi / Lazarus

Номер выпуска:1888
Дата выхода:11.06.2021, 23:45
Администратор рассылки:Зенченко Константин Николаевич (Старший модератор)
Подписчиков / экспертов:7 / 38
Вопросов / ответов:1 / 1

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

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

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

Дата отправки: 06.06.2021, 23:23
Вопрос задал: Jin (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


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

Доброго времени суток 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
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!