Проблемно-ориентированная информатика химико-технологических процессов. Кравцов А.В - 30 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

Пример 2.6.4 Составить программу для расчета функции по фор-
муле Лагранжа
yy
xx
xx
i
j
ij
j
ji
n
i
n
=⋅
−
−
⎛
⎝
⎜
⎜
⎜
⎞
⎠
⎟
⎟
⎟
=
≠
=
∏
∑
1
1
CONST
{Задание значений массивов в программе в виде типизированных кон-
стант.}
n=5;
x:
ARRAY[1..n] OF real=(1,3,5,7,9);
y:
ARRAY[1..n] OF real=(1.33,2.57,3.44,4.74,5.11);
VAR x0, S, P:real;
i, j:integer;
BEGIN
{Расчет суммы.}
S:=0;
FOR i:=1 TO n DO
BEGIN
{Расчет произведения.}
P:=1;
FOR j:=1 TO n DO
IF i< >j THEN P:=P∗(x0-x[j])/(x[i]-x[j]);
S:=S+y[i]
∗P
END;
writeln(’f(’,x0:5:2,’)=’,S:12)
END.
Пример 2.6.5 По древней легенде мудрец, придумавший игру
шахматы, попросил в награду у султана столько зерен пшеницы, сколь-
ко уместиться на шахматной доске, если заполнять ее следующим обра-
зом: на первую клетку доски - одно зерно, на вторую - два, на 3-ю - 4, на
4-ю - 8 и т. д. Составить программу для расчета количества зерен.
PROGRAM Chess;
VAR i:integer; k, S:real;
BEGIN
k:=1; S:=0;
FOR i:=1 TO 64 DO
BEGIN
S:=S+k;
k:=2∗k;
30

Страницы