Построить таблицу значений функции

@ВасяПуп · Регистрация: 02.05.2017

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

Построить таблицу значений функции “y” на отрезке [a;b] с шагом h с приостановкой
выдачи результатов через каждые N строк таблицы. Найти максимальное и минимальное значение “y” и
соответствующие им значения аргумента “x”. y(x)=x/1+|x|
a=-3;b=3;h=0,1;N=15.
Я только новичок, попробовал сделать по примеру с этого сайта, но "у" не срабатывает. Помогите исправить ошибку,пожалуйста.
Вот мое кривое решение:

Pascal

uses crt;
const
l='-----------------------------';
s='|      X      |      Y      |';
var
a,b,h,y: real;
i,N: integer;
begin
a:=-3; b:=3; h:=0.1; N:=15;
writeln('Таблица значений функции');
writeln(l);
writeln(s);
writeln(l);
while a<=b do
begin
y:=a/1+abs(a);
writeln('|',a:5:3,'|':9,y:5:3,'|':9);
a:=a+h;
inc(i);
if i mod n=0 then
begin
write('Enter to continue..'); readln;
ClrScr;
writeln('Тфблица значений функции');
writeln(l);
writeln(s);
writeln(l);
end;
end;
writeln(l);
end.

@ZX Spectrum-128 · 02.05.2017, 18:20

Сообщение от ВасяПуп

y(x)=x/1+|x|

Ошибки нет в записи функции? Делить на единицу странно.

@Puporev · 02.05.2017, 18:25

Pascal

uses crt;
const
l='-------------------';
s='|   X   |    Y    |';
var
a,b,h,y: real;
i,N: integer;
begin
a:=-3; b:=3; h:=0.1; N:=15; i:=0;
writeln('Таблица значений функции');
writeln(l);
writeln(s);
writeln(l);
while a<=b do
 begin
  y:=a/(1+abs(a));//такая формула
  writeln('|',a:7:3,'|',y:9:3,'|');
  a:=a+h;
  inc(i);
  if i mod n=0 then
   begin
    writeln(l);
    write('Enter to continue..');
    readln;
    clrScr;
    writeln('Таблица значений функции');
    writeln(l);
    writeln(s);
    writeln(l);
   end;
 end;
writeln(l);
end.

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	02.05.2017, 18:20	2
	Сообщение от ВасяПуп y(x)=x/1+\|x\| Ошибки нет в записи функции? Делить на единицу странно. 0

	02.05.2017, 18:25