Алгоритм ветвления на языке Pascal
4.Оператор условного перехода 4. Оператор условного перехода IF THEN Begin группа операторов 1 End ELSE Begin группа операторов 2 End; Перед ELSE ; не ставится. Если группа операторов состоит из одного оператора, то операторные скобки Begin - End можно не использовать.
Операторы языка Паскаль. Примеры. IF a>b THEN Writeln(a) ELSE Writeln(b); IF (a>0) and (a mod 2=0) THEN Begin K:=K+1; Writeln(a) End ELSE Begin N:=N+1; Writeln(b) End;
Ещё пример… Представьте что у Вас есть два числа, и Вам нужно сравнить их на равность, то есть равно ли первое число второму. Для решения этой проблемы воспользуемся оператором условия if. Мы сначала пишем if(если), после этого пишем наше условие, потом пишем then(то), и выполняемый код если условие пройдёт успешно. Так и сделаем:
А теперь давайте всё разберём построчно : Название программы IF_ELSE; новый для вас оператор!подключённые модули CRT; - новый для вас оператор! описание переменных: num1, num2: тип переменных Integer; начало программы очистка экрана от лишнего clrscrновый для вас оператор!очистка экрана от лишнего clrscr; - новый для вас оператор! вывод на экран сообщения write(''); считывание данных с клавиатуры, и запись их в переменные readln(num1, num2); если if первое число равно второму (num1 = num2) то then вывод сообщения на экран writeln(''); - новый для вас оператор!считывание любого типа данных, для временной остановки программы - новый для вас оператор! конец программы
Итак, конструкция условия: if(если) (условие) then(то) выполняемые действия
Ещё пример… Теперь давайте рассмотрим пример если нам нужно вывести сообщение о том что числа не равны, или равны. Как бы добавим в условие оператор else(иначе), он будет срабатывать тогда, когда верно условие будет ложно:
Если Вы уже заметили, то в после оператора if мы написали вывод строки на экран, но после команды writeln('') не поставили точку запятой. Просто в условиях подобного рода - где есть оператор else перед else нельзя закрывать строку точкой с запятой, иначе программа выдаст ошибку.
ifelse Итак, конструкция условия с операторами if и else: if(если) (условие) then(то) выполняемые действия else(иначе) выполняемые действия;
Практическая работа 5 Разработать программу на языке Pascal для нахождения корней квадратного уравнения, используя в программе условный оператор. Этапы решения задачи должны быть соблюдены (оформление в тетради).