Основы программирования на
Pascal ABC
- Главная страница
- Введение
- Ветвления
- Сложные условия
- Циклы
- Циклы с условием
- Оператор выбора
- Графика
- Процедуры
- Рекурсия
Ветвления
Для решения некоторых задач нам может понадобиться ветвление(условие, соответствующий выбор исходя из условия).
Рассмотрим на конкретной задаче: Введите два числа и сравните какое из них меньше.
Решение начнем с составления блок схемы
If <условие> then begin <что делать, если условие верно> end else begin <что делать, если условие неверно> end;
Примечания:
- перед else НЕ ставится точка с запятой
- вторая часть (else …) может отсутствовать (неполная форма ветвления)
- если в блоке(т.е после then или else один оператор, можно убрать слова begin и end.
Реализуем все это в паскале, и тогда программа будет выглядеть:
Полная форма ветвления
Program
Second;
uses Crt;
Var a,b,min:integer;
Begin
Writeln ('Введите
два числа через пробел');
Readln (a,b);
if a<b
then min:=a
else min:=b;
Writeln ('Меньшее
из введеных чисел ',min);
End.
Неполная форма ветвления
Program
Second;
uses Crt;
Var a,b,min:integer;
Begin
Writeln ('Введите
два числа через пробел');
Readln (a,b);
min:=a;
if
b<a
then min:=b;
Writeln ('Меньшее
из введеных чисел ',min);
End.
После выполнения любой из приведенных выше программ, на экране вы увидите примерно следующее
Для закрепления полученных знаний вы можете пройти Тест.
А для перехода к следующей теме нажмите тут.
