20 баллов ОТВЕТЬ НА ВО

При записи на языке Паскаль разветвляющихся алгоритмов используют условный оператор. Его общий вид:

If <условие> then <оператор_1> else <оператор_2>

Для записи неполных ветвлений используется неполная форма условного оператора:

If <условие> then <оператор>

Слова if — then — else переводятся с английского языка на русский как если — то — иначе, что полностью соответствует записи ветвления на алгоритмическом языке.

Перед else знак «;» не ставится.

В качестве условий используются логические выражения записанные с операций отношения;

• сложные — записанные с логических операций.

Пример. Запишем на языке Паскаль алгоритм определения принадлежности точки х отрезку [а, b].

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

Дополните эту программу так, чтобы её выполнение приводило к присваиванию переменной у значения большей из четырёх величин а, b, с и d.

Составной оператор

В условном операторе и после then, и после else можно использовать только один оператор. Если при некотором условий требуется выполнить определённую последовательность операторов, то их объединяют в один составной оператор.

Конструкция вида

Begin <последовательность операторов> end называется составным оператором.

Пример. Алгоритм решения квадратного уравнения вам хорошо известен. Запишем соответствующую программу на языке Паскаль.

Var k,a,b,c: integer; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); writeln('введите третье число'); readln(c); writeln('введите число k'); readln(k); if a mod k = 0 then writeln('первое число кратно k') else writeln('первое число не кратно k'); if b mod k = 0 then writeln('второе число кратно k') else writeln('второе число не кратно k'); if c mod k = 0 then writeln('третье число кратно k') else writeln('третье число кратно k'); end.это первая !