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

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

Для записи на языке Паскаль разветвляющихся алгоритмов используется условный оператор Полная (расширенная)форма оператора IF If логическое выражение Then оператор 1 Else оператор 2; Пример: If A<B Then X:=A Else X:=b;

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

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

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

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

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

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