19.12.2014, 22:45 | #1 (permalink) |
Member
Регистрация: 19.12.2014
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить. Паскаль АБС
[LATEX]Y=(1+\frac{1}{1^{2}})\cdot (1+1\frac{1}{2^{2}})(1+\frac{1}{3^{2}})\cdot ...[/LATEX] На экран вывести значение суммы, число членов ряда, вошедших в сумму, и последний член ряда, вошедший в сумму. 2.Сколько раз цифра 5 встречается в целом числе. |
19.12.2014, 22:45 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обычно первым делом эффективнее всего прочитать похожие темы Помогите решить задачу, Паскаль Помогите решить. Паскаль Помогите решить задачу. Паскаль Помогите решить уравнение. Паскаль |
19.12.2014, 22:49 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Так. А теперь, пожалуйста, формулу - в удобочитаемом виде. Хотя бы аккуратно напишите и сфотографируйте. Или Вы предлагаете нам тут LaTeX устанавливать?
|
19.12.2014, 23:02 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Интересно, что за идиот составлял задание? Там же в первой задаче вообще никакой не ряд и не сумма, а бесконечное произведение!!! И зачем, спрашивается, там множитель "1" перед дробью во втором биноме? Ну ладно, что взять с убогих, сделаю. Только завтра утром, хорошо?
По второй задачке - надо кое-что проверить насчет оператора Str в этом идиотском АВС. Будь у Вас нормальный Паскаль (Turbo, Free) - так решение там в три строчки. А с этим... ладно, попробую уточнить. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
20.12.2014, 09:32 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Получите:
Код:
Program First; Const eps=0.0001; Var n:Integer; Y_old,Y_new,Delta:Real; Begin Y_old:=1; n:=0; Repeat Inc(n); Y_new:=Y_old*(1+1/(n*n)); Delta:=Y_new-Y_old; Y_old:=Y_new; Until Delta<=eps; Writeln('Y = ',Y_new:0:5); Writeln('n = ',n); Writeln('Last = ',(1+1/(n*n)):0:15); End. Код:
Program Second; Var S:String; L,i,n:Integer; Begin Writeln('Enter the number:'); Readln(S); L:=Length(S); n:=0; for i:=1 to L do if S[i]='5' then Inc(n); Writeln(n,' times'); End. |
20.12.2014, 12:09 | #8 (permalink) |
Member
Регистрация: 19.12.2014
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|