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

   Min := Vsp

End;

Begin

   X2 := Nil; X3 := Nil; X5 := Nil;

   Write('Сколько чисел напечатать? '); ReadLn(N);

   PrintAndAdd(1);

   For I := 1 To N Do

   Begin

X := Min(X2^.Inf, X3^.Inf, X5^.Inf);

PrintAndAdd(X);

If X = X2^.Inf Then Iz_Och(X2, X);

If X = X3^.Inf Then Iz_Och(X3, X);

If X = X5^.Inf Then Iz_Och(X5, X);

   End;

   Ochistka(X2); Ochistka(X3); Ochistka(X5);

   WriteLn

End.

// Язык С++

#include "spis2.cpp"

void PrintAndAdd(BT T);

BT Min (BT A, BT B, BT C);

U * X2, *X3, *X5;

void main ()

{ BT X; long I, N;

X2 = NULL; X3 = NULL; X5 = NULL;

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



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

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