Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
LeninComrade
0 / 0 / 0
Регистрация: 16.10.2016
Сообщений: 12
1

Вычислить значение функции F(x)

17.10.2016, 09:48. Просмотров 327. Ответов 4
Метки нет (Все метки)

Вычислить значение функции F(x), разложенной в ряд и сходящейся в указанной области.
Вычислить значение функции F(x)
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.10.2016, 09:48
Ответы с готовыми решениями:

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

Вычислить минимальное по абсолютной величине значение функции и соответствующее значение аргумента
Составить программу табулирования и исследования функции f(x) на заданном...

Вычислить значение функции e^x=1+x+x^2/2+x^3+3 и сравнить полученной результат c значением стандартной функции
Здраствуйте! Пожалуйста укажите услугу в помочи, вот задачка: Оформить у виде...

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

Вычислить значение функции

4
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
17.10.2016, 10:49 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
    EPS = 0.000001;
var
    x: Single;
    s, si: Real;
    i: LongWord;
begin
    repeat
        Write('x=');
        ReadLn(x);
    until (Abs(x) < 1);
    s := 0; si := x; i := 0;
    while (Abs(si) > EPS * (i + 1)) do
    begin
        s := s + si / (i + 1);
        Inc(i, 2);
        si := si * Sqr(x) * (i - 1) / i;
    end;
    WriteLn('   sum=', s:0:5);
    WriteLn('arcsin=', ArcTan(x / Sqrt(1 - Sqr(x))):0:5);
end.
0
LeninComrade
0 / 0 / 0
Регистрация: 16.10.2016
Сообщений: 12
17.10.2016, 15:49  [ТС] 3
У меня Паскаль ругается на тип переменных Single. Если сменить сингл на Real, то будет ругаться на LongWord. Если же и лонгворд сменить на просто Word, то перестает ругаться. Но программа вроде как не работает.
Вычислить значение функции F(x)
0
Puporev
Модератор
55479 / 42580 / 29429
Регистрация: 18.05.2008
Сообщений: 100,735
17.10.2016, 16:14 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const eps=0.000001;
var x,s,si:real;
    i:integer;
begin
repeat
write('Введите |x|<1 x=');
readLn(x);
until abs(x)<1;
s:=0;
si:=x;
i:=0;
while abs(si)>eps*(i + 1) do
 begin
  s:=s+si/(i + 1);
  inc(i,2);
  si:=si*sqr(x)*(i-1)/i;
 end;
writeLn('   sum=', s:0:5);
writeLn('arcsin=', arctan(x/sqrt(1-sqr(x))):0:5);
end.
0
LeninComrade
0 / 0 / 0
Регистрация: 16.10.2016
Сообщений: 12
18.10.2016, 14:17  [ТС] 5
Благодарю вас за код. Дописал код на основе ваших. Вот примерно, что должно было получиться:
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
32
33
34
35
36
37
38
program secvariant;
uses crt;
{const eps=0.000001;}
var Eps:real;
    x,s,u:real;
    n:integer;
  { j:integer;
    h:integer; }
begin
  write('Введите погрешность Eps(0.0000001): ');
  readln(eps);
  clrscr;
  write('Введите кол-во сум:');
  readln(j);
  { for h:=1 to j do }
  repeat
    textcolor(black);
    writeln('Введите |X|<1:');
    write('X = ');
    readLn(x);
    textcolor(red);
    if abs(x)>=1 then writeln('Ошибка ввода! Введите значение меньше |1|');
    textcolor(black);
    writeln('---------------------------------------------');
  until abs(x)<1;
  s:=0;
  u:=x;
  n:=0;
  while abs(u)>eps do
   begin
    s:=s+u;
    inc(n);
    u:=u*sqr(x)*(2*n-1)*(2*n-1)/((2*n)*(2*n+1));
   end;
  textcolor(cyan);
  writeLn('   Sum=', s:0:8);
  writeLn('ArcSin=', arctan(x/sqrt(1-sqr(x))):0:8);
end.
Осталось применить FOR, чтобы самому указывать кол-во сумм.
0
18.10.2016, 14:17
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.10.2016, 14:17

Вычислить значение функции
Используя оператор условия (if...then), составить программу для вычисления. Все...

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

Вычислить значение функции
Мальчики выручайте...!!! Нужно составить блок схему и программу в Pascal ABC...


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

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

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