Ветвление в среде разработки PascalABC

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

Как мы помним ветвление - вид алгоритма, в котором есть условие, и от того выполняется условие или нет зависит дальнейшие действия

В языке программирования Pascal для этого используется оператор if, выглядит он так:

If (условие) then команда;

Например, if a>10 then a:=10;

Else - означает иначе, его можно использовать если вас интересует условие обратное первому, он используется только если до него стоял if, в этом случае после команды не ставится ;.

Например:

If a>10 then a:=10

Else a:=0;

Если вам нужно, чтобы после условия исполнилось 2 и более команды, то нужно использовать составной оператор begin end;

Например:

If (a>10) then

Begin

a:=10;

Writeln('Всё');

End;

Теперь к практике:

Program a1; - имя программы

Var a: integer; - объявим 1 целую переменную

Begin - начало

Writeln (Я загадал число от 0 до 10, угадай'); - запрашиваем число

Readln(a); - запишем введённое пользователем число в переменную

If a=7 then writeln ('Молодец, угадал')- если введённое число равно 7, то пользователем угадал

Else writeln('Не угадал'); - иначе пользователь не угадал

End.-конец программы

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

Program a2;- название программы

Var a,b: integer; - объявляем 2 целые переменные

Begin - начало программы

Writeln ('Введите 2 числа'); - запрашиваем 2 числа

Readln(a,b); - считываем числа в переменные

If a>b then writeln (a,' больше ',b) - если первое число больше, то так и выводим

Else writeln (b,' больше ', a); - иначе выводим второе число больше первого.

End.

Теперь перейдем к чему то посложнее:

Сделаем самые простой калькулятор.

Program calc; - название программы

Var a,b,c,: real;

D: integer;- объявим 3 вещественные переменные и 1 целую

Begin - начало программы

Writeln ('Введите 2 числа'); - запрашиваем 2 числа у пользователя

Readln(a,b) - записываем введённые числа в вещественные переменные

Writeln ('Выберите операцию');

Writeln ('1- сложение');

Writeln ('2- вычитание');

Writeln ('3- умножение');

Writeln ('4- деление'); - предлагаем пользователю операцию на выбор, пишем с новой строки, чтобы и у него выводилось на экран с новой строки.

Readln(d);- считываем число в нашу целую переменную

If d=1 then c:=a+b; - если операция сложение то присваеваем переменной с сумму

If d=2 then c:=a-b; - если операция вычитание то присваеваем переменной с разность

If d=3 then c:=a*b; - если операция умножение то присваеваем переменной с произведение

If d=4 then c:=a/b; - если операция деление то присваеваем переменной с частное

Writeln(c); - выводим результат

End. - конец программы

И калькулятор готов

Ну и последняя задача с использованием составного оператора, вывести число, найденное по формуле: если введённое число нечётное, то прибавить к нему один и умножить на два, если чётное, то прибавить 2 и умножить на 2

Program a; - название программы

Var a:integer; - объявляем 1 целую переменную

Begin - начало программы

Writeln ('Введите число'); - запрашиваем число

Read(a); - считываем число

If a mod 2=0 then - если остаток от деления введённого числа на 2 равен ноль, значит число - чётное

Begin - начало составного оператора

A:=a+2; - прибавляем 2

A:=a*2; - умножаем на 2

End - конец составного оператор, ; не ставим, так как затем у нас идёт else

Else

Begin - начало составного оператора

A:=a+1; - прибавляем 1

A:=a*2; - умножаем на 2

End; - конец составного оператора

Writeln (a) - выводим результат

End. - конец программы

Конечно, можно было присвоить переменной а значение сразу по полной формуле, то есть a:=(a+1)*2, но я написал так, чтобы продемонстрировать составной оператор

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