Задача на циклы, for..to..do , while..do или repeat...until Опции

[Juhn]

Помогите пожалуйста написать программу, завтра контрольная, и там вот будет эта задача.
Условие задачи: Вывести на экран таблицу значений аргумента и функции y= x+2(под корнем) -2. X меняется от -5 до 15 с шагом +1. Тоесть при включении программы сразу должны выдаваться все ответы в столбик: х=-5 y=.... x=-4 y=....
Написать прогу нужно используя цикл for..to..do , while..do или repeat...until
P.S если кто - то не понял под корнем только x+2. -2 уже без корня.

[Айра]

А сам что-нибудь пробовал? Какие мысли есть?

[volvo]

Juhn,
поиск с ключевым словом табулиров*, находишь программу и подставляешь свою функцию...

[Гость]

uses
crt;
var
i:integer;
 function func(X:integer):real;
   var
    y:extended;
      begin
       y:=sqrt(abs(x)+2)-2;
       func:=y;
      end;
begin
 writeln('Табулирование функций');
 writeln(' ------------------');
  for i:=-5 to 15 do
   begin
    writeln('| x= ',i:2,' | y=',func(i):6:2,'|');
   end;
 writeln('-------------------');
 readln;
end.
 

Держи свою задачу.

[volvo]

Это не та функция, и результаты программа будет выдавать неправильные. Abs никто делать не просил, достаточно просто проверять, что подкоренное выражение не меньше 0...

[Айра]

Вроде так:

var y: real;
    x: integer;
begin
  x:=-5;
  while x<=15 do
    begin
      if x<-2 then writeln('x=',x:2,' y несуществует')
      else
        begin
          y:=sqrt(x+2)-2;
          writeln('x=',x:2,' y=',y:5:2,'');
        end;
      inc(x);
    end;
end.