Урок 13-14
Тема: Операторы условного и безусловного перехода на Паскале.
Цель: отрабатывать навык правильного использования условного оператора.
1. Проверка дом. задания.
1. Могут ли углы α, β, γ быть углами одного треугольника.
2. Даны точки М(1,2) и Р(3, а). Лежит ли отрезок МР в I четверти.
2. Решение задач.
Задача 1. Является ли заданное число четным.
Задача 2. Является ли число а полным квадратом.
If sqr(a) =Int (sqr(a)) then write (‘yes’) else write (‘no’);
Задача 3. Является ли треугольник с углами а и b равносторонним.
If (a=60) and (b=60) then write (‘yes’) else write (‘no’);
Задача 4. Является ли равнобедренным треугольник со сторонами 2, 3, х.
If (x=2) or (x=3) then write (‘yes’) else write (‘no’);
Задача 5. Выяснить взаимное расположение прямой y=kx+b и точки (m, n).
Задача 6. Вывести на экран номер четверти, которой принадлежит точка (x,y) ().
Begin
If (x>0) and (y>0) then
Writeln (‘I ’)
Else if (x>0) and (y<0) then
Writeln (‘IV ’)
Else if (x<0) and (y>0) then
Writeln (‘II ’)
Else Writeln (‘III ’);
Readln;
End.
Задача 7. Решить квадратное уравнение.
Program kvur;
uses crt;
var d, a, b, c, x, x1, x2: real;
begin
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:7:3,x2:7:3); end
else if d=0 then begin x:=-b/(2*a);writeln(x:7:3); end
else writeln ('korney no');
end.
Задача 8. Принадлежит ли точка фигуре.
3.Итог урока.
4. Домашнее задание.
1.Выяснить оканчивается ли заданное число нулем.
2. Выяснить взаимное расположение прямой ОХ и точки (a,b).