|
|
Знаете ли Вы, что ... | |
...инструкция по установке аватара описана в Правилах форума. | |
<< Предыдущий совет - Случайный совет - Следующий совет >> |
Pascal, Delphi & Builder Вопросы программирования касающиеся Pascal и Delphi |
Ответить |
|
Опции темы | Опции просмотра |
11.05.2009 13:43 | #11 | |
|
Цитата:
Код:
int a, b, x, y; x = a / b; y = a % b; |
|
|
Ответить |
11.05.2009 17:22 | #12 | ||
Служу Его Божественной Тени!
Сообщений: 1,671
+ 4,505
1,372/657
– 164
33/27
|
Цитата:
Цитата:
иначе по ходу цикла суммировать b и отнимать уже сумму, для уменьшения числа шагов.
__________________
Are you my mommy? |
||
|
Ответить |
11.05.2009 19:01 | #14 | ||
Служу Его Божественной Тени!
Сообщений: 1,671
+ 4,505
1,372/657
– 164
33/27
|
Цитата:
Цитата:
__________________
Are you my mommy? |
||
|
Ответить |
Реклама и уведомления | |
11.05.2009 23:03 | #15 |
|
А не слишком сложно?
Код:
Readln(N); Readln(K); L:=1; Write('0.'); for i := 1 to k do begin L:=L*10; write(L div N); L:=L mod N; end; end.
__________________
Тот факт, что медуза выжила 650 миллионов лет без мозгов, даёт надежду многим. Последний раз редактировалось Nadir Zaitov; 11.05.2009 в 23:07. |
|
Ответить |
11.05.2009 23:23 | #16 | |
|
Цитата:
Код:
Var M: Array[1..64] of Integer; A, B, N, X, i:Integer; Begin readln(A,B); i:=0; X:=B; while A>X do begin inc(i); M[i]:=X; X:=2*X; {в теории лучше сдвиг влево, но это не наглядно :)} end; while A>B do begin if A>M[i] then begin A:=A-M[i]; N:=N+2^i; {в теории опять-же лучше сдвиг:)} end; dec(i) end; writeln("A Div B:=";N); writeln("A Mod B:=";A); end.
__________________
Тот факт, что медуза выжила 650 миллионов лет без мозгов, даёт надежду многим. |
|
|
Ответить |
12.05.2009 16:52 | #19 | |
|
Цитата:
Код:
var A:array[1..1000] of Integer; L,i,j,N,K: Intger; begin Readln(N); L:=1; i:=0; While i>=0 do begin inc(i) L:=L*10; L:=L mod N; A[i]:=L; if i>1 than for j:=1 to i-1 do if A[j]:=L than begin K:=j-i; i:=-1; end; end; Writeln(K); end.
__________________
Тот факт, что медуза выжила 650 миллионов лет без мозгов, даёт надежду многим. |
|
|
Ответить |
12.05.2009 17:17 | #20 |
|
Тут в теории: разложить двумерный массив в одномерный (пишете функцию, эммулирующую одномерный массив), далее сортируете члены в одномерном массиве стандартными методами. Далее одним циклом вычисляете сколько там одинаковых/различных элементов...
__________________
Тот факт, что медуза выжила 650 миллионов лет без мозгов, даёт надежду многим. |
|
Ответить |
|