Question

SOS (pascal) создать программу, которая выводит на форму таблицу значений функции y=x^2+1 для x равным о 1,2....20

Answer 1

Может быть, достаточно напечатать значения в окно вывода? (как на картинке)
Это можно вывести просто:

var
  x: integer;

begin
  writeln(' x y=x^2+1');
  for x := 1 to 20 do
  begin
  if x<10 then
  write(' ');
    writeln(x, ' ', x ** 2 + 1);
  end;
end.

Answer 2

Если на плечах есть голова, а в голове - желание, разобраться во всем можно.

Answer 3

Ну да

Answer 4

Перешел в личку.

Answer 5

Эх, доделал похоже на таблицу и заменил возведение в квадрат x**2 на умножение x*x. Вот только уже поздно, изменить решение уже нельзя.

Answer 6

Да, только два часа на исправление.