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

Слайд 1

Выполни задание : 1) Найдите значение выражения: а) 5 div 3 ; б) 5 mod 3; в) 9 div 3; г) 9 mod 3. 2) Определите тип выражения ( integer или real ): а) sqr(2.2); б) sqr(3); в) 25 /5; г) sqrt(16) ; 3) Запишите по правилам языка Паскаль выражение:

Слайд 2

Program lab №1 ; Var y- real; Begin; Writeln ( Введите число x ) Read ln(x); y=5x:2; Writeln (‘y=’,y:5:2); End . Исправь ошибки в программе:

Слайд 3

23.11.15 Оператор ветвления

Слайд 4

позволяет выбрать те или иные части программы в зависимости от условий X>Y да нет X Х У

Слайд 5

IF < условие > THEN < оператор 1 > ELSE < оператор 2 > ; Program Р 2; Var x,y: integer; begin writeln (‘ Введите два числа ’); readln( х, у ); if x>y then writeln(x) else writeln(y) ; end. Что появится на экране после выполнения данной программы? Назовите условный оператор . Внимание! ; перед else не ставится! Внимание! ; перед else не ставится! Внимание! ; перед else не ставится! Внимание! ; перед else не ставится! Внимание! ; перед else не ставится! Внимание! ; перед else не ставится! Внимание! ; перед else не ставится! Внимание! перед else ; не ставится!

Слайд 6

да

Слайд 7

Program P3; Var x, y: real; Begin Readln (x,y); If abs(x) >abs(y) then x:=x/5; Write(‘x=‘, x, ‘y=‘, y); End. Пусть даны два числа. Если первое больше второго по абсолютной величине, то необходимо уменьшить первое в пять раз. Иначе число оставить без изменения.

Слайд 8

Program my1; Var a,b,c,D,x 1 ,x2: real; Begin Writeln (‘ Введите числа a, b и с ’); Readln(a,b,c); D:=sqr(b)-4*a*c; x1:=(-b+sqrt(D))/(2*a); x2:=(-b-sqrt(D))/(2*a); Writeln ( ‘x1=’,x1:5:1, ‘x2=’,x2:5:1); Readkey; End . Программа решения квадратного уравнения

Слайд 9

Program my1; Var a,b,c,D,x 1 ,x2: real; Begin Writeln (‘ Введите числа a, b и с ’); Readln(a,b,c); D:=sqr(b)-4*a*c; If D<0 then write(‘ нет решений ’) else begin x1:=(-b+sqrt(D))/(2*a); x2:=(-b-sqrt(D))/(2*a); Writeln ( ‘x1=’,x1:5:1, ‘x2=’,x2:5:1); end; Readkey; End . Программа решения квадратного уравнения

Слайд 10

a:=7; b:=5; c:=2; if a>b then x:=b+c else x:=a+b; write(x);

Слайд 11

a:=9; b:=2; c:=7; if (a>b) and (b>c) then x:=2*a else x:=a-3*b; write(x);

Слайд 12

a:=1; b:=4; c:=8; if (a<=b) or (a>c) then x:=5*a-b else x:=4*a*b; write(x);

Слайд 13

a:=7; b:=3; c:=6; if (a>b) and (a>c) then x:=a-b else x:=4*a-b; write(x);

Слайд 14

Стр. 17-18 разобрать примеры Напишите программу вычисления функции y=1 / x для любого х. При х=0 выдать сообщение «функция не существует»