Задача на тему "Массивы" Опции

[kvadrat]

Условие:


Моё решение:

program qwsdfew;
var x,y:integer;
begin
for x:=1 to 12 do
begin
y:=(6*ln(arctan(x)+1.5*sqrt(x)));
writeln('x:5:2,'       ',y:5:2');
x:=x+0.05;
end;
end.

Тело задачи должно быть правильным, но выдаёт ошибку о несоответствии типов, как исправить? И чёто непойму где тут должны быть массивы?

[kvadrat]

Вот несколько вопросов по решению

program qwsdfew;
uses crt;
var
a, b: array[1..100] of real;
i:integer;
x,y:real; {эти переменные тут ненужны думаю}
begin
clrscr;
for i:=2 to 12 do  {почему c 2х а не с 1?}
begin
a[1]:=1;   {что значит эта строчка?}
a[i]:=a[i-1]+0.05;  {зачем тут минус один?}
b[i]:=(6*ln(arctan(a[i])+1.5*sqrt(a[i])));
writeln(a[i],'       ',b[i]);
end;
readln;
end.

Сообщение отредактировано: kvadrat - 16.05.2008 14:49