Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.08.2011, 20:59   #11
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Просто лис, Вы ошиблись.
О двоичной системе в данной теме речи не было.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 17.11.2012, 05:43   #12
Pavel8
Новичок
Джуниор
 
Регистрация: 01.11.2012
Сообщений: 2
По умолчанию

выдает exitcode205 в 22 строке, как можно исправить??
1 Write('x_nach=');
2 ReadLn(x_nach);
3 Write('x_kon=');
4 ReadLn(x_kon);
5 Write('delta_x=');
6 ReadLn(delta_x);
7 Write('eps=');
8 ReadLn(eps);
9 WriteLn;
10 WriteLn('Dlyaÿ x=', x_nach:0:3, ' do ', x_kon:0:3, ' shag=', delta_x:0:3, ' tochnost=', eps:0:5);
11 WriteLn;
12 WriteLn(' x n s f');
13 WriteLn('-----------------------------------');
14 x:=x_nach;
15 Repeat
16 t:=x;
17 s:=0;
18 n:=1;
19 f:=arcsin(x);
20 While (Abs(x)<1.0) Do
21 Begin
22 t:=t*sqr(2.0*n-1.0)*x*x/2.0*n*(2.0*n+1);
23 s:=s+t;
24 n:=n+1;
25 End;
26 WriteLn(x:0:3, ' ', n, ' ', s:0:6, ' ', f:0:6);
27 x:=x+delta_x;
28 Until(x>x_kon);
29 readln;
30 End.
Pavel8 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц