21. Решение задач на построение графиков функций.

Задача 1. Построить график функции y=Cos(x) на системе координат:

xl=-3;xr=3;yu=2;yd=-2

Задача 2. Построить график функции y=x*Cos(x) на системе координат:

xl=-12;xr=12;yu=8;yd=-8

Задача 3. Построить график функции y=sqr(x)+Cos(10*x)-5 на системе координат:

xl=-13;xr=13;yu=10;yd=-10

Задача 4. Построить график функции y=Tg(x) на системе координат:

xl=-8;xr=8;yu=6;yd=-6

Задача 5. Построить график функции y=Sqrt(25-sqr(x)) на системе координат:

xl=-8;xr=8;yu=6;yd=-6

Задача 6. Построить график функции y=Ln(x) на системе координат:

xl=-8;xr=8;yu=6;yd=-6

Задача 7. Построить график функции y=Round(x) на системе координат:

xl=-8;xr=8;yu=6;yd=-6

Задача 8. Построить график функции y=Exp(x) на системе координат:

xl=-8;xr=8;yu=6;yd=-6

Задача 9. Построить график функции y=5*Sqrt(Sin(x)) на системе координат:

xl=-8;xr=8;yu=6;yd=-6

Задача 10. Построить график функции y=5*Sin(x*x) на системе координат:

xl=-8;xr=8;yu=6;yd=-6

Задача 11. Построить графики функций y=(x) и y=10*cos(x) на системе координат: xl=-12;xr=12;yu=10;yd=-10

Определить количество общих точек.

Задача 12. Построить график функции y=sin(x)+x/5 на системе координат:

xl=-8;xr=8;yu=6;yd=-6 и найти число корней для уравнения sin(x)+x/5=0

Задача 13. Сколько общих точек у двух парабол y=sqr(x) и y=sqr(2*x)-3

Задача 14. Сколько общих точек у двух парабол y=sqr(x) и y=sqr(x/2)-3

Задача 15. Сколько общих точек у двух парабол y=sqr(x) и y=sqr(x-3)

22. Подпрограммы.

Подпрограмма – это вспомогательная программа, которая решает часть основной задачи.

Подпрограмма – это маленькая программа внутри главной программы.

Объявление подпрограмм. Procedure Имя(формальные параметры); Раздел объявлений собственных переменных B Раздел операторов egin End;	Главная программа Program Имя; Begin Раздел операторов End.
Вызов подпрограмм на выполнение. Имя(фактические параметры);

Пример:

Главная задача: Вспомогательная задача: Подпрограмма «Кольцо»: Формальные параметры: X – координата центра Y – координата центра Rb – радиус большой окруж. Rm – радиус малой окруж. Cl – цвет линий Cf – цвет заливки

Program Picture; Uses Graph; Var gd,gm:Integer; Procedure Ring(x,y,Rb,Rm,Cl,Cf:Integer); Var xf,yf:Integer; Begin SetColor(Cl); Circle(x,y,Rb); Circle(x,y,Rm); xf:=x; yf:=y+Round((Rb+Rm)/2); SetFillStyle(1,Cf); FloodFill(xf,yf,Cl); End; Begin gd:=Detect;InitGraph(gd,gm,’c:\bp\bgi’); Ring(220,240,80,60,15,4); Ring(420,240,80,60,14,1); ………………. ReadLn; CloseGraph; End.