Презентация ветвление на паскале
презентация к уроку по информатике и икт (9 класс)

Слайд 1

Слайд 2

Разветвляющийся алгоритм Алгоритм называется ветвящимся , если в зависимости от выполнения условия совершаются те или иные действия.

Слайд 3

ОРГАНИЗАЦИЯ ВЕТВЛЕНИЙ В ПРОГРАММАХ НА ПАСКАЛЕ. ОПЕРАТОР IF… THEN... ELSE Формат оператора: IF условие THEN оператор 1 ELSE оператор 2 ; Правило работы: 1. Проверяется условие. 2. Если условие истинно, то выполняется оператор1 3. Если условие ложно, то выполняется оператор2.

Слайд 4

ЛОГИЧЕСКОЕ ВЫРАЖЕНИЕ - это выражение, которое принимает значение TRUE(истина) или FALSE(ложь), и включает в себя арифметические выражения, связанные операциями отношения и логическими операциями. ЛОГИЧЕСКИЕ ОПЕРАЦИИ : NOT - НЕ ; AND - И ; OR - ИЛИ

Слайд 5

Операция отношений > больше (а >5) >= больше или равно (a>=b) < меньше (x<6) <= меньше или равно (y<=0) = равно (r=10) <> неравно (a<>d)

Слайд 6

Составной оператор В условном операторе после слов THEN и ELSE можно помещать по несколько операторов. В этом случае их объединяют в СОСТАВНОЙ оператор, который начинается словом BEGIN и заканчивается словом END; (на конце не точка, а точка с запятой!) Пример: if x < y then begin z:=x; x:= 2* y; y:=z -2: end;

Слайд 7

Виды ветвлений: Полная форма Неполная форма Выбор

Слайд 8

Неполная форма: УСЛОВИЕ Да Нет одно или несколько действий Pascal : if условие then действие ; или if условие then begin группа действий ; end ;

Слайд 9

Полная форма: УСЛОВИЕ Да Нет группа действий2 группа действий1 Pascal : if условие then действие1 else действие2 ; или if условие then begin группа действий1 ; end else begin группа действий2 ; end;

Слайд 10

Оператор выбора: Pascal : case переменная of список значений 1 : действие 1 ; список значений 2 : действие 2 ; список значений 3 : действие 3; ……………………………………………………… список значений n : действие n else действие n+1; end;

Слайд 11

Упростите, если это возможно, и найдите ошибки в программе : Program primer; var x, a, b : integer; Begin writlen ( ‘ введите числ o x =’ ); write ( x ); if x > 0 then a := a * 2 ; b := b / 2; if x <= 0 then a := a / 2 ; b := b * 2; writeln ( ‘ a = ’ , a ); writeln ( ‘ b = ’ , b ); End.

Слайд 12

Решение: Program primer; var x, a, b : real ; Begin writeln ( ‘ введите числ o x =’ ); read ( x ); if x > 0 then begin a := a * 2 ; b := b / 2; end else begin a := a / 2 ; b := b * 2; end; writeln ( ‘ a = ’ , a ); writeln ( ‘ b = ’ , b ); End.