Отредактировать код в Паскале

[Novenkaja]

вот код



условие

Создать программу для выражения в виде таблицы результатов выражения:


Y = 7 * X^2 + (25/(X-1))


где:
 Х меняется в интервале от -4 до 4, с шагом 0,1;
 У должна выводиться с точность до 3 цифры после запятой;
 На экране должны быть выведены значения Х и У (обеих переменных);сделать так,чтобы в ране писались не просто цифры,а над ними х и у
 Если функция не обозначена для какого-либо значения Х, на экране должна быть выведена надпись NAV; не обозначенна как раз когда х=1
 На экране сразу должна быть видна вся таблица. При необходимости – разбить таблицу на несколько частей (столбцов).

в ране идут все данные в табличном виде,а там,где 1-вместо nav пишет куча не нужных цифр....
а должно быть напротив 1-nav

[Son Of Pain]

Лень набирать с картинки )

должно быть примерно так,

program t;
uses crt;
var x:real;
i,j:integer;
begin
clrscr;
j:=0;
x:=-4;
i:=2;
repeat
if i=2 then begin
gotoxy(j*15+1, 1);
write('x    y');
end;
gotoxy(j*15+1, i);
write(x:4:1);
gotoxy(j*15+6, i);
if x=1 then write('NAV') 
else write((7 * X*x + (25/(X-1))):8:3);
inc(i);
x:=x+0.1;
if i=24 then begin
inc(j);
i:=2;
end;
until x>4;
readln;
end.

но компилировать нечем, могут быть ошибки, так что проверяй )

[Novenkaja]

хорошо,сейчас проверю

значит так в ране теперь данные идут не в столбик длиннющий вниз,а как таблица.и есть сверху х и у

НО!!!!

у единицы всё равно не пинет nav а пишет куча цифр

и ещё есть вопросы что такое gotoxy и inc и для чего это используется????

как устронить гланую ошибку?

[Son Of Pain]

ну замени проверку )
if (x>0.99) and (x<1.09) then write('NAV')

gotoxy меняет позицию курсора на экране, inc = увеличение

[Novenkaja]

оооо,вот так есть ('NAV')
спасибо тебе большое и за исправление и за разъеснение))))))
огромное спасибо))))

только почему именно такой интервал??? >0.99 и <1.09 ???

а почему при таком интервале он хочет работать,а при х=1 нет?