Тема: Решение задач с условным оператором. Цели: Научить решать задачи с условным оператором. Развивать умения составлять программы с условным оператором Воспитывать интерес к предмету.

Повторение. Какова конструкция условного оператора? Какие существуют формы условного оператора? Приведите пример условного оператора.

Решение задач. Program sum; Var y, a, х, b: real; Begin Readln (x, a, b ); If x>=2 then y: =a*x*x + b else y: =sqrt (x + b); Writeln (y=, y); Readln; End. А) Вычислить значение: У =

Б) Вычислить Program sum2; Var y, a, х, b: real; Begin Readln (x, a, b ); If x

В) Заданы длины сторон треугольника, определить, является ли этот треугольник прямоугольным. Program sum3; Var a, b, c: real; Begin Readln ( a, b,с ); If a*a + b*b = c*c then writeln (треугольник прямоугольный) else writeln (не прямоугольный); Readln; End.

Г) Заданы длины сторон треугольника, определить, является ли данный треугольник равнобедренным. Program sum4; Var a, b, c: real; Begin Readln ( a, b,с ); If (a = b) OR (a = c) then writeln (треугольник равнобедренный) else writeln (не равнобедренный); Readln; End.

Д/З 1.стр.75 – 83 повторить. Составить программу: Заданны два числа, найти среди них минимальное число.

Герцель Любовь Николаевна- учитель информатики Затобольская средняя школа 2 Кустанайский район, Кустанайская область