Вычислить и вывести на экран в виде таблицы значения функции, заданной графически

@ninjen · Регистрация: 14.10.2014

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

Нужна помощь в решении.

Вычислить и вывести на экран в виде таблицы значения ф-ции, заданной графически на интервале от х нач. до х конеч. с шагом dx. Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой.

@ildwine · 28.10.2014, 20:10

Pascal

var
  x, y, dx, xmin, xmax : real;
begin  
  repeat
    write('введите границы диапазона: ');
    readln(xmin, xmax);
    if xmin >= xmax then writeln('повторите ввод!')
  until xmin < xmax;
  write('введите dx: ');
  readln(dx);
  x := xmin;
  writeln('----X--------F(X)----');
  writeln('---------------------');
  while x <= xmax do
  begin
    if x < -3 then y := 3 else
      if (x >= -3) and (x <= 3) then y := sqrt(9 - sqr(x)) - 3 else
       if (x >3) and (x < 6) then y := -2 * x + 9 else
        y := x - 9;
    riteln(x:8:2,'|', y:8:2);
    x := x + dx
  end
end.

Добавлено через 23 секунды
Вроде так...

@ninjen · 28.10.2014, 20:14 **[ТС]**

Можете ли Вы помочь с этим?

Вычисление значения фyнкции по введённому значению аргумента

@ildwine · 28.10.2014, 20:17

Неверно:
вот так надо:

Pascal

var
  x, y, dx, xmin, xmax : real;
begin  
  repeat
    write('введите границы диапазона: ');
    readln(xmin, xmax);
    if xmin >= xmax then writeln('повторите ввод!')
  until xmin < xmax;
  write('введите dx: ');
  readln(dx);
  x := xmin;
  writeln('----X--------F(X)----');
  writeln('---------------------');
  while x <= xmax do
  begin
    if x < -3 then y := 3 else
      if (x >= -3) and (x <= 3) then y := abs(sqrt(9 - sqr(x)) - 3) else
       if (x >3) and (x < 6) then y := -2 * x + 9 else
        y := x - 9;
    writeln(x:8:2,'|', y:8:2);
    x := x + dx
  end
end.

@ninjen · 28.10.2014, 20:19 **[ТС]**

Хорошо, огромное Вам спасибо.

@ildwine · 28.10.2014, 20:22

ninjen, и то я что то неуверен, на счет круглого участка...

Добавлено через 54 секунды
Туплю...

Добавлено через 1 минуту
Хорошо бы еще кто-то глянул... Из местных... А то я что-то запутался...

@ninjen · 28.10.2014, 20:29 **[ТС]**

ildwine, у Вас есть какие-либо идеи насчёт этого?
Вычисление значения фyнкции по введённому значению аргумента

@ildwine · 28.10.2014, 20:34

ninjen, как только решим эту будет и та...

@volvo · 28.10.2014, 20:34

У меня получилось

Pascal

1	y := 3 - sqrt(9 - sqr(x)); // для -3 <= x <= 3

@ildwine · 28.10.2014, 20:38

UI, вот это больше похоже на правду...

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

Pascal

var
  x, y, dx, xmin, xmax : real;
begin  
  repeat
    write('введите границы диапазона: ');
    readln(xmin, xmax);
    if xmin >= xmax then writeln('повторите ввод!')
  until xmin < xmax;
  write('введите dx: ');
  readln(dx);
  x := xmin;
  writeln('----X--------F(X)----');
  writeln('---------------------');
  while x <= xmax do
  begin
    if x < -3 then y := 3 else
      if (x >= -3) and (x <= 3) then y := 3 - sqrt(9 - sqr(x)) else
       if (x >3) and (x < 6) then y := -2 * x + 9 else
        y := x - 9;
    writeln(x:8:2,'|', y:8:2);
    x := x + dx
  end
end.

@Puporev · 28.10.2014, 20:58

Pascal

uses crt;
var r,x,y,xn,xk,dx:real;
    k:integer;
begin
clrscr;
repeat
write('R>0 R=');
readln(r);
until r>0;
xn:=-r-4;
xk:=4*r;
dx:=1;
x:=xn;
k:=0;
while x<=xk do
 begin
  if x<=-r then y:=r
  else if x<=r then y:=-sqrt(r*r-x*x)+r
  else if x<=2*r then y:=-2*x+3*r
  else y:=x-3*r;
  writeln('x=',x:5:1,' y=',y:5:2);
  k:=k+1;
  if k mod 22=0 then
   begin
    write('Press Enter');
    readln
   end;
  x:=x+dx;
 end;
readln
end.

Добавлено через 1 минуту
R нужно вводить и от него плясать.

@ildwine · 28.10.2014, 21:00

Puporev, вот сейчас допер, и по графику видно что от R плясать...

@ildwine Супер-модератор 6128 / 2868 / 1299 Регистрация: 04.03.2013 Сообщений: 5,743 Записей в блоге: 1
	28.10.2014, 21:00	12
	Puporev, вот сейчас допер, и по графику видно что от R плясать... 0

Вычислить и вывести на экран в виде таблицы значения функции, заданной графически

Решение

Решение

@ninjen 0 / 0 / 0 Регистрация: 14.10.2014 Сообщений: 23
		1
	Вычислить и вывести на экран в виде таблицы значения функции, заданной графически 28.10.2014, 19:04. Показов 1845. Ответов 11 Метки нет (Все метки) Нужна помощь в решении. Вычислить и вывести на экран в виде таблицы значения ф-ции, заданной графически на интервале от х нач. до х конеч. с шагом dx. Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой. Миниатюры 0

@ninjen 0 / 0 / 0 Регистрация: 14.10.2014 Сообщений: 23
	28.10.2014, 20:14 [ТС]	3
	Можете ли Вы помочь с этим? Вычисление значения фyнкции по введённому значению аргумента 0

@ninjen 0 / 0 / 0 Регистрация: 14.10.2014 Сообщений: 23
	28.10.2014, 20:19 [ТС]	5
	Хорошо, огромное Вам спасибо. 0

@ildwine Супер-модератор 6128 / 2868 / 1299 Регистрация: 04.03.2013 Сообщений: 5,743 Записей в блоге: 1
	28.10.2014, 20:22	6
	ninjen, и то я что то неуверен, на счет круглого участка... Добавлено через 54 секунды Туплю... Добавлено через 1 минуту Хорошо бы еще кто-то глянул... Из местных... А то я что-то запутался... 0

@ninjen 0 / 0 / 0 Регистрация: 14.10.2014 Сообщений: 23
	28.10.2014, 20:29 [ТС]	7
	ildwine, у Вас есть какие-либо идеи насчёт этого? Вычисление значения фyнкции по введённому значению аргумента 0

@ildwine Супер-модератор 6128 / 2868 / 1299 Регистрация: 04.03.2013 Сообщений: 5,743 Записей в блоге: 1
	28.10.2014, 20:34	8
	ninjen, как только решим эту будет и та... 0

Опции темы