Создать второй список и перенести в него все положительные элементы первого

@murka17 · Регистрация: 27.04.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Нужно сделать процедуру или функцию, которая создается 2й список и переносит в него все положительные элементы первого списка.

я нашел, как создать список. а вот с переносом проблема. я понимаю, что это нужно сделать через условие. но я не могу найти объяснений, как мне проверять каждый элемент одного списка и переносить этот элемент, если он положительный в другой. вообще со списками беда, не могу разобраться.

@shilko2013 · 18.05.2016, 15:26

Советую прочесть главу 54 из книги Песни по Паскалю.
Код строчить не буду, надеюсь сами разберетесь и вам полезнее будет)

Добавлено через 9 минут

Pascal

type PRec = ^TRec;
     TRec = record
            Digit:integer;
            Next:PRec;
            end;
FUNCTION List(var List1:PRec; var List2:PRec):PRec;
//list-голова первого списка, list2 - второго
var p1,p2:PRec;  //функция выводит указатель на голову второго списка
Begin
p1:=List1;
While p1<>nil do begin
IF p1^.Digit>0 THEN begin
                    New (p2);
                    p2^.Digit:=p1^.Digit;
                    p2^.Next:=List2;
                    List2:=p2;
                    end;
p1:=p1^.Next;
end;
List:=List2;
end;

@murka17 0 / 0 / 0 Регистрация: 27.04.2016 Сообщений: 5
		1
	Создать второй список и перенести в него все положительные элементы первого 18.05.2016, 10:21. Показов 1239. Ответов 1 Метки нет (Все метки) Здравствуйте! Нужно сделать процедуру или функцию, которая создается 2й список и переносит в него все положительные элементы первого списка. я нашел, как создать список. а вот с переносом проблема. я понимаю, что это нужно сделать через условие. но я не могу найти объяснений, как мне проверять каждый элемент одного списка и переносить этот элемент, если он положительный в другой. вообще со списками беда, не могу разобраться. 0

	18.05.2016, 15:26

Опции темы

Создать второй список и перенести в него все положительные элементы первого

Решение