Тема урока: Преподаватель Шатц К.Э.

1. Какие числа относятся к типу Integer Real 2. Исправь ошибки в программе Program 2 pr; Var b,s: real; Begin Writeln (Введите числа b и с) Readln( b,c); A=b+c; Write ln ( a=,a); End. 3. Запиши на языке программирования математическое выражение х 2 +2 ху-у 2 4. Переведите запись с языка программирования Паскаль на математический язык Sqrt(x)*3 – (a+2)/b

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

If then else ;

Program My2; Uses crt; Var x,y: integer; Begin Writeln (Введите два числа) Readln( х, у); If x>y Then Writeln(x) else Writeln(y); End. Что появится на экране после выполнения данной программы? Подчеркните условный оператор?

A:=5; b:=4; c:=3; If a>b then x:=a+b Else A:=b+c; x:=a-3*b; End.

a:=3; b:=4; If a>b then x:=a*b else x:=a; End.

a:=53; b:=14; If a<=b then x:=a+b Else x:=2*a-4*b; End.

A:=1; b:=4; c:=8; If (a c) then x:=5*a-b Else x:=4*a*b; End.

A:=9; b:=8; c:=2; If (a>b) and (b>c) then x:=2*a+b+c Else A:=b+c; x:=a-3*b; End.

a:=7; b:=3; c:=6; If (a c) then x:=4*a-b*a Else x:=a-b; End.

который вычисляет значение функции: If х >3 then y:=x 2+ 5 else y:=x- 8;

1. Напишите фрагмент программы, подсчитывающих сумму только положительных из трёх данных чисел.