Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Вспомним!




Урок № 10, 11. Условный оператор. Логические выражения

Разветвляющимся называется алгоритм, позволяющий выбрать одно из нескольких возможных направлений решения задачи.

В языках программирования ветвление реализуется с помощью условного оператора.

полное ветвление:

if логическое условие then оператор 1

else оператор 2;

неполное ветвление:

if логическое условие then оператор 1;

Буквально перевести эту конструкцию можно так: "Если условие истинно, то выполнить оператор 1, иначе оператор 2"

Перед else точка с запятой не ставится!

Вначале проверяется логическое выражение, если оно верно, то выполняется Оператор 1, после этого выполняется часть программы, расположенная ниже, если условие ложно, то Оператор 1, не выполняется, выполняется оператор ниже.

Логическое условие может содержать одно или несколько условий с функциями and (и), or (или), not (не).

Например, условие для принадлежности числа x интервалу (0;10): (x>0) and (x<10)

Операторы 1 и 2 могут быть простыми и составными.

Если оператор составной (состоит из нескольких команд), то он заключается в логические скобки begin … end;

 

Задача 1. Составим программу, находящую из двух чисел A и B большее.

a, b – исходные данные

с – результат (большее из чисел)

Programbol;

vara, b, c: integer;

Begin

writeln(‘введите два числа’);

readln(a, b);

if a>b then c:=a

else c:=b;

writeln(‘c= ’, c);

End.

Задача 2.Записать условный оператор, определяющий, является ли треугольник со сторонами a, b, c равносторонним?

if (a=b) and (b=c) and (a=c) then writeln(‘треугольник равносторонний’)

else writeln(‘треугольник не равносторонний’);

Задача 3.Дано x. Вычислить F.

if (x>=0) and (x<=4) thenF:=4*x*x+5 elseF:=1/(3*x);

Задача 4.Найти корни квадратного уравнения ax2+bx+c=0. Если их нет, то сообщить об этом.

Programkor;

vara, b, c: integer;

d, x1,x2 : real;

Begin

writeln(‘введите числа a, b, c’);

readln(a, b, c);

d:=b*b-4*a*c;

if d>=0 then begin

ifd=0 then begin

x1:=-b/(2*a);

x2:=x1;

End







Дата добавления: 2015-08-12; просмотров: 536. Нарушение авторских прав; Мы поможем в написании вашей работы!


Рекомендуемые страницы:


Studopedia.info - Студопедия - 2014-2021 год . (0.002 сек.) русская версия | украинская версия