Tipo - Learn · Pascal · Типо Лерн · Урок 5

Perfect vision for programming

> урок 1 > урок 2 > урок 3 > урок 4 > урок 5 (Вы здесь) > урок 6
Разветвляющиеся алгоритмы. Конструкция if
Конструкция if IF - очень важный оператор, который используется почти в каждой задаче. Для него можно придумать бесконечное множество применений. Вот несколько примеров: Сравнение чисел Данная программа получат на вход два числа и выводит, какое из них больше var a,b:integer; BEGIN Readln(a); Readln(b); if a>b then writeln('A больше чем B') //Обратите внимание, что перед else точка с запятой не ставится else writeln('B больше чем A'); END. Определение четности С помощью конструкции IF также можно определять четность и нечетность чисел: var a:integer; BEGIN Readln(a); if a mod 2 = 0 then writeln('Число четное') else writeln('Число нечетное'); END. Сложные условия и вложенные конструкции IF Давайте теперь попробуем найти наибольший и наименьший элемент среди трех чисел. Для этого нам понадобится логическая операция AND. var a,b,c:integer; BEGIN Readln(a); Readln(b); Readln(c); if (a>=b) and (a>=c) then // Для избежания ошибок в сложных условиях, простые условия необходимо заключать в скобки begin // Чтобы оператор if выполнил больше одного оператора, необходимо заключить их в операторные скобки (begin и end) writeln('Наибольшее число: ', a); if b>=c then writeln('Наименьшее число: ', c) else writeln('Наименьшее число: ', b); end; if (b>=a) and (b>=c) then begin writeln('Наибольшее число: ', b); if a>=c then writeln('Наименьшее число: ', c) else writeln('Наименьшее число: ', a); end else begin writeln('Наибольшее число: ', c); if a>=b then writeln('Наименьшее число: ', b) else writeln('Наименьшее число: ', a); end; END.
Помогите Бобу Код выше был написан Бобом. Посмотрите, что будет, если ввести три одинаковых значения и исправьте ошибку. В этом файле можно посмотреть решение:	Программа

Letyshops [lifetime]

2018-2020, Илья Любимов.

Автор - Tipo_4ek

По коммерческим предложениям - e-mail