Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

        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++

#include "SPIS.CPP"

void main()

{Zveno *S1, *S2, *S3, *V1, *V2, *V3;

 BT a; int i, n;

 clrscr();

 randomize();

 S1=NULL;

 // создаём первый элемент

 a=-100+random(201);

 S1=V_Nachalo(S1, a);

 n=1+random(20);

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





Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата