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

 D := D Div K; {Сокращение первой дроби}

 B := B Div K;

 K := Nod(F, C); {НОД чисел F, C}

 F := F Div K; {Сокращение второй дроби}

 C := C Div K;

 K := B * C Div Nod(B, C) * (1 + Random(7)); {Второй сомножитель

                                              в первом произведении}

 Repeat

   Repeat

    M := 3 + Random(6); {Одно из чисел, на которое будет

                         производиться сокращение во втором произведении}

    Ch1 := M * (1 + Random(3)) {Числитель второй дроби}

   Until Odd(M) and Odd(Ch1);

    Zn := M * 5; {Знаменатель первого сомножителя во втором

                  произведении}

    SS := 2 + Random(4);

    Zn1 := Stepen(2, SS); {Знаменатель второго сомножителя -

                           случайная степень числа 2}

    Ch := Zn1 Div 2; {Числитель первой дроби}

 Until (Ch < Zn) And (Ch1 < Zn1); {Повторяем генерацию дробей,

                                   пока числители не станут

                                   меньше знаменателей}

 S := Nod(Ch, Zn);

 Ch := Ch Div S; {Сокращение дроби}

 Zn := Zn Div S;

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





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