Claw.ru | Рефераты по информатике, программированию | Динамические структуры данных: списки Динамические структуры данных: списки | Категория реферата: Рефераты по информатике, программированию | Теги реферата: курсовая работа по психологии, скачать доклад на тему | Добавил(а) на сайт: Флегонт. Предыдущая страница реферата | 6  7  8  9  10  11  12  13  14  15  16 | Следующая страница реферата

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

При реализации алгоритма будем использовать подпрограммы разработанного модуля. Это существенно облегчает решение задачи.

{Программа на Turbo Pascal}

Program Ex_sp_1;

Uses Spisok;

Var S1, S2, S3, V1, V2, V3 : U; A : BT; I, N : Byte;

Begin

   Randomize;

   N := 1 + Random(20);

   S1 := Nil; A := -100 + Random(201);

   V_Nachalo(S1, A); V1 := S1;

   For I := 2 To N Do

   Begin A := -100 + Random(201); V_Spisok(V1, A); V1 := V1^.Next End;

   WriteLn('Исходный список: '); Print(S1);

   V1 := s1;  S2 := Nil; S3 := Nil;

   While V1 <> Nil Do

   Begin

       If V1^.Inf > 0

       Then If S2 = Nil

            Then Begin V_Nachalo(S2, V1^.Inf); V2 := S2 End

            Else Begin V_Spisok(V2, V1^.Inf); V2 := V2^.Next End;

       If V1^.Inf < 0

       Then If S3 = Nil

            Then Begin V_Nachalo(s3, V1^.Inf); V3 := S3 End

            Else Begin V_Spisok(V3, V1^.Inf); V3 := V3^.Next End;

Рекомендуем скачать другие рефераты по теме: антикризисное управление предприятием, реферат на тему образование.





Предыдущая страница реферата | 6  7  8  9  10  11  12  13  14  15  16 | Следующая страница реферата