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

    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;

        V1:= V1^.Next

    End;

    WriteLn('Результирующий список из положительных элементов: '); Print(S2);

    WriteLn('Результирующий список из отрицательных элементов: '); Print(S3);

    Ochistka(S1); Ochistka(S2); Ochistka(S3);

End.

// Программа на C++

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



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

Поделитесь этой записью или добавьте в закладки