computer14: var
r,y:real;
begin
readln(r);
y:=-1;
if (r<-7)or(r>4)then
writeln(‘Введите значение в диапазоне [-7;4]’)
else if (r>=-7)and(r <=-3)then
y:=r+7
else
if (r>=-3)and(r <=-2)then
y:=4
else
if (r>=-2)and(r <=2)then
y:=sqr(r)
else
y:=-2*r+8;
if y>=0 then writeln(y);
end.
mnv1962: А если бы речь шла только о целых значениях можно было написать при помощи оператора выбора и было бы еще красивее.
nikolaev33: Т.е лучше написать как во втором случае.
mnv1962: Я бы написала, как в первом. А говорю я вообще про другой оператор, который можно было бы использовать, если бы было известно, что переменные только целочисленные
Источник: znanijam.net
Нахождение значения аргумента при заданном значении функции
Задача 64687 Написать программу, которая по.
Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.
информатика ВУЗ 1509
Решение
19.05.2022 21:12:07
Формула функции такая, кусочно-непрерывная:
Если x ∈ [-10; -6], то это полуокружность с центром (-8, -2) и R=2:
(x + 8)^2 + (y + 2)^2 = R^2 = 4. Отсюда:
y1 = sqrt(4 — (x + 8)^2) — 2
Если x ∈ (-6; 2], то это прямая через точки (-2; 0) и (2; 2):
(x + 2)/(2+2) = (y — 0)/(2 — 0)
(x + 2)/4 = y/2
y2 = (x + 2)/2 = 0,5x + 1
Если x ∈ (2; 6], то: y3 = 0
Если x ∈ (6; 8], то: y4 = (x — 6)^2
Соответственно, и надо писать условия.
На Quick Basic это будет примерно так:
Sub Grafik
Dim x As Single, y As Single
M1 : x = Input «Введите x от -10 до 8:»
If (x >= -10) And (x y = sqrt(4 — (x + 8)^2) — 2 : Print y
ElseIf (x > -6) And (x ElseIf (x > 2) And (x ElseIf (x > 6) And (x Else Print «Введен неправильный x» : Goto M1
End If
End Sub
Источник: reshimvse.com
Написать программу, которая по введенному значению аргумента вычисляет значение функции.
Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры. Здравствуйте. Похоже что я немного туповат 🙁
В общем есть график функции и набор промежутков на нем. Собственно смущает параметр R. Ведь при изменении радиуса R функции на остальных промежутках тоже изменятся, из-за смещения окружности. Помогите разобраться с промежутками и значением y. Вот мои мысли по поводу промежутков:
1. x -> (-inf; -5-2R]: y = no solution; 2. x -> (-5 — 2R; -R): y = 1 — sqrt(r^2-(x+7)); ? 3. x -> (-5; -4]: y = 2; ? 4. x -> [-4; 0]: y = (x + 4) * 0,5; 5. x -> [0; Pi]: y = sin(x); 6. x -> [Pi; 5]: y = x; 7. x -> [5; +inf): y = no solution.
Нахождение значения функции (у) при заданном значении аргумента (х)
Очевидно что тут что-то не так.
Отслеживать
задан 5 дек 2013 в 9:16
49 3 3 золотых знака 8 8 серебряных знаков 12 12 бронзовых знаков
Приведите код к читаемому виду. Для справки нажмите «вопрос» в меню редактирования.
5 дек 2013 в 9:19
Второй интервал (-5 — 2R; -R) странно выглядит. Может, верхняя граница всё-таки -5, а не -R? В этом случае при изменении R правый край окружности будет оставаться на месте, а сдвигаться будет только окружность.
5 дек 2013 в 9:32
Да, вы правы, верхняя граница -5.
Источник: ru.stackoverflow.com