Практическая работа 4 Ввод, отладка, тестирование программ содержащих структуру «Ветвление»
План урока 1. Проверка решения задачи Решение задачи 2 3. Проверка задачи 2 на компьютере 4. Самостоятельное решение задач на компьютере.
Задача 1. Составить программу вычисления значения функции: Решение
Решение: Program Uravnenie; Var x, y: integer; Begin writeln (x) if x<-1 then y:= x³ +10 else if x>1 then y:= x² +2 else if -1<=x<=1 then y:=x+2 readln (y); end
Задача 2. Ракета запускается с точки на экваторе и развивает скорость υ км/с. Каков результат запуска? (Замечание: если υ 16,4, то ракета покинет Солнечную систему.)
Решение: Program Raketa; Var v: real; Begin Readln (v); If v<=7.8 then writeln (Ракета упала на Землю) Else If (7.8<v) and (v<11.2) then writeln (Ракета спутник Земли) Else If v> 16.4 then writeln (Ракета покинула Солнечную систему) Else writeln (Ракета спутник Солнца); End.
Минута отдыха 1. Сядьте поудобнее. В течение одной минуты просто подышите медленно и глубоко. Можете даже закрыть глаза. Посчитайте до трех, когда делаете вдох, и до пяти, когда выдыхаете. 2. Крепко зажмурьте глаза на 35 секунд. Откройте. Повторите несколько раз. 3. Потом снова закройте глаза и выполняйте круговые движения глазными яблоками вправо и влево.