| ← Июнь 2021 → | ||||||
|
1
|
3
|
4
|
6
|
|||
|---|---|---|---|---|---|---|
|
7
|
8
|
9
|
10
|
12
|
13
|
|
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
|
21
|
22
|
23
|
24
|
25
|
26
|
27
|
|
28
|
29
|
30
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
Pascal / Delphi / Lazarus
Здравствуйте! Пожалуйста, нужна помощь в решении задачи на Lazarus:
Дата отправки: 06.06.2021, 23:23 Консультирует Зенченко Константин Николаевич (Старший модератор): Доброго времени суток 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.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
