Таблицу значений функции разложить на две колонки — отрицательные отдельно, положительные отдельно

@Zela124 · Регистрация: 30.11.2008

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

Молю о помощи.X и Y должны быть в виде таблицы,а т.к. она не помещается в экран,надо разложить на две колонки-отрицательные отдельно,положительнве отдельно.

Pascal

program funkcija;
var x,y,z:real;
begin
x:=-5;
while x<=5 do
      begin
      z:=(1+x*x-3*x);
      if z<0 then writeln('x=',x:3:1,'  ','y=nav')
      else
      begin
      y:=sqrt(1+x*x-3*x);
      writeln('x=',x:3:1,' ','y=',y:1:3);
      end;
x:=x+0.2;
end;
readln;
end.

@Puporev · 01.12.2008, 07:45

Вот сделал, только некрасиво х=0, оно как бы лишнее, не влезает. Строк 25*2=50, а итераций 51. Если есть предложения, переделаем.

Pascal

program funkcija;
uses crt;
var x,y,z:real;
    i,j:integer;
begin
clrscr;
x:=-5; i:=0;j:=0;
while x<=5 do
   begin
     if x<0 then
       begin
         j:=j+1;
         gotoXY(1,j);
         write('x=',x:3:1);
         z:=(1+x*x-3*x);
         if z<0 then write('  ','y=nav')
         else write(' ','y=',sqrt(1+x*x-3*x):1:3);
       end;
     if x>=0 then
       begin
         i:=i+1;
         gotoXY(40,i);
         write('x=',x:3:1);
         z:=(1+x*x-3*x);
         if z<0 then write('  ','y=nav')
         else write(' ','y=',sqrt(1+x*x-3*x):1:3);
       end;
     x:=x+0.2;
  end;
readln
end.
           else
      begin
      y:=sqrt(1+x*x-3*x);
 
         if z<0 then writeln('x=',x:3:1,'  ','y=nav')
         else writeln('x=',x:3:1,' ','y=',y:1:3);
        end;
      if x>=0 then
        begin
         i:=i+1;
         gotoXY(40,i);
         if z<0 then writeln('x=',x:3:1,'  ','y=nav')
         else writeln('x=',x:3:1,' ','y=',y:1:3);
 
        end;
      end;
x:=x+0.2;
end;
readln;
end.

@Zela124 · 01.12.2008, 15:19 **[ТС]**

Нет,нет,спасибо вам большое.Вышло очень хорошо.

@Zela124 1 / 1 / 0 Регистрация: 30.11.2008 Сообщений: 48
	01.12.2008, 15:19 [ТС]	3
	Нет,нет,спасибо вам большое.Вышло очень хорошо. 0

Опции темы