Презентация, доклад по информатике Условный оператор. Паскаль

Увидел и запомнил.
Сделал и понял!

Чарльз Бэббидж.

команд. Каждый подобный путь называется ветвью алгоритма.
Признаком разветвляющегося алгоритма является наличие операций проверки условия. Условие – это логическое выражение, которое может быть записано в операторе явно или вычислено в программе. Для записи простых условий используются операции отношения:
< меньше x>y
> больше a>5
<= меньше или равно n<=0
>= больше или равно t>=r
<> не равно a+b<>0
= равно s mod 2 = 0

между собой логическими операциями. Получается сложное условие.


Если необходимо проверить одновременное выполнение нескольких условий, для их связи используют логическую операцию AND (И)
Например, условие 0 (х>0) and (х<5)

то для их связи используют операцию OR (ИЛИ)

Например, условия y<0 или y>9 будет выглядеть следующим образом:
(y<0) or (y>9)

Логическая операция NOT (НЕ) меняет значение условия на противоположное.
Например, необходимо взять все значения х, кроме 1:
not (x=1)

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

если – то - иначе;

серия команд 1

да

условие

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

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

THEN (оператор 1);

BEGIN
<оператор 1>;
<оператор 2>;
…
<оператор n>;
END;

THEN (оператор 1)
ELSE (оператор 2);

;

IF (условие) THEN
BEGIN
<оператор 1>;
<оператор 2>;
…
<оператор n>;
END
ELSE
BEGIN
<оператор 1>;
<оператор 2>;
…
<оператор n>;
END;

В и max целыми числами}
BEGIN
WRITE(‘A=’); {Вводим с клавиатуры числа А и В}
READLN(A);
WRITE(‘B=’);
READLN(B);
{Если A>B , то наибольшее число А, иначе наибольшее число В}
IF A>B THEN max :=A
ELSE max :=B;
WRITELN (‘Большее число = ‘, max );
END.

ЗАДАЧА 1. Из двух чисел А и В найти набольшее.

READLN(A);
WRITE(‘B=’); READLN(B);
IF A>B THEN begin
max :=A;
min :=B;
end
ELSE begin
max :=B;
min :=A;
end;
WRITELN (‘max=‘, max, ‘ min=‘, min);
END.

ЗАДАЧА 2. Из двух чисел А и В найти набольшее и наименьшее.

(оператор 1)
ELSE IF (условие) THEN (оператор 1)
ELSE (оператор 2);

READLN(A);
WRITE(‘B=’); READLN(B);
WRITE (‘Большее число : ‘);
IF A>B
THEN begin
max :=A;
min :=B;
WRITELN (‘max=‘, max, ‘ min=‘, min);
end
ELSE IF A max :=B;
min :=A;
WRITELN (‘max=‘, max, ‘ min=‘, min);
end
ELSE WRITELN (‘Числа равны друг другу‘);
END.

ЗАДАЧА 2. Из двух чисел А и В найти набольшее и наименьшее.