Данный цикл типа «Пока» проверяет условие нажатия на любую клавишу. В случае такого нажатия программа завершается с помощью команды end. А до этого оператор goto возвращал компьютер на выполнение условного оператора в строке 10.
Кроме задания области компьютерной вычислимости функции условный оператор может быть использован для нахождения наибольшего и наименьшего значения функции на отрезке.
Задание 3. Построить график функции у = 1 / х2.
Решение.
screen 12 for t=-1 to 1 step.0001 x=320+200*t if abs(t)<.05 goto 1 yt=1/t^2 y=400-yt pset(x,y) 1 next t |
Задание 4. Построить график функции у = (х – 0,95)(х – 0,7)(х + 0,7)(х + 0,8) на oтрезке [ –1; 1] и найти его максимум.
Решение.
screen 12 line(120,400)-(520,400),2 max=(-1-.95)*(-1-.7)*(-1+.7)*(-1+.8) for t=-1 to 1 step.0001 x=320+200*t yt=(t-.95)*(t-.7)*(t+.7)*(t+.8) if yt>max then max=yt:xm=x y=400-400*yt pset(x,y),4 next t circle(xm,400),2,1 circle(xm,400-400*max),2,1 line(xm,400)-(xm,400-400*max),1 |
Задание 5. Изогнуть один и тот же отрезок по лекалам графиков функций у = х2 на oтрезке [ –1,5; 1] и y = sin x на отрезке [ –10π; 10π].
Решение.
Для успешного решения задачи нужно, используя параметр t, меняющий-ся от 0 до 1, вычислять aргументы каждой функции, а по ним значения функций. Экранные абсциссы точек изгибаемого отрезка вычисляются отдельно.
screen 12 for t=0 to 1 step.0001 x=120+400*t x1=-1.5+t*(1+1.5) x2=-31.4+t*62.8 y1=x1^2 y2=sin(x2) pset(x,240-100*y1),2 pset(x,240-100*y2),4 next t |