Построить таблицу значений функции на указанном интервале с заданным шагом используя процедуры

@Mr.Gadget · Регистрация: 26.09.2013

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

Построить таблицу значений функции на указанном интервале с заданным шагом используя процедуры:

@ermolay · 24.10.2013, 22:56

наверно как то так (хотя процедуры здесь в общем-то не нужны):

Pascal

var
  y: real;
  
procedure one(x: real);
begin
  y:=-1;
end;
 
procedure two(x: real);
begin
  y:=sin(x);
end;
 
procedure three(x: real);
begin
  y:=1
end;
 
var
  x: real;
begin
  x:=-pi;
  writeln('   X        Y');
  writeln('----------------');
  repeat
    if x<=-pi/2 then one(x) else
      if (x>-pi/2) and (x<pi/2) then two(x) else
        if x>=pi/2 then three(x);
    writeln(x:6:3,'    ',y:6:3);
    x:=x+pi/10;
  until x>pi;
  readln;
end.

Добавлено через 2 минуты
или так:

Pascal

var
  y: real;
  
procedure one(x: real);
begin
  y:=-1;
  writeln(x:6:3,'    ',y:6:3);
end;
 
procedure two(x: real);
begin
  y:=sin(x);
end;
 
procedure three(x: real);
begin
  y:=1
end;
 
procedure output(x,y: real);
begin
  writeln(x:6:3,'    ',y:6:3);
end;
 
var
  x: real;
begin
  x:=-pi;
  writeln('   X        Y');
  writeln('----------------');
  repeat
    if x<=-pi/2 then one(x) else
      if (x>-pi/2) and (x<pi/2) then two(x) else
        if x>=pi/2 then three(x);
    output(x,y);
    x:=x+pi/10;
  until x>pi;
  readln;
end.

@Mr.Gadget Фиговый студент 48 / 6 / 7 Регистрация: 26.09.2013 Сообщений: 550 Записей в блоге: 1
		1
	Построить таблицу значений функции на указанном интервале с заданным шагом используя процедуры 23.10.2013, 17:04. Показов 2451. Ответов 1 Метки нет (Все метки) Построить таблицу значений функции на указанном интервале с заданным шагом используя процедуры: Миниатюры 0

	24.10.2013, 22:56

Построить таблицу значений функции на указанном интервале с заданным шагом используя процедуры

Решение