Основы применения вычислительной техники и программирование. Беспалов В.В. - 86 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

SetColor(
Line(0,240,640,240); {чертим оси}
5);
Line(320,0,320 0);
While x<=x2 do {основной цикл}
,48
функции}
выводим точку}
шаг}
end.
задан-
ассмотренной в гл. 9, напишем процедуру, которая по-
ам на экране график найденной функции и кружочками поме-
тит ис мень-
ших кв
0 1 2 m
В разделе описаний нужно дключить графиче-
ский модуль
xy,minx,maxx,mx,my,h:real;
begi
for
xy:=y[i];
begin
{вычисляем значениеy:=-f(x);
PutPixel(x*m+320,y*m+240,15); {
x:=x+h; {делаем
end;
10.6. Построение графика аппроксимирующей функции
чи нахождения аппроксимирующей функции по
Для зада
кам, рным точ
строит н
ходные точки. Это наглядно продемонстрирует метод наи
адратов.
Напоминаю, что исходные точки находятся в двух массивах:
x[0..n] и y[0..n], а результат – в массиве С[0..m], где m – поря-
док степенной функции. Это массив коэффициентов степенной функции
f(x) = C + C x
+
C x
2
+...+C x
m
.
При описании процедуры эти массивы будут использованы как
глобальные переменные. Так же в описании процедуры будет использо-
вана ранее описанная функция
F1 для вычисления значений полинома.
программы не забыть по
uses graph;
Размер графического экрана принимаем 640 на 480 точек.
procedure grafic;
var i,gd,gm,dx,dy: integer;
x0,y0,miny,ma
n
maxy
maxx:=x[0]; minx:=x
:=y[0]; miny:=y[0];
[0];
i:=0 to n do {определяем max и min}
begin
y[i]<miny then miny:=y[i]; if
if y[i]>maxy then ma
if x[i]<minx then minx:=x[i];
if x[i]>maxx then maxx:=x[i];
end;
87

Страницы