Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.66/96: Рейтинг темы: голосов - 96, средняя оценка - 4.66
1 / 1 / 0
Регистрация: 15.03.2013
Сообщений: 48
1

Написать программу которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

21.03.2013, 13:59. Просмотров 19035. Ответов 10
Метки нет (Все метки)


1)Написать программу которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры.
Написать программу которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.


Добавлено через 16 часов 19 минут
апп
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.03.2013, 13:59
Ответы с готовыми решениями:

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

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

Написать программу, которая по введенному значению аргумента, вычисляет знаение функции, заданной в виде графика
Написать программу, которая по введенному значению аргумента, вычисляет знаение функции, заданной в...

Написать программу которая по введенному значению аргумента вычисляет значение функции, заданной в виде граф
Написать программу которая по введенному значению аргумента вычисляет значение функции, заданной в...

10
218 / 50 / 52
Регистрация: 15.01.2013
Сообщений: 295
23.03.2013, 00:19 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var x,r:real;
begin
clrscr;
write('Vvedite znachenie x= ');
readln(x);
if (x>=-4) and (x<-2) then write('y=',x+3) else
if (x>=-2) and (x<4) then write('y=',-(x/2)) else
if (x>=4) and (x<6) then write('y=',-2) else
if (x>=6) and (x<=10) then write('y=',sqrt(4-sqr(x-8))-2:0:3)
else write('Vy vveli ne vernoe znachenie x!');
readkey;
end.
Добавлено через 2 минуты
Одного не пойму, зачем давать тогда полуокружность на листке, если радиус будет задаваться пользователем. Ведь тогда диапазон на оси x (6;10) измениться в соответствии с радиусом.
1
Модератор
62861 / 46907 / 32328
Регистрация: 18.05.2008
Сообщений: 113,665
23.03.2013, 09:13 3
Цитата Сообщение от StrelokCj Посмотреть сообщение
Ведь тогда диапазон на оси x (6;10) измениться в соответствии с радиусом.
Естественно, для того радиус и вводится.
0
1 / 1 / 0
Регистрация: 15.03.2013
Сообщений: 48
24.03.2013, 12:49  [ТС] 4
СПАСИБО Огромное!!!!!!!!!!!!!!!!!!!!!!!!!
0
1 / 1 / 0
Регистрация: 15.03.2013
Сообщений: 48
09.04.2013, 19:12  [ТС] 5
А можно еще алгоритм и блок-схему?
0
1 / 1 / 0
Регистрация: 15.03.2013
Сообщений: 48
26.05.2013, 12:04  [ТС] 6
Пожалуйста!
0
0 / 0 / 0
Регистрация: 28.10.2015
Сообщений: 1
20.11.2015, 16:38 7
можно тоже самое только с циклом
0
Модератор
62861 / 46907 / 32328
Регистрация: 18.05.2008
Сообщений: 113,665
20.11.2015, 17:08 8
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var r:real;
    x:integer;
begin
clrscr;
for x:=-4 to 10 do
 begin
  write('x=',x:3,' ');
  if (x>=-4) and (x<-2) then writeln('y=',x+3:2) else
  if (x>=-2) and (x<4) then writeln('y=',-(x/2):5:2) else
  if (x>=4) and (x<6) then writeln('y=',-2:2) else
  if (x>=6) and (x<=10) then writeln('y=',sqrt(4-sqr(x-8))-2:5:2);
 end;
readkey;
end.
0
30 / 11 / 5
Регистрация: 01.03.2014
Сообщений: 371
01.05.2020, 21:05 9
Доброго времени суток, форумчане.
Не могу разобраться с условием. Зачем вводить R, если значение видно из графика?
В условии чётко написано: "Параметр R вводится с клавиатуры".

В приведённых решениях параметр R с клавиатуры не вводится. Объясните куда этот R засунуть?
0
Модератор
62861 / 46907 / 32328
Регистрация: 18.05.2008
Сообщений: 113,665
01.05.2020, 21:19 10
Цитата Сообщение от holod2014 Посмотреть сообщение
параметр R с клавиатуры не вводится.
Так введите, просто люди не обратили внимание на это условие.

Добавлено через 8 минут
Если переделать первый код, то так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var x,r:real;
begin
clrscr;
repeat
write('Введите радиус r>0 r=');
readln(r);
until r>0;
write('Введите значение x= ');
readln(x);
if (x>=-2*r) and (x<r-r) then write('y=',x+3:0:2) else
if (x>=-r) and (x<2*r) then write('y=',-x/2:0:2) else
if (x>=2*r) and (x<3*r) then write('y=',-2) else
if (x>=3*r) and (x<=5*r) then write('y=',sqrt(4-sqr(x-8))-2:0:3)
else write('Значение y не определено');
readkey;
end.
0
30 / 11 / 5
Регистрация: 01.03.2014
Сообщений: 371
01.05.2020, 22:27 11
В этом то и вопрос.
По вашему коду получается, что при:
R=5, X=5, Y=-2.5;
R=5, X=4, Y=-2.0.

Смотрим на график, а там Y должно быть -2.0 в обоих случаях.

Добавлено через 5 минут
Решение сей задачи в следующем (нашёл на другом ресурсе):
Делим график на 4 части, и только в 4 части, где X>6= и X<=10 запрашиваем R.
Значение Y для этой части выводим из уравнения окружности.

А вообще условие задачи написано очень криво.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.05.2020, 22:27

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной графически
Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной...

Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной графически
Нужна ваша помощь, пожалуйста) Написать программу, которая по введенному значению аргумента...

По введенному значению аргумента вычисляет значение функции заданной в виде графика
Напишите пожалуйста 4 программы для следующих картинок. К первым двум картинкам надо написать...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.