Задачи на простые циклы, цикл for Опции

[Yaroslav]

Вычислить значение многочлена n (энной) степени при заданном значении х.


Написать программу для следующих примеров:

1) Р(х) = 4*х*x*x*x*x – 7*x*x*x*x + 5* x*x*x -2*х + 1;
2) Р(х) = x*x*x*x*x*x – 4*x*x*x*x + x*x*x -2* x*x + 5;
3) Р(х) = x*x*x*x*x + x*x*x*x – 6* x*x*x– 14* x*x – 11*х – 3


При написании программы использовать следующий алгоритм:

Начало
далее
n, а0, а1 …, аn, х
далее
р: = а0
далее
i = 1
далее
i =< n
далее: если - , то p далее конец
если + , то р: = p*x +a[i] далее i : = i + 1 и возврат к i =< n

[klem4]

Вот так чтоли ???

Это для первого многочлена, для остальных просто формулу поменять и все.

Код

uses crt;
var x:extended;
function p(x:extended):extended;
begin
p:=4*exp(5*ln(x))-7*exp(4*ln(x))+5*exp(3*ln(x))-2*x+1;
end;
Begin
  clrscr;
  readln(x);
  writeln(p(x):2:3);
  readln;
end.

[klem4]

Начало
далее
n, а0, а1 …, аn, х
далее
р: = а0
далее
i = 1
далее
i =< n
далее: если - , то p    далее конец
если + , то р: = p*x +a[i]    далее i : = i + 1 и возврат к i =< n

Вот это ваще не ясно )

[Altair]

Вот так чтоли ???

нет, не так.

Код

exp(5*ln(x))

нельзя это
потому что

Задачи на простые циклы, цикл for

[klem4]

т.е. без возведения в степень чтоли надо ?

Даже если и так, то причем тут цикл ?? Ведь нужно просто получить значение монгочлена...

Сообщение отредактировано: klem4 - 12.01.2005 1:50

[klem4]

ИЗВИНЯЮСЬ, ступил )) мне просто показалось что тут 2 задания.

Сообщение отредактировано: klem4 - 12.01.2005 2:04

[Yaroslav]

т.е. без возведения в степень чтоли надо ?

Даже если и так, то причем тут цикл ?? Ведь нужно просто получить значение монгочлена...

Спасибо большое! Но могли бы вы решить эти задачки через переменные, которые даны в алгоритме решения задачи,просто мы ещё не проходили функции!

Yaroslav
То, что задание должно быть решено без помощи функций должно оговариваться заранее

Сообщение отредактировано: volvo - 12.01.2005 14:00

[klem4]

Начало
далее
n, а0, а1 …, аn, х
далее
р: = а0
далее
i = 1
далее
i =< n
далее: если - , то p  далее конец
если + , то р: = p*x +a[i]    далее i : = i + 1 и возврат к i =< n

Дословно похоже на это :

Код

uses crt;
var
   a : array[0..100] of integer;
 i,n : integer;
 x,p : extended;

Begin
  clrscr;
  write('Input x ');readln(x);
  write('Input n ');readln(n);
  for i:=0 to n do
   readln(a[i]);
  p:=a[0];
  for i:=1 to n do
   p:=p*x + a[i];
  writeln(p:2:3);
  readln;
  end.

[klem4]

Объясните пожалуйста, как связано

это

1) Р(х) = 4*х*x*x*x*x – 7*x*x*x*x + 5* x*x*x -2*х + 1;
2) Р(х) = x*x*x*x*x*x – 4*x*x*x*x + x*x*x -2* x*x + 5;
3) Р(х) = x*x*x*x*x + x*x*x*x – 6* x*x*x– 14* x*x – 11*х – 3

и это

Начало
далее
n, а0, а1 …, аn, х
далее
р: = а0
далее
i = 1
далее
i =< n
далее: если - , то p далее конец
если + , то р: = p*x +a[i] далее i : = i + 1 и возврат к i =< n

Между собой ?

[Altair]

первое-уравнения, второе- алгоритм их решения!

[klem4]

Цитата
первое-уравнения, второе- алгоритм их решения!

Это вполне понятно из

При написании программы использовать следующий алгоритм:

Но как решить эти уравнения с помощью этого алгоритма ? Меня именно это интересует...

Сообщение отредактировано: klem4 - 14.01.2005 15:34

[Altair]

то, что названо здесь алгоритмом, не является алгоритмом. Вот ответ на твой вопрос, klem4.
;)
Алгоритм - последновательность однозначных команд, понятных исполнителю.
А то, что здесь:

Начало
далее
n, а0, а1 …, аn, х
далее
р: = а0
далее
i = 1
далее
i =< n
далее: если - , то p далее конец
если + , то р: = p*x +a[i] далее i : = i + 1 и возврат к i =< n

явно не алгоритм.... ;)

[Yaroslav]

Дословно похоже на это :

Код

uses crt;
var
   a : array[0..100] of integer;
 i,n : integer;
 x,p : extended;

Begin
  clrscr;
  write('Input x ');readln(x);
  write('Input n ');readln(n);
  for i:=0 to n do
   readln(a[i]);
  p:=a[0];
  for i:=1 to n do
   p:=p*x + a[i];
  writeln(p:2:3);
  readln;
  end.

Извините, а какие данные я должен подставлять под x и y? Помогите, пожалуйста!

[Altair]

Вычислить значение многочлена n (энной) степени при заданном значении х.

следовательно x и n вводится.

write('Input x ');readln(x);
 write('Input n ');readln(n);

[Altair]

Извините, а какие данные я должен подставлять под x и y? Помогите, пожалуйста!

Что значит какие? Вот ваше задание:

Вычислить значение многочлена n (энной) степени при заданном значении х.

[Yaroslav]

Перерешайте пожалуйста заново эти формулы!Просто программа по данному мной алгоритму не работает! Но когда будете переделывать программу через цикл for, не используйте пожалуйста ln ! Помогите мне пожалуйста!

[Altair]

ок, итак:

Написать программу для следующих примеров:
1) Р(х) = 4*х*x*x*x*x – 7*x*x*x*x + 5* x*x*x -2*х + 1;
2) Р(х) = x*x*x*x*x*x – 4*x*x*x*x + x*x*x -2* x*x + 5;
3) Р(х) = x*x*x*x*x + x*x*x*x – 6* x*x*x– 14* x*x – 11*х – 3

Код

uses crt;
var
  a : array[0..100] of integer;
i,n : integer;
x,p : extended;

Begin
 clrscr;
 write('Input x ');readln(x);
 write('Input n ');readln(n);
 for i:=0 to n do
  readln(a[i]);
 p:=a[0];
 for i:=1 to n do
  p:=p*x + a[i];
 writeln(p:2:3);
 readln;
end.

для первого вводишь x- число X для которого надо вычислить значение многочлена.
и затем в цикле вводятся коээфициенты. ты вводишь для первго примера

4
-7
5
-2
1

----------------------
для второго

1
-4
1
-2
0
5

ясно??????

N для 1 и 3 равно 4, для
2 - равно 6. это степень многочелна

Сообщение отредактировано: volvo - 16.01.2005 2:01

[Yaroslav]

Oleg_Z
Ничего не получается!
Я делаю так:
на экране появляется input x, я ввожу данное мне в задании число 3.
дальше появляется input n, я ввожу 4 -7 5 -2 1 . После этого ничего не выходит на экран! Что я не так делаю?Пожалуйста помогите!Ответ для 1-ой задачи для x=3 должен быть равен 535.
Yaroslav, не нужно копировать сообщения полностью...

Сообщение отредактировано: volvo - 16.01.2005 1:58

[klem4]

Во первых n не может быть равно (4 -7 5 -2 1), так как n - кол-во итераций цикла - 1. N - это целое неотр. число, например 2 или 45.

Сообщение отредактировано: klem4 - 16.01.2005 0:24

[volvo]

Yaroslav
Единственное, что приходит в голову для вычисления этой последовательности:

Код

uses crt;
var
 i,j,n, x,p,s : longint;

begin
 clrscr;
 write('Input x ');readln(x);
 write('Input n ');readln(n);

 for i:=n downto 0 do
   begin
     writeln('input a[', i, ']');
     readln(p); j := i;
     while j > 0 do
       begin
         p := p * x; dec(j)
       end;
     s := s + p
   end;
 writeln(s);
 readln;
end.

Вводим (для первого задания):

x=3; n=5;
a[5]=4; a[4]=-7; a[3]=5; a[2]=0; a[1]=-2; a[0]=1

Не забываем, что вводить надо ВСЕ коэффициенты последовательности (если соответствующего члена нет, то коэфф = 0)
Oleg_Z
:P

Сообщение отредактировано: volvo - 16.01.2005 1:59