Кумир. Программа построения графиков двух квадратичных уравнений и вычисления корней.

|  Кумир. Программа построения графиков двух квадратичных  уравнений. Расположена на сайте           

|  turtk.viptop.ru.  Может быть полезна на уроках информатики и математики.

| СПБ, Лицей №554
| Kumir-2.1.0-rc7/bin/kumir2-classic.exe
| Август 2018
| 01-02
| Первая функция: график синего цвета yf1 = 0.4*xf1**2-2
|
| Вторая функция: график красного цвета yf2 = -0.1*x**2 +3

| Вид функции задаем в строках отмеченных комментариями 1-8

использовать Чертежник
алг
нач
. функция
кон

|     Алгоритм задания вида функции и начальных параметров
алг функция
нач
. вещ x1,x2,dx   | интервал и шаг изменения аргумента общий
. x1:=-6;   x2:=6;  dx:= 0.1
. поднять перо
.
. вещ xf1,yf1 ,dxf1
. вещ xf2,yf2 ,dxf2
. вещ start_xf1,stop_xf1  | интервал изменения аргумента f1
. вещ start_xf2,stop_xf2  | интервал изменения аргумента f2
.
. | Интервал построения графика f1     
. start_xf1:=x1;  stop_xf1:=x2     | Можно выбрать другой интервал и шаг
. dxf1:=dx
.
. |  Первая точка графика первой функции
.
. xf1:=x1;  
. yf1:= 0.4*xf1**2-2      |1  Вид f1
.
. выбрать чернила (синий)
. сместиться в точку (xf1,yf1)
.
. нц пока start_xf1<stop_xf1
. . start_xf1:=start_xf1+dxf1
. .
. . xf1:= start_xf1
. .
. . yf1:= 0.4*xf1**2-2     |2  Вид f1
. . опустить перо
. . сместиться в точку (xf1,yf1)
. .
. кц
. |============================================================
.
.
. | Интервал построения графика f2
.
. start_xf2:=x1;  stop_xf2:=x2  | Можно выбрать другой интервал  и шаг
. dxf2:=dx; 
. вещ k
. k:= 1
.
. |  Первая точка графика второй функции
.
. xf2:=x1;   yf2:= -0.1*xf2**2 +3      |3  Вид f2
. выбрать чернила (красный)
. поднять перо
. сместиться в точку (xf2,yf2)
.
. нц пока start_xf2<stop_xf2
. .
. . start_xf2:=start_xf2+dxf2
. .
. . xf2:= start_xf2
. .
. . yf2:= -0.1*xf2**2 +3              |4  Вид f2
. . опустить перо
. . сместиться в точку (xf2,yf2)
. .
. кц
. |============================================================
.
. |вычисление координат точек пересечения 
. |Формулы вычисления функций f1  и f2  должны быть записаны как
. |в строках отмеченных комментариями 1-4
.
. |начальные значения
. вещ x,y1,y2,d
. x:=-6;
. y1:=0.4*x**2-2;                            |5  Вид f1
. y2:= -0.1*x**2 +3                          |6  Вид f2 
. d:=1
. |сместиться в точку (x,y)
.
. нц 60 раз
. . |поднять перо
. . x:=x+0.2
. . y1:=0.4*x**2-2                                       |7  Вид f1
. . y2:=-0.1*x**2 +3                                     |8  Вид f2   
. . |найдем разность ординат графиков
. . d:=y2-y1
. . если abs(d)<0.2 то
. . . . вывод нс, "    при x= ",x," y1= ",y1,"  y2= ",y2,"  d=  ",d,нс
. . . .
. . все
. кц
.
кон

Уменьшая шаг изменения аргумента можно получить любую точность вычислений.