0 / 0 / 0
Регистрация: 14.10.2014
Сообщений: 23
1

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

28.10.2014, 19:04. Показов 2002. Ответов 11
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Нужна помощь в решении.

Вычислить и вывести на экран в виде таблицы значения ф-ции, заданной графически на интервале от х нач. до х конеч. с шагом dx. Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой.
Миниатюры
Вычислить и вывести на экран в виде таблицы значения функции, заданной графически  
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.10.2014, 19:04
Ответы с готовыми решениями:

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

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

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

Вычислить и вывести на экран в виде таблицы значения функции, заданной графически
Помогите ребята, пожалуйста. Не могу никак понять данное задание Таблица значений функции...

11
Супер-модератор
6194 / 2941 / 1300
Регистрация: 04.03.2013
Сообщений: 5,785
Записей в блоге: 1
28.10.2014, 20:10 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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 секунды
Вроде так...
1
0 / 0 / 0
Регистрация: 14.10.2014
Сообщений: 23
28.10.2014, 20:14  [ТС] 3
Можете ли Вы помочь с этим?

Вычисление значения фyнкции по введённому значению аргумента
0
Супер-модератор
6194 / 2941 / 1300
Регистрация: 04.03.2013
Сообщений: 5,785
Записей в блоге: 1
28.10.2014, 20:17 4
Неверно:
вот так надо:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.
1
0 / 0 / 0
Регистрация: 14.10.2014
Сообщений: 23
28.10.2014, 20:19  [ТС] 5
Хорошо, огромное Вам спасибо.
0
Супер-модератор
6194 / 2941 / 1300
Регистрация: 04.03.2013
Сообщений: 5,785
Записей в блоге: 1
28.10.2014, 20:22 6
ninjen, и то я что то неуверен, на счет круглого участка...

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

Добавлено через 1 минуту
Хорошо бы еще кто-то глянул... Из местных... А то я что-то запутался...
0
0 / 0 / 0
Регистрация: 14.10.2014
Сообщений: 23
28.10.2014, 20:29  [ТС] 7
ildwine, у Вас есть какие-либо идеи насчёт этого?
Вычисление значения фyнкции по введённому значению аргумента
0
Супер-модератор
6194 / 2941 / 1300
Регистрация: 04.03.2013
Сообщений: 5,785
Записей в блоге: 1
28.10.2014, 20:34 8
ninjen, как только решим эту будет и та...
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32855 / 21189 / 8151
Регистрация: 22.10.2011
Сообщений: 36,441
Записей в блоге: 8
28.10.2014, 20:34 9
У меня получилось
Pascal
1
y := 3 - sqrt(9 - sqr(x)); // для -3 <= x <= 3
2
Супер-модератор
6194 / 2941 / 1300
Регистрация: 04.03.2013
Сообщений: 5,785
Записей в блоге: 1
28.10.2014, 20:38 10
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

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

Добавлено через 2 минуты
Ну с учетом корректировки тогда будет так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.
1
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
28.10.2014, 20:58 11
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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 нужно вводить и от него плясать.
2
Супер-модератор
6194 / 2941 / 1300
Регистрация: 04.03.2013
Сообщений: 5,785
Записей в блоге: 1
28.10.2014, 21:00 12
Puporev, вот сейчас допер, и по графику видно что от R плясать...
0
28.10.2014, 21:00
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.10.2014, 21:00
Помогаю со студенческими работами здесь

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

Вычислить и вывести на экран в виде таблицы значение функции, заданной графически, на интервале от хнач до хкон с шагом dx
Помогите решить задание 1: Вычислить и вывести на экран в виде таблицы значение функции, заданной...

Вычислить и вывести на экран в виде таблицы значения функции, заданной графически
Здравствуйте!!! Помогите пожалуйста вычислить и вывести на экран в виде таблицы значения функции,...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru