Россия, Гулькевичи
СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ
Благодаря готовым учебным материалам для работы в классе и дистанционно
Скидки до 50 % на комплекты
только до
Готовые ключевые этапы урока всегда будут у вас под рукой
Организационный момент
Проверка знаний
Объяснение материала
Закрепление изученного
Итоги урока
Была в сети 16.04.2024 19:24
Стенина Татьяна Васильевна
Учитель математики и информатики
45 лет
23 338
930 
Местоположение
Специализация
Условный оператор в Паскале
Категория:
Информатика
12.06.2018 08:51
Просмотр содержимого документа
«Условный оператор в Паскале»
Лабораторная работа № 4
Тема: Условный оператор.
Условный оператор IF THEN позволяют выбрать для выполнения один из операторов (или не выбрать ни одного).
Условный оператор имеет вид:
IF THEN ELSE ;
В выражении должен получаться результат, имеющий стандартный тип Boolean. Если результатом выражения является истинное значение (True), то выполняется оператор, следующий за ключевым словом then.
Если результатом выражения является значение False присутствует ключевое слово else, то выполняется оператор следующий за ключевым словом else. Если ключевое слово else отсутствует, то выполняется оператор, следующий за условным.
В качестве условия может быть:
1. Операция отношения (,=,,=).
2. Логическая переменная.
c:boolean;
с:=(x/2)(y-5);
if c then оператор;
3. Логическое выражение.
if (x0) and (yоператор;
Синтаксическая неоднозначность, возникающая в конструкции: if e1 then if e2 then s1 else s2 разрешается путем следующей интерпретации этой конструкции:
if e1 then
begin
if e2 then s1 else s2
end;
В общем случае ключевое слово else связывается с ближайшим ключевым словом if, с которым еще не ассоциировано else.
Если при использовании условного оператора требуется выполнить два и более операторов, то их необходимо заключить в операторные скобки BEGIN - END , т.к. в этом случае идет речь о составном операторе, за счет которого расширяется возможность условного оператора.
Пример:
if a
begin
t:=t+2;
x:=abs;
writeln(t);
end
else
begin
t:=t-8;
writeln(t);
end;
Пример:
Вывести на экран большее из двух данных чисел.
Program primer_2;
Var x, y : integer;
Begin
Writeln('введите 2 числа');
Readln(x,y); {вводим два целых числа через пробел}
If xy Then Writeln(x) {если (If)x больше y, то (Then) выводим x,}
Else Writeln(y); {иначе (Else)выводим y}
Readln;
End.
Пример
Написать программу, проверяющую, принадлежит ли число, введенное с клавиатуры, интервалу (0,5).
Решение
Обозначим: x - число, вводимое с клавиатуры пользователем (это переменная целого типа). Принадлежность числа x интервалу (0,5) определяется следующей системой неравенств:
X принадлежит заданному интервалу лишь в том случае, если одновременно выполняются оба условия:
Program primer_3;
Var x : Integer;
Begin
Writeln('Введите число x');
Readln(x);
If (x0) And (x
Else Writeln(x,' не принадлежит интервалу');
End.
Задания к лабораторной работе № 4
Запишите условный оператор, в котором значение переменной вычисляется по формуле: a + b, если a - нечетное и a*b, если a - четное.
Найти наибольшее из трех данных чисел.
Вывести на экран номер четверти, которой принадлежит точка с координатами (x, y), при условии, что x и y отличны от 0.
Если целое число M делится нацело на целое число N, то вывести на экран частное от деления, в противном случае - сообщение ''M на N нацело не делится''.
Составьте программу, которая уменьшает первое число в пять раз, если оно больше второго по абсолютной величине.
Составьте программу, которая из трех введенных с клавиатуры чисел возводит в квадрат положительные, отрицательные оставляет без изменения.
Если треугольник со сторонами a,b,c является равнобедренным, то найти его площадь, в противном случае найти его периметр.
Вебинар для учителей
Свидетельство об участии БЕСПЛАТНО!
Полезное для учителя
Реализация образовательных программ осуществляется с применением исключительно электронного обучения и ДОТ
