Тема: Решение задач с условным оператором. Цели: Научить решать задачи с условным оператором. Развивать умения составлять программы с условным оператором Воспитывать интерес к предмету.
Повторение. Какова конструкция условного оператора? Какие существуют формы условного оператора? Приведите пример условного оператора.
Решение задач. 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 <a then y: =a + b else y: =(a + b) /x; Writeln (‘y=’, y); Readln; End.
В) Заданы длины сторон треугольника, определить, является ли этот треугольник прямоугольным. 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 Кустанайский район, Кустанайская область