Решение задач с условным оператором

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

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

Решение задач. 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.

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

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