Использование функций в Паскаль.

[Mixell]

Ребят помогите пожалуйсто.Вообще в потерях как сделать:
Данны действительные числа a[0],.....a[8]

Получить для 6,1<=x<=8,7 с шагом x=0,5

y(t)-t(2x+1)-x^2(x+2), где y(t)=a[8]*z^8+a[7]*z^7+......+a[0].

Выполнить с ипользованием функции.

[Mixell]

Прогу напишите плз)

[Leshii]

Попробуй поюзать поиск, задач на функции тут море.

Кратко тебе опишу...

uses crt;
var a, b, x, x1, h, fuunc, t: real;

function func( y:real ):real;
var i: integer;
     s:real;
begin
 s:=0;
 for i:= 8 downto 0 do begin
     s:=s+i*exp(z*ln(i)) // вот скажем формула
end;
 func:=s;
end;

//тело программы

begin
clrscr;
a:=6,1;b:=8,7;h:=0,5;
x:=a;
while x<=b do begin
fuunc:=func(t)-func(t)*(2x+1)-x^2(x+2)// подставляеш вместо y(t) значение func(t);
 x:=x+h;
//вывод
end;
// если не надо вывод по всем функциям то выводиш после цикла...
readln;
end.

Во общем как-то так, писал на скорую руку.

[Mixell]

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

Попробуй поюзать поиск, задач на функции тут море.

Кратко тебе опишу...

uses crt;
var a, b, x, x1, h, fuunc, t: real;

function func( y:real ):real;
var i: integer;
     s:real;
begin
 s:=0;
 for i:= 8 downto 0 do begin
     s:=s+i*exp(z*ln(i)) // вот скажем формула
end;
 func:=s;
end;

//тело программы

begin
clrscr;
a:=6,1;b:=8,7;h:=0,5;
x:=a;
while x<=b do begin
fuunc:=func(t)-func(t)*(2x+1)-x^2(x+2)// подставляеш вместо y(t) значение func(t);
 x:=x+h;
//вывод
end;
// если не надо вывод по всем функциям то выводиш после цикла...
readln;
end.

Во общем как-то так, писал на скорую руку.

Спасиб огромное ща буду вникать))В скайп добавь я заявку кинул)

[Mixell]

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

Спасиб огромное ща буду вникать))В скайп добавь я заявку кинул)

А что такое "clrscr"?