Информатика. Часть 1. Мойзес О.Е - 112 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

112
{Переход в графический режим}
gd:=Detect;
InitGraph(gd,gm,'c:\bp\bgi');
x1:=0; x2:=4
∗Pi; h:=0.01; y1:=-1; y2:=1;
{Размеры рамки}
Nx1:=10; Nx2:=GetMaxX-Nx1;
Ny1:=10; Ny2:=GetMaxY-Ny1;
{Зарисовка рамки}
rectangle(Nx1,Ny1,Nx2,Ny2);
{Построение графика по точкам}
x:=x1;
repeat
y:=f(x);
{Вычисление координаты точки
экрана по заданным x и y}
Nx:=round(Nx1+(Nx2-Nx1)
∗(x-x1)/(x2-x1));
Ny:=round(Ny2-(Ny2-Ny1)
∗(y-y1)/(y2-y1));
PutPixel(Nx,Ny,12);
x:=x+h
until x>x2;
readln; {Пауза}
closegraph {Выход из графического режима}
END.
4.7. Программирование типовых алгоритмов вычислений
Вычисление суммы и произведения
Пусть требуется вычислить сумму значений некоторой
последовательности
s = а
1
+ а
2
+ ... + а
20
=
∑
=
20
1i
i
a ,
где а
i
– массив исходных данных.
При вычислении суммы используется прием накопления по
выражению
s = s + a
i
, i = 1,2,..., n.
По данному выражению каждое новое значение вычисляется
добавлением полученного слагаемого к сумме предыдущих. Начальное
значение суммы принимается равным нулю (s = 0). При первом
выполнении цикла (i=1) вычисляется значение s = 0 + a[1], на
втором шаге (i = 2) – значение
s = (0 + a[1]) + a[2] или s = s + a[2]. В результате повторения этой
операции 20 раз получим искомую сумму.

Страницы