Помогите написать несложную программу на TP. Тема: программирование ветвлящихся и цикл. выч. процессов

[Andrey6451]

Здраствуйте. Задача такая:

Вычислить значения функции:
,
где x изменяется в интервале [-5; 5] с шагом x=0,2.

Буду очень благодарен.

[_Dmitry]

В чём, собственно, вопрос?
Значение функции можно вычислить следующим образом:

function y(x: real): real;
var
  b: integer;
begin
  y:=1;
  for b:=1 to 10 do
    y:=y*(x*x*x*x*x-b);
end;

Ну, а программу для получения таблицы значений напишите сами.

[Andrey6451]

Dmitry
Спасибо за помощь. Просто я полный нуб в Паскале. Первый раз задали сделать самостоятельно задачу (на завтра).

У меня получилось вот что. Но мне кажется, что это неправильно

Program ABC;
Var
x:real;
y:real;
b:integer;
Begin
x:=5;
while x<=10 do
begin
y:=1;
for b:=1 to 10 do
y:=y*(x*x*x*x*x-b);
writeln('y=',y:5:1);
x:=x+0.1;
end
end.

[_Dmitry]

Немножко поправил.

Program ABC;
var
  x,y: real;
  b: integer;
begin
  x:=-5;
  while x<=5 do
  begin
    y:=1;
    for b:=1 to 10 do
      y:=y*(x*x*x*x*x-b);
    writeln('x=',x:1:1,'    y=',y);
    x:=x+0.2;
  end;
  readln;
end.

[Andrey6451]

_Dmitry
Спасибо.
Сорри, это я смотрел на пример другой задачи и случайно вместо 0.2 написал 0.1, и вместо 5 написал 10.

С текстом теперь понятно.

Вопрос, как на блок схеме выразить функцию (т.е. то, что у нее b изменяется от 1 до 10)?

[_Dmitry]

Посмотрите эту программу http://fceditor.nm.ru/ автоматически создаёт блок-схему по паскалевскому коду. Crack здесь http://www.programmersforum.ru/attac...2&d=1208401513

[Andrey6451]

_Dmitry
Большое спасибо!