Шутилина Л.А.

В жизни часто приходится принимать решения в зависимости от сложившейся ситуации, когда нужно сделать тот или иной выбор в зависимости от того, выполняется или не выполняется некоторое условие.

Условие Действие 1Действие 2 НетДа

Полная (расширенная) форма оператора IF If условие Then Действие 1 Else Действие 2; Пример: If A

Составить программу, которая выводит на экран компьютера пример на умножение двух однозначных чисел, запрашивает ответ пользователя, проверяет его и выводит сообщение «Правильно» или «Вы ошиблись» и в данном случае выводит правильный результат. Задача

Program Ex1; Uses Crt; Var m1, m2, p, otv: integer; Begin Randomize; {генератор случайных чисел < 1} M1:=random(9)+1; M2:=random(9)+1; P:=m1*m2; Writeln (Сколько будет, m1, *, m2, ?); Writeln (Введите ответ ) Readln (otv); If otv=p Then Writeln (Правильно) Else Writeln (Вы ошиблись, m1, *, m2, =, p); Readln; End.

Вторая серия команд в условном операторе может отсутствовать. При этом признак ее начала – служебное слово Else – опускается. Неполная команда ветвления выглядит так: If условие Then действие; Здесь при справедливости условия выполняется Действие 2, а если условие нарушено, то сразу переходим к оператору, который следует за условным оператором. Условие Действие 2 НетДа

Задача 1 Составьте программу, удваивающую значение целой переменной х, если х>5. Решение Если x > 5, то значение x надо заменить на 2x. В противном случае (x 5 Then x := x*2; Writeln (x =', x); End.

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

Рассмотрим на примере:

Программа для нашего примера примет вид: Program Pr4; Var А,x: integer; Begin Writeln('Введите x') Read (x); If x

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