Слово
«procedure»впервые сказано пользователем
гость 30.05.2005 в 23:24,
и с тех пор употреблялось
24 раза.
Сообщения со словом
«procedure»
Запрос выполнился за
0.0059 сек.
- 18.10.2005, 13:37. Дмитрий в теме
«легкая задача,но не для меня:)»
... crt const n 100 var a array 1 n of integer i integer procedure shakersort var j k i l r integer x n integer begin writeln отрезок от l до r shakersort for i l 1 to r do begin l 2 r n k n repeat for j r downto l do begin if a j-1 a j then begin x a j-1 a j-1 a j a j x k j end end l k 1 for j l to r do begin if a j-1 a j then begin x a j-1 a j-1 a j a j x k j end end r k-1 until l r end end procedure sift l r integer protsedura proseivaniya var i j x integer begin i l j 2 l x m l while i r do begin if j r then if m j m j 1 then j j 1 if x m i then break m i m j i j j 2 j end m i x end procedure heapsort l r integer var i j integer x n...
- 07.10.2005, 12:49. ~~HellHounD~~ в теме
«Задача по информатике»
... ret 1 for j 1 to i do ret 2 ret bits ret div 2 end procedure setbit count integer var bitmask integer begin bitmask bitmask or bits count end function checkbit bitmask count integer boolean begin if bitmask and bits count 0 then checkbit true else checkbit false end function fact n integer integer begin if n 0 then fact n fact n-1 else fact 1 end function get num isn pos n integer integer var tmpn cn j integer begin if pos 1 then begin get num isn div fact n-1 1 setbit isn div fact n-1 1 tmpscan end else begin cn 0 tmpn isn for j 1 to pos-1 do tmpn tmpn mod fact n-j tmpn tmpn div fact n-pos 1 j 0 while cn tmpn do begin inc j if not checkbit tmpscan j then inc cn end setbit j tmpscan get num j end end procedure print perestan n integer var i j integer...
- 30.05.2005, 23:24. гость в теме
«Pascal & Си»
... действий этот вариант void f int x float g int x или этот procedure f x integer function g x integer real так...