Слово
«procedure»впервые сказано пользователем
гость 30.05.2005 в 23:24,
и с тех пор употреблялось
24 раза.
Сообщения со словом
«procedure»
Запрос выполнился за
0.0046 сек.
- 14.07.2010, 17:38. mrAndersen в теме
«Сокеты в delphi»
... проблемой текст у всех хорошо пересылается вот код код procedure tform1 serversocket1clientread sender tobject socket tcustomwinsocket begin socket receivebuf r 250 memo1 lines add r r end так принимается без первого символа и когда обрезанный текст когда нет код procedure tform1 serversocket1clientread sender tobject...
- 01.07.2009, 09:55. champion в теме
«DELPHI, 28 кафедра, Никитин!!!!!»
protected procedure setfield const field tsometype защищенный...
- 30.06.2009, 20:56. Itheme в теме
«DELPHI, 28 кафедра, Никитин!!!!!»
... tsomeclass class private ffield tsometype protected procedure setfield const field tsometype public property...
- 04.01.2007, 17:38. Priest в теме
«Информатика, экзамен»
... следует использовать следующий заголовок подпрограммы procedure king pos postype 20 привести примеры подпрограмм...
- 03.01.2007, 12:23. Priest в теме
«Информатика, экзамен»
... следует использовать следующий заголовок подпрограммы procedure king pos postype 12 привести пример рекурсивной...
- 22.12.2006, 11:53. Night18 в теме
«Помогите найти ошибку в программе стекового калькулятора»
... maxstack of integer стек x integer s string a b integer procedure push положить на стек begin if c maxstack...
- 20.12.2006, 15:31. Night18 в теме
«Помогите найти ошибку в программе стекового калькулятора»
... maxstack of integer стек x integer s string a b integer procedure push положить на стек begin if c maxstack...
- 25.12.2005, 20:54. 123trancer в теме
«и еще одна прога»
... family str tel1 str tel2 str end mas array 1 m of spr procedure num2 var f text var t mas var k integer var abon spr s str i integer begin for i 1 to m do begin t i family t i name t i tel1 t i tel2 end reset f k 0 while not seekeof f do begin readln f s s s i pos s abon family copy s 1 i-1 delete s 1 i i pos s abon name copy s 1 i-1 delete s i 1 i pos s abon tel1 copy s 1 i-1 delete s 1 i i pos s abon tel2 copy s 1 i-1 k k 1 t k abon end close f end procedure num1 var f text var t mas var k integer var abon spr begin append f writeln vvedite familiy readln abon family write f abon family writeln vvedite ima readln abon name write f abon name writeln vvedite domashnii telefon readln abon tel1 write f abon tel1 writeln vvedite mobilnii telefon readln abon tel2 writeln f abon tel2 close f num2 f t k end procedure num3 t mas k integer var i n integer a s str begin writeln vvedite bykvy dla poiska readln s n 0 for i 1 to k do begin a copy t i family 1 1 if a s then begin writeln t i family t i name t i tel1 t i tel2 n 1 end end if n 0 then writeln abonent ne naiden end procedure num4 t mas k integer var s str i n integer begin writeln vvedite familiy readln s n 0 for i 1 to k do begin if s t i family then begin writeln t i family t i name t i tel1 t i tel2 n 1 end end if n 0 then writeln abonent ne naiden end procedure num5 var f text var t mas k integer var s str i n j integer begin writeln vvedite familiy readln s j 0 for i 1 to k do begin if t i family s then begin writeln t i family t i name t i tel1 t i tel2 writeln esli xotite redaktirovat na mite 1 esli net 0 readln n if n 1 then begin writeln vvedite familiy readln t i family writeln vvedite ima readln t i name writeln vvedite domashnii telefon readln t i tel1 writeln vvedite mobilnii telefon readln t i tel2 j 1 end end end if j 1 then begin rewrite f for i 1 to k do writeln f t i family t i name t i tel1 t i tel2 close f end else writeln abonent ne naiden end procedure num6 var f text var t mas var k integer var s str i n integer begin writeln vvedite familiy readln s n 0 for i 1 to k do begin if t i family s then begin t i family t k family t k family t i name t k name t k name t i tel1 t k tel1 t k tel1 t i tel2 t k tel2 t k tel2 k k-1 n 1 end end if n 1 then begin rewrite f for i 1 to k do writeln f t i family t i name t i tel1 t i tel2 close f writeln ydalenie zaversheno end else writeln abonent ne naiden end procedure num7 t mas k integer var i integer begin for i 1 to k do writeln t i family t i name t i tel1 t i tel2 end procedure menu z integer var f text var t mas k integer...
- 18.10.2005, 16:40. ~~HellHounD~~ в теме
«легкая задача,но не для меня:)»
... сортировки по возрастанию процедура шейкерной сортировки procedure heapsort n integer var r j i tmp f g l integer...
- 18.10.2005, 15:35. ~~HellHounD~~ в теме
«легкая задача,но не для меня:)»
... процедура меняющая значения 2-х переменных местами procedure swap var a b integer var c integer begin c a a b b c end процедура шейкерной сортировки procedure shakesort l r integer var i size integer...