Форум АНТИЧАТ - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

Сообщение от 5w17ch3r

Ребят, нужна помощь. Надо написать программу на паскале, который я уже 3 года в глаза не видел... Нужно чтобы программа вычисляла и выводила на экран таблицу значений функции y = система: первое уравнение: sqrt(x^3+2x-1), при x<2; второе уравнение: sqrt^5((1)/(x^2+3x-5)), при x>=2. x принадлежит отрезку [-1;3], шаг изменения 0,05.

Если кто возьмется, icq:455422511

Код:

program zad;
uses CRT;
var   x,y: real;
begin
ClrScr;
  writeln ('--------------------- Funcktion --------------');
  x:=-1;
  while  x< 3 do begin
     if x<2 then
          begin
               y:=sqr(exp(3*ln(abs(x)))+2*x-1);
          end
     else
           begin
               y:=x;
           end;

     x:=x+0.05;
     writeln('y=',y);
   end;
  end.

мде...сколько спотыкалась. сама все забыла..
В общем, вторую функцию скорректируй. Замени на свою, мне не понравилась твоя запись.