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

[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.

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

[mind abuse]

И x и y должны быть вещественными, там же нецелые величины. Так всё в порядке, ошибки лишь на уровне случайных лагов.

Код

program qwsdfew;
var
i:integer;
x,y:real;
begin
x:=1;
for i:=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;
readln;
end.

А вот где массивы, хм.... ну может быть так:

Код

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
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.

Только доделайте так, чтоб оно и x1=1 выводило.

Сообщение отредактировано: mind abuse - 15.05.2008 23:59