Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.01.2014, 15:58   #1
Joinack
Новичок
Джуниор
 
Регистрация: 06.01.2014
Сообщений: 1
Вопрос Написать функцию, которая создает список L2, являющийся копией списка L1, начинающегося с данного узла

Доброго времени! Всех с праздниками!
Есть лабораторная работа http://valera.asf.ru/delphi/lab/lab6.html , по этой работе надо сделать 5 вариант задания "Написать функцию, которая создает список L2, являющийся копией списка L1, начинающегося с данного узла" Но к сожалению не совсем понимаю как. Нужна помощь. Объясните пожалуйста.
Joinack вне форума Ответить с цитированием
Старый 14.11.2023, 20:28   #2
Al'
Новичок
Джуниор
 
Регистрация: 14.11.2023
Сообщений: 1
По умолчанию

Program L14P1Z5;
type
list= ^l;
l=record
a,c:integer;
n,v:list;
end;
function f(m:integer):list;
var head,x,head1,y,redact:list;
i,k,z:integer;
begin
z:=random(10,50);

for i:=1 to z do
begin
if i=1 then
begin
new(head);
new(head1);
head^.a:=random(-10,10);
head1^.c:=head^.a;
head^.n:=nil;
head1^.v:=nil;
x:=head;
y:=head1;
end;
if i>1 then
begin
new(x^.n);
new(y^.v);
x:=x^.n;
y:=y^.v;
x^.a:=random(-10,10);
y^.c:=x^.a;
x^.n:=nil;
y^.v:=nil;
end;
end;

writeln('Лист 1');
while head<>nil do
Begin
Write(head^.a, ' ');
head:= head^.n;
End;
writeln;

writeln('Отображение второго листа с ',m,' позиции');
for i:=1 to m-1 do
begin
redact := Head1;
Head1 := Head1^.v;
Dispose(redact);
end;
while head1<>nil do
Begin
Write(head1^.c, ' ');
head1:= head1^.v;
End;
end;

//Основная функция
var b:integer;
begin
write('С какой позиции отображать список? С ');
readln(b);
f(b);
end.
Al' вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать функцию, которая находит наименьший элемент дерева. Aligasanov Помощь студентам 1 05.12.2013 15:22
c++ написать функцию удаления последнего элемента из списка scrinn Помощь студентам 0 04.06.2012 23:56
Составить программу, которая формирует 2 списка, и написать процедуру присоединения 2го списка к 1му Neitrosha Помощь студентам 7 25.02.2011 21:18
Затрудняюсь создать программу в VBA, которая создает список данных. Jenya92 Microsoft Office Excel 7 25.10.2010 21:40
Описать функцию или процедуру,которая: Определяет,яляется ли список L пустым Ksardas Помощь студентам 2 14.12.2009 16:41