Не выводится таблица значений функции

@JetDart · Регистрация: 05.02.2014

Author24 — интернет-сервис помощи студентам

Суть проблемы в том, что данная прога не выводит всю информацию, которая должна бы появляться в таблице, строк должно было бы быть больше, примерно как на картинке:

Вот сама программа:

Pascal

program frp;
uses crt;
const n=(-2);
var y,x:real;
i:integer;
begin
gotoxy(10,10);
clrscr;
writeln('     X                   Y     ');
x:=-3;i:=1;
while x>=-2+0.1 do
begin
y:=ln(x+5)/(3*x)-arctan(exp(-x));
gotoxy(100,100+i);
end;
gotoxy(100,100+abs(n)+2);
writeln('--------------------------------');
writeln('|',x:10:2,'     |',y:10:2,'    |');
x:=x+0.1;  i:=i+1;
end.

@ermolay · 06.02.2014, 18:05

в 11-й строке вашего кода знак нужно в другую сторону направить
вывод x, y тоже нужно включить в цикл
здесь gotoxy , имхо, лишний:

Pascal

program frp;
uses
  crt;
var
  y, x: real;
begin
  clrscr;
  writeln('     X                   Y     ');
  x := -3;
  while x <= -2 + 0.1 do
  begin
    y := ln(x + 5) / (3 * x) - arctan(exp(-x));
    writeln('|', x:10:2, '     |', y:10:2, '    |');
    x := x + 0.1;
  end;
  writeln('--------------------------------');
end.

@JetDart · 06.02.2014, 18:22 **[ТС]**

ermolay, благодарю, про знак даже и не догадывался.

@JetDart 0 / 0 / 0 Регистрация: 05.02.2014 Сообщений: 14
	06.02.2014, 18:22 [ТС]	3
	ermolay, благодарю, про знак даже и не догадывался. 0