Условие:
Нажмите для просмотра прикрепленного файла

Моё решение:

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.

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

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



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



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

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

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.

Да, x,y не нужны, раз используем массивы. "a[i]:=a[i-1]+0.05" означает, что на каждой итерации значение нашего икса увеличивается на 0.05 по сравнению с предыдущим: x[2] = x[1] + 0.05 = 1+0.05=1.05; x[3]=x[2]+0.05 = 1.05+0.05=1.10, и т.д. "a[1]:=1;" - ну наш массив должен ведь с чего-то начинаться, первый элемент по условию x1=1. Почему i:=2 - не знаю, мозг не хотел думать, как заставить программу выводить первый элемент. Вот, посмотрите чуть исправленное, на этот раз выводит всё.

Благодарю, всё отлично работает! тока непонял зачем wincrt я заменил просто на crt