Организация программ разветвляющейся структуры. Условный оператор. - презентация

5

6 Составить программу для нахождения Y по формуле: Y=5X/(x-5)

7 IF условие THEN действие;

8 Пример неполного ветвления Составьте программу, удваивающую значение целой переменной а, если а>5. Решение Если а > 5, то значение а надо заменить на 2 а. В противном случае (а <= 5) никаких действий производить не нужно. Program Pr2; Var а : Integer; Begin WriteLn (Введите число); ReadLn (а); If а >5 Then а := а*2; WriteLn (а =', а); End.

9 Использование нескольких команд после слов Then и Else

10 Чтобы после ключевых слов Then или Else могла выполняться последовательность операторов, они должны быть заключены в операторные скобки – ключевые слова Begin и End. Составной оператор: Begin оператор 1; оператор 2; ……. оператор n; End;

11

12

13

14

15

16

17 1. Написать программу, которая проверяет, делится ли на 3 целое число, введенное с клавиатуры. 2. Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендации о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) – Из трех данных чисел выбрать наибольшее.