2 задачки на паскале

[AFA]

Помогите!
1) Составить программу выводящую таблицу функции
Y=f(x,a)=sqrt(a+1)*(sqr(x)/exp(3*ln(a))+1)
Аргумент х изменяется в диапазоне 0.1 .. 2 с шагом 0.1, параметр а принимает значения 0,1,2,3,4,5.
Таблица должна иметь заголовки колонок выводимые значения - с точностью 4 знака после десятичной точности.

2) Вычислить сумму ряда s= (n w n=1) x/3(n+1), где х изменяется от -4,5 до 4,5 с шагом 3

Помогите пожалуйста!!

[Stilet]

Сам чо нить делал(а)?

[alex_fcsm]

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

Помогите!
1) Составить программу выводящую таблицу функции
Y=f(x,a)=sqrt(a+1)*(sqr(x)/exp(3*ln(a))+1)
Аргумент х изменяется в диапазоне 0.1 .. 2 с шагом 0.1, параметр а принимает значения 0,1,2,3,4,5.
Таблица должна иметь заголовки колонок выводимые значения - с точностью 4 знака после десятичной точности.

uses crt;
var i,j:integer;
    x,res:real;


begin
clrscr;
x:=0.1;
write('x\a');
for i:=1 to 5 do
 write(i:8);
writeln;
for i:=0 to 19 do
 begin
  x:=0.1+i*0.1;
  write(x:4:2);
  for j:=1 to 5 do
   begin
     res:=sqrt(j+1)*(sqr(x)/exp(3*ln(j))+1);
     write(res:8:4);
   end;
   writeln;
 end;
end.

j не может быть равно 0!!!

[AFA]

почему на знаке умножения выскакивет ошибка? (((

код:

Program Summa;
uses crt,printer;
const n=4;
type
mas=array[1..n] of real;
var
x:mas; l:integer;
s:real;
begin
ClrScr;
s:=0;
FOR l:=1 to n do
begin
Writeln('Vvesti x[',l,']:');
read(x[l]);
s:=(x/3*(n+1));
end;
Writeln('Rezultat summirovani9:');
Writeln(' s=',s:7:3);
END.

[alex_fcsm]

s:=(x[l]/3*(n+1));

[AFA]

alex_fcsm
точно, спасибо)))