🗊Презентация Условный оператор, оператор выбора. Логические операции в Паскале

Тема: Условный оператор, оператор выбора. Логические операции в Паскале, таблицы истинности, основные законы алгебры логики. Простой и составной оператор Цель: познакомить с условным оператором, оператором выбора, простыми и сложными условиями и составным оператором

Условный оператор Для проверки условия используется условный оператор. Формат: Полная форма: If <условие> Then <оператор1> Else <оператор2>; Сокращенная форма: If <условие> Then <оператор>;

Работа условного оператора Вначале проверяется условие, если условие истинно, то выполняется оператор, стоящий за словом then. Если условие ложно, то выполняется оператор, стоящий за словом else.

Простые условия Простые условия образуются с помощью операций отношения: = равно <> Не равно <= меньше или равно >= больше или равно < меньше > Больше In принадлежит

Логические операции

Пример: Составить программу нахождения y: Program aaa; Var x, y : real; Begin Writeln(‘введите x’); Readln(x); If x>=2 Then y:=sqrt(x) Else y:=x; Writeln(‘y=’,y:6:2); End.

Особенности В условном операторе после then и else можно помещать по одному оператору. Если более одного, то используют составной оператор (операторские скобки).

составной оператор (операторские скобки). Формат: begin Оператор 1; Оператор 2; … оператор n; end;

Вложенные ветвления Во вложенных ветвлениях в Паскале возникает проблема «болтающегося» else. Она решается следующим образом: каждое очередное else соответствует последнему незакрытому then. If условие 1 Then if условие 2 Then оператор 1 Else оператор 2;

Пример: Написать программу решения квадратного уравнения: Рассмотрим все случаи: a, b, c задаются с клавиатуры. если d>0, то если d=0, то если d<0, то выведем число 0

Program uravnenie; { Написать программу решения квадратного уравнения:} var a,b,c,d,x1,x2,x:real; Begin readln(a,b,c); d:=sqr(b) - 4*a*c; if d>0 then begin x1:=(-b-sqrt(d))/(2*a); x2:= (-b+sqrt(d))/(2*a); writeln(’x1=’,x1:6:2,’ x2=’,x2:6:2); end else if d=0 then begin x:=-b/(2*a); writeln(’ x=’,x:6:2); end else writeln(’ корней нет’); End.

Оператор выбора case полная форма Формат: Case <выражение> of cписок 1: оператор 1; cписок 2: оператор 2; полная форма … оператора CASE cписок n: оператор n else оператор n+1 end;

Оператор выбора case сокращенная форма Case <выражение> of cписок 1: оператор 1; cписок 2: оператор 2; … cписок n: оператор n; end;

Оператор выбора case Выражение, стоящее между case и of называется селектором. Выражение может быть любого скалярного типа (кроме REAL). Список констант состоит из произвольного количества определённых значений или диапазонов. Одно и тоже значение не может входить в разные списки.

Работа оператора Case Сначала вычисляется значение выражения. Если оно входит в список 1, то выполняется оператор 1, далее выполняется оператор, стоящий за End. Если в списке 1 значений нет, то проверяется список 2, и т. д.. Если же значение выражения нет ни в одном списке, то выполняется оператор стоящий после слова ELSE, если же ELSE отсутствует, то не будет выполнен ни один оператор.

Пример 1: Составить программу, позволяющую получить словесное наименование школьных оценок 5 – отлично, 4 – хорошо, 3 – удовл, 2 – неудовл, 1 – плохо, иначе - такой оценки нет).

Решение Program otcenka; { получить словесное наименование школьных оценок } Var x: integer; Begin Readln(x); Case x of 5: writeln(‘отлично’); 4: writeln(‘хорошо’); 3: writeln(‘удовл.’); 2: writeln(‘неудовл.’); 1: writeln(‘плохо’) Еlse writeln(‘Такой оценки нет’); End; End.

Пример 2 Составить программу, определяющую, сколько цифр в числе (до 3 знаков). Program CHISLO; {сколько цифр в числе (до 3 знаков).} Var x: integer; Begin Readln(x); Case x of 1..9: writeln (‘ 1-х значное’:16); 10..99: writeln(‘2-х значное’); 100..999: writeln(‘3-х значное’) Еlse writeln(‘Любое другое число’); end; End.

Написать программу, которая выясняет, является ли первая цифра трехзначного числа четной. Ввести трехзначное число. Выделить первую цифру. Проверить ее на четность. Вывести результат.

Текст программы с IF Program cifra_if; Var a : integer; c: byte; Begin Writeln(‘введите трехзначное число’); Readln(a); c := a div 100; If c mod 2 = 0 Then writeln (‘ первая цифра четная’:26) Else writeln (‘ первая цифра нечетная’:26); End.

Текст программы с Case Program Cifra; {Первая цифра трехзначного числа четная или нечетная} Var a: integer; Begin Readln(a); Case a div 100 of 1, 3, 5, 7, 9: writeln (‘ первая цифра нечетная’:26); 0, 2, 4, 6, 8: writeln(‘первая цифра четная’:26); end; End.

Домашнее задание Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны. Даны действительные числа x, y, z. Выяснить, существует ли треугольник с длинами сторон x, y, z. Если треугольник существует, то ответить—является ли он остроугольным Вводится число от 1 до 4, определяющее пору года. Дать название этой поры года. (1 – зима, 2 – весна, 3 – лето, 4 – осень).

Ветвления Вопросы для повторения Что такое алгоритм с ветвлением? Как записывается условный оператор (оператор ветвления) в Паскале? Что такое полная и сокращенная записи условного оператора? Что используется в качестве условий в операторе ветвления? Какие знаки отношений можно использовать при составлении условий? Что такое составное условие? Каковы правила записи составных условий? Какие вы знаете логические операции? Что располагается после служебных слов then и else? Что такое составной оператор? Какую структуру он имеет? В каких случаях используется составной оператор? Как в Паскале записывается оператор выбора? Для чего предназначен оператор выбора? Что такое полная и сокращенная записи оператора выбора? Какого типа должна быть переменная, значения которой выбирают с помощью оператора case?