Презентация, доклад Разработка разветвляющегося алгоритма (Pascal)

then writeln(‘X - максимальное’)
else writeln(‘Y - максимальное’);
End.

изменить программу, чтобы учитывался и этот вариант.

Для решения этого варианта необходимо добавить в программу еще одно условие для проверки равенства чисел.

Сначала изменим блок-схему, добавив в нее еще один блок проверки.

Измененную блок-схему можно увидеть на следующем слайде.

проверялось условие x>y,
а затем равенство чисел.

целых чисел (равенство всех трех чисел учитывать).

2. Даны два действительных числа. Вычислить их произведение и частное от деления одного числа на другое. Необходимо проверить, равен ли делитель нулю, в случае этого вывести соответствующее сообщение.

3. С клавиатуры вводятся 3 целых числа. Вывести числа в порядке их возрастания. Составить блок-схему и написать программу.

5. С клавиатуры вводятся 3 целых числа. Определить, сколько среди введенных чисел отрицательных. Составить блок-схему и написать программу.

4. С клавиатуры вводятся 3 вещественных числа. Определить, на сколько самое большое число больше самого маленького из введенных чисел. возрастания. Составить блок-схему и написать программу.