Практикум по решению задач на ЭВМ. Тарова И.Н - 70 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

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

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
if a[j]<a[l] then
l:=j;{определение номера минимального элемента}
c:=a[i];{обмен значениями}
a[i]:=a[l];
a[l]:=c;
end;
writeln('упорядоченный массив:');
for i:=1 to n1 do
writeln(a[i]);
readln;
end.
Лабораторная работа №20
Многочлены
1) Дан многочлен Р (х). Получить многочлен Р
(х).
2
2) Даны действительное число a, многочлен Р(х). Получить:
а) (х-а)Р(х); б) (х*х+2ах+3)Р(х); в) (х*х+а*а)Р(х).
3) Даны действительные числа а
0
, а
1
, …, а
5
. Получить многочлен шестой
степени (х - а
0
)(х - а
1
)…(х - а
5
).
4) Коэффициенты многочлена хранятся в массиве a:array [0..n] of integer
(n - это натуральное число, степень многочлена). Вычислить значение
этого многочлена в точке х (т.е. a[n]*x
n
+a[1]*x+a[0]).
Указание: Описываемый алгоритм называется схемой Горнера:
k:=0;
y:=a[n];
{инвариант: 0<=k<=n,
y=a[n]*x
k
+a[n-1]*x
n-1
+...+a[n-k]*x
0
}
while k<>n do
begin
k:=k+1;
y:=y*x+a[n-k];
end;
70
                                Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


              if a[j]n do
begin
k:=k+1;
y:=y*x+a[n-k];
end;



                                     70

Страницы