По заданным вещественным числам вычислить величину

@Fausto · Регистрация: 04.01.2016

Author24 — интернет-сервис помощи студентам

По заданным вещественным числам a0,a1,...a30, b1,...,b30, c0,...,c30 и x,y,z вычислить величину: ((a0x^30+a1x^29+...+a30)^2-(b0y^30+b1y^29+...+b30))/(c0(x+z)^30+c1(x+z)^29+...+c30).

@Puporev · 28.11.2016, 20:59

Pascal

uses crt;
const n=30;
type mas=array[0..n]of real;
//подсчет значения многочлена по схеме Горнера
function gorner(z:mas;x:real):real;
var i:byte;
    s:real;
begin
s:=0;
for i:=0 to n do
s:=s*x+z[i];
gorner:=s
end;
//процедоа создания массива
procedure massiv(var a:mas; c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=0 to n do
 begin
  a[i]:=-3+6*random;
  write(a[i]:5:1);
 end;
writeln;
end;
var a,b,c:mas;
    x,y,z,w:real;
begin
clrscr;
massiv(a,'A');
massiv(b,'B');
massiv(c,'C');
writeln('Введите 3 действительных числа');
readln(x,y,z);
w:=(sqr(Gorner(a,x))-Gorner(b,y))/Gorner(c,x+z);
write('W=',w);
readln
end.

@Fausto 0 / 0 / 0 Регистрация: 04.01.2016 Сообщений: 5
		1
	По заданным вещественным числам вычислить величину 28.11.2016, 20:39. Показов 1639. Ответов 1 Метки нет (Все метки) По заданным вещественным числам a0,a1,...a30, b1,...,b30, c0,...,c30 и x,y,z вычислить величину: ((a0x^30+a1x^29+...+a30)^2-(b0y^30+b1y^29+...+b30))/(c0(x+z)^30+c1(x+z)^29+...+c30). 0

	28.11.2016, 20:59

Опции темы

По заданным вещественным числам вычислить величину

Решение