Все познается через труд, через преодоление ошибок (собственных), через процесс решения задач.

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. Запиши на языке программирования математическое выражение x 2 +2 ху-у 2 4. Переведите запись с языка программирования Паскаль на математический язык Sqrt(x)*3 – (a+2)/b

Y =

Тема урока:

позволяет выбрать те или иные части программы в зависимости от условий Оператор 1 Оператор 2 Логическое условие Логическое условие да-нет

If then else ; ; ; …

If then begin ; …. end else begin ; …. end ; …

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

Y = Program zadacha2; Var x,y: real; Begin Writeln (Введите x); Readln( x); If x>3 then y:=sqr(x)+5 else y:= x-8 ; Writeln ( у=,y); End. Подчеркните условный оператор?

If then ; ; … Логическое условие Логическое условие Оператор 1 да нет

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

Program zadacha3; var x, y: real; Begin writeln (Введите числа х и у); readln (x,y); If abs(x) >abs(y) then x:=x/5; Write(x=, x, y=, y); end. Подчеркните условный оператор?

Решить квадратное уравнение вида

начало Ввести a,b,c D>0 Корней нет конец да-нет D=0 да Вывод результата

Program zadacha4; Var a,b,c,d,x1,x2,x3: real; Begin Writeln (Введите числа a, b и с) Readln( a,b,c); D:=sqr(b)-4*a*c; If d> 0 then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); Writeln ( x1=,x1, x2=,x2); end Else if d = 0 then begin x3:=-b/(2*a); Writeln ( x3=,x3,); end Else writeln (Корней нет); End.

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