3 / 3 / 1
Регистрация: 02.02.2012
Сообщений: 79
1

Вычислить значение сложной функции при заданном значении аргумента

14.06.2012, 15:40. Показов 1734. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
дан график, по которому нужно найти у( х задается с клавиатуры)
промежуток между разрывами увеличивается в 2 раза. у равен либо 1, либо -1.

Вычислить значение сложной функции при заданном значении аргумента
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.06.2012, 15:40
Ответы с готовыми решениями:

Вычислить функцию Y при заданном значении аргумента
1) Определить декларативную часть предложенной программы. Набрать программу на ПК. Составить...

Вычисление значения выражения при заданном значении аргумента
Дано действительное число х. Вычислить при S=((х-2)(х-4)...(х-64)) / ((х-1)(х-3)...(х-61)). Х=18.75

Вычислить значение функции при заданном значении аргумента
Вычислить y=16x2-1 при заданном x. Если y>=3, то вычислить и напечатать b=x3; если y<3 ,то...

Рекурсия: вычислить значение функции Х(n) при заданном значении n
Народ помогите пожалуйста вычислить значение функции Х(n) при заданном значении n, используя...

5
3 / 3 / 1
Регистрация: 02.02.2012
Сообщений: 79
26.06.2012, 17:03  [ТС] 2
написал прогу, но она работает только для целых значений. как сделать чтоб работала и при дробных?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var i:integer;k,x:real;
begin
writeln('x=');
readln(x);
i:=0;
while x>=k do
begin
k:=exp(i*ln(2));
i:=i+1;
end;
if i mod 2=0 then writeln('y=1')
else writeln('y:=-1');
end.
Добавлено через 4 часа 57 минут
есть похожая прога, но там увеличение промежутка увеличивается на 1 единицу, а не в 2 раза как нужно. может ее можно переправить как-то?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var x,y:real;
x0,x1:integer;
begin
write('x=');
readln(x);
y:=(sqrt(1+8*x)-1)/2;
x0:=trunc(y) mod 2;
x1:=(trunc(y)+1) mod 2;
if ((x0=0) and (x1=1))
then begin
y:=1;
end
else begin
y:=-1;
end;
writeln('y=',y);
end.
Добавлено через 1 час 11 минут
живые есть?
0
NPC
152 / 146 / 22
Регистрация: 10.01.2012
Сообщений: 390
26.06.2012, 21:09 3
Цитата Сообщение от nosferato Посмотреть сообщение
написал прогу, но она работает только для целых значений. как сделать чтоб работала и при дробных?
Элементарно...

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
program console;
{$mode Objfpc} {$H+}
 
uses
 Crt, FileUtil;
 
var k,k1,x,r:real;
  i:integer;
begin
write('x=');
readln(x);
i:=0;
 
while true do
begin
 
k:=exp(i*ln(2));
inc(i);
 
if x<k then begin
if i mod 2=0 then writeln('y=-1')
else writeln('y:=1');
k1:=k;
 
break;
end;
end;
 
readkey();
end.
Я даже перемудрил : )
0
3 / 3 / 1
Регистрация: 02.02.2012
Сообщений: 79
27.06.2012, 06:33  [ТС] 4
нет, она совсем не так работает
0
NPC
152 / 146 / 22
Регистрация: 10.01.2012
Сообщений: 390
27.06.2012, 11:52 5
Цитата Сообщение от nosferato Посмотреть сообщение
нет, она совсем не так работает
Согласен, но могли и сами доработать. Дел то всего ничего, добавить переменную накопления...

...ну ладно, чёрт с ними с циклами. В данном случае цикл это - не очень изящное решение. Так что...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program console;
{$mode Objfpc} {$H+}
 
uses
 Crt, FileUtil, Math;
 
var x:real;
  i:integer;
begin
 
write('x=');
readln(x);
i:=trunc(log2(x+1));
if i mod 2=0 then writeln('y=1')
else writeln('y:=-1');
 
readkey();
end.
0
3 / 3 / 1
Регистрация: 02.02.2012
Сообщений: 79
27.06.2012, 12:50  [ТС] 6
тоже вариант.
вот моя поправленная( работает как нужно):
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program asd;
uses crt;
var x,y:real;
    st,n:integer;
begin
 clrscr;
 write('x: ');
 readln(x);
 st:=1;
 n:=0;
 while (x>st-1) do
 begin
      n:=n+1;
      st:=st*2;
 end;
 n:=n-1;
 if (n mod 2 =0)
 then
     y:=1.0
 else
     y:=-1.0;
 writeln('result: ',y);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.06.2012, 12:50
Помогаю со студенческими работами здесь

Вычислить при заданном значении n значение выражения
Требуется вычислить при заданном значении n. Y=\frac{\sin 10+\sin 11+...+\sin...

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

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

Вычислить значение суммы при заданном значении аргумента
дан x, посчитать y y=\sum_{n=1}^{10}\left


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

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

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