|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
24.12.2012, 15:01 | #1 (permalink) |
Новичок
Регистрация: 24.12.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Пожалуйста, помогите с задачами в Паскале
2 . В промежутке [m, n] найти все числа, в записи которых нет цифры b. 3. Дано натуральное число n. Вычислить сумму n элементов ряда: 1+1/4 + 1/12 + 1/32 + 1/80 +… |
24.12.2012, 15:01 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Можете поискать полезные ответы в похожих на вашу темах Помогите, пожалуйста, с программой на Паскале Помогите с задачами, пожалуйста. Нужно написать на языке С Помогите, пожалуйста, с задачей на Паскале |
24.12.2012, 17:13 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
2. Если (тут неясная формулировка) ставка постоянная, а не меняется от месяца к месяцу, как это заложено в программе, то генерацию размера ставки вытащите из цикла и поставьте перед ним. Код:
Var Vkl,Vkl_new,stav,m,i:LongInt; Begin Randomize; Vkl:=Random(4901)+100; Writeln('Initial: ',Vkl); Write('m= '); Readln(m); For i:=1 to m do begin Stav:=Random(4)+1; Vkl_new:=Round(1.0*Vkl-0.02*Vkl+0.01*Vkl*Stav); Vkl:=Vkl_new; end; Writeln('Final: ',Vkl); Readln; End. |
|
24.12.2012, 17:46 | #3 (permalink) | ||
Новичок
Регистрация: 24.12.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
1. В промежутке [m, n] найти все числа, в записи которых нет цифры b.
2. Дано натуральное число n. Вычислить сумму n элементов ряда: 1+1/4 + 1/12 + 1/32 + 1/80 +… в паскале надо)))
|
||
24.12.2012, 20:49 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Например, так:
Код:
Var m,n,i:LongInt; j:Byte; S:String; C:Char; b:boolean; Begin Write('m= '); Readln(m); Write('n(>m)= '); Readln(n); Write('b= '); Readln(C); For i:=m to n do begin STR(i,S); b:=true; for j:=1 to length(S) do if S[j]=C then b:=false; if b then write(i:8); end; Readln; End. |
24.12.2012, 20:57 | #5 (permalink) |
Новичок
Регистрация: 24.12.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо огромное Vladimir_S премного благодарен вам
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
24.12.2012, 23:04 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Насчет последней задачи. Ломал я, ломал голову, пытаясь найти аналитическое выражение для члена ряда, да так и не придумал. Вы абсолютно уверены, что оно не было дано?
|
25.12.2012, 21:03 | #8 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var S:real; n,i,a,b:LongInt; Begin Write('n= '); Readln(n); a:=1; S:=1; b:=1; writeln('i= 0 a=1'); For i:=1 to n-1 do begin b:=b*2; a:=2*a+b; writeln('i=',i:2,' a=',a); S:=S+1/a; end; Writeln('Sum= ',S:0:5); Readln; End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|