решение уравнений

[Spudka]

Добрый вечер! Пожалуйста подскажите как написать программку в паскале. Я вообще студент-математик, с программированием знакома по стольку по скольку. НО так вышло, что в дипломе надо написать программку.

задача в следующем: мне необходимо вывести на экран уравнение n степени, коэффициенты которого вводятся в ручную.
Вот мои соображения по этому поводу:

program stat;

var n,i,x,f:word;
a:array[0..20]of real;
begin
read(n);
writeln ('vvedite n:=',n);
    Begin
write ('vvedite: a[0]=');
read(a[0]);
 for i:=1 to n do
   begin
    write('vvedite: a[i]: a[',i,']=');
    readln(a[i]);
          end;
          f:=a[0]+a[i]*(exp(ln(x)*i));end;
      begin

write('uravnenienimeet vid f=');
read(f)
    end;  end.

ПОдскажите, что не так

Заранее спасибо!!!

[Hacker19_90]

Простите, чего чего вам для диплома надо?

НО так вышло, что в дипломе надо написать программку.

задача в следующем: мне необходимо вывести на экран уравнение n степени, коэффициенты которого вводятся в ручную.

нда уж...
Так ладно!
А теперь пожалуйста по порядку!
Общий вид уравнения? И как оно должно выводиться?
Вид какой его должен быть?
По вашему коду понятно только, то что вы коэффициенты в степень возводите
(Это глупо, разве нет?)
Приведите пример какой-нибудь!

[Spudka]

Может и так! Говорю же с паскалем на "ВЫ" =)
НО я пыталась написать, что коэффициент a[i]*x в степени i и все это просуммировать, тогда в результате должно получиться алгебраическое нелинейное уравнение, максимальная степень которого i=n


Понятное дело, что в дипломе мне не нужна программа, которая "только" выводит уравнение на экран. Задача состоит в том, чтобы с помощью различного рода итерационных функций найти приближенное решение этого уравнения с определенной точность, и программа должна быть универсальной.

[Alex.Pi]

Сообщение от Spudka

ПОдскажите, что не так

Привет!
А вы эту программу запускали? Насколько я вижу, она работать не будет.
Во первых,

read(n);

должно стоять после

writeln ('vvedite n:=',n);

.
Второе, вы в цикле свои коэффициенты возводите в степень с переменной "х", которая не определена.
Третье, вам не надо возводить коэффициенты в степень, насколько я понял по постановке задачи, хотя вы делаете это в том же цикле
И последнее, у вас нет той части, которая бы выводила на экран ваше уравнение.

write('uravnenienimeet vid f=');

просто выдаст вам значение f, т.е. одно число. Точнее, отобразит только текст, потому что там ошибка.

Я не смогу помочь вам с паскалем, но для математика это очень простая задача, говорю вам, как математик :-)

[Spudka]

Конечно запускала!!!
до момента где формируется уже само уравнение f все работает великолепно.

Просто хотелось бы, чтоб на экране высветилось:
"ваше уравнение имеет вид"
f=a[0]+a[1]x+a[2]x^2+...

С точки зрения математики, сама задачи,-это обычные численные методы не требующие ума: есть начальное приближение, есть формула, подставил посчитал.

НО КАК ЭТО ЗАПРОГРАМИРОВАТЬ???

[Hacker19_90]

Просто хотелось бы, чтоб на экране высветилось:
"ваше уравнение имеет вид"
f=a[0]+a[1]x+a[2]x^2+...

Ну так с этого и надо начинать!
Ну вот так можно получить желаемое...

Readln (n);
for i := 0 to n do
    Read (a[i]);
ReadLn;
Write ('f = ', a[0], '  ');
for i := 1 to n do
    write ( '+ ',  a[i], '*x^, i, ' ');
Writeln;

Если я правильно понял!

[Spudka]

Спасибо, что откликнулись, но дело в том, что степень x нужно прописывать через (exp(n*ln(x))) , потому что ^ не считывает.

В дальнейшем будут происходить манипуляции с этой функцией f поэтому ее задание должно быть корректным.

[Spudka]

Что Вы на это скажите? Это имеет право на жизнь?

program stat;

var n,j,i,x,f:word;
a,y:array[0..20]of real;
begin
writeln ('vvedite n:=');
read(n);
    Begin
write ('vvedite: a[0]=');
read(a[0]);
 for i:=1 to n do
    begin
    write('vvedite: a[i]: a[',i,']:=');
    readln(a[i]);
y[i]:=exp((ln(x))*i);
        Write('f = ', a[0], '  ');
    write ( '+ ',a[i], '* ',y[i]);
          end;
  end; end.

Но программа не работает, ее проблема в красной строчке, через экспоненту оно считать на хочет, а значок ^ не распознает.
Возникает вопрос: "Как еще можно задать х в степени n?"

Помогите пожалуйста, осталось 3 дня

[Poma][a]

ну давай напишем процедурку

procedure Power (const a : Word; const b : Word; var r : Real);

var
          i : Integer;

begin
          r := 1;       
          for i := 1 to b do 
                  r := r * a;
end;

ну и тогда замени красную строчку

Power (x, n, y[i]); {где x- число, n- степень числа, y[i] - элемент массива в который заносим результат}

З.Ы. не проверял

[Spudka]

Расскажите, пожалуйста, поподробней про процедуру, что-то типы данных у меня не могут сойтись.