close

Вход

Забыли?

вход по аккаунту

?

Логические операции. Оператор выбора.

код для вставкиСкачать
Логические операции. Условный оператор.
Оператор выбора.
Логические операции в Turbo Pascal
:
Not –
логическое НЕ
And –
Логическое И
Or
–
Логическое ИЛИ
Xor
–
исключающее ИЛИ
Логические операции применимы:
К операндам целого типа
К операндам логического типа
Результат логической операции относится к тому же типу, что и операнды. Вычислить значение функции
Программа
Program func;
Var x,y:real;
Begin
Writeln(‘
Введите х
’);
Read(x);
If (x>=0) and
(x<5) then y:=sqr(x);
If (x>
-
5) and
(x<0) then y:=x
-
2;
Writeln(‘
Значение функции=
’, y:6:4);
Readln;
end.
Вычислить значение функции
Программа
Program func;
Var x,y:real;
Begin
Writeln(‘
Введите х
’);
Read(x);
If (x<5) or
(x>7) then y:=sqr(x);
If (x>=5) and
(x<=7) then y:=x
-
2;
Writeln(‘
Значение функции=
’, y:6:4);
Readln;
end.
Оператор выбора
Позволяет выбрать 1 из нескольких
возможных продолжений
программы.
Выбор осуществляется по специальном параметру -
ключу выбора.
Структура оператора выбора
:
CASE
<
ключ выбора
>
OF
<
список выбора
>
[
ELSE
<
операторы
>]
END
Работа оператора:
Вычисляется ключ выбора
Среди последовательности операторов <
список_выбора
>
отыскивается такой, которому предшествует константа, равная вычисленному значению.
Найденный оператор выполняется, после чего оператор выбора завершает свою работу.
Если в списке выбора не будет найдена константа, соответствующая вычисленному значению ключа, управление передается операторам после ELSE
(эту часть можно опускать).
Выведите день недели по его номеру
Program nedelya;
Var den:byte;
Begin
Writeln(‘
Введите номер дня недели
’);
Read(den);
If den=1 then writeln(‘
Понедельник
’)
else
If den=2 then writeln(‘
Вторник
’)
else If den=
3
then writeln(‘
Среда
’) else
If den=
4
then writeln(‘
Четверг
’)
else If den=5 then writeln(‘
Пятница
’)
else
If den=
6
then writeln(‘
Суббота
’)
else
If den=
7
then writeln(‘
Воскресенье
’)
else writeln(‘
Неправильно введен номер дня
’)
End
.
Задача
с использованием оператора выбора
Program nedelya;
Var den:byte;
Begin
Writeln(‘
Введите номер дня недели
’);
Read(den);
Case den of
1: writeln(‘
Понедельник
’);
2: writeln(‘
Вторник
’);
3: writeln(‘
Среда
’);
4
: writeln(‘
Четверг
’); 5: writeln(‘
Пятница
’);
6
: writeln(‘
Суббота
’);
7
: writeln(‘
Воскресенье
’)
else
writeln(‘
Неправильно введен номер дня
’) end
End
.
Задание Написать программу определения является ли число четным или нечетным.
Задание на дом
Написать программу решения квадратного уравнения вида ax
2
+bx+c=0
, если а, b
,
c
–
известны.
Автор
kaichkina
Документ
Категория
Презентации
Просмотров
21
Размер файла
118 Кб
Теги
логические, выбор, оператора, операция
1/--страниц
Пожаловаться на содержимое документа