Сообщения со словом
«integer»

31. 23.01.2006, 15:22. ShadowStone в теме
    «Экзамен по инфе»
    ... привести пример программы эквивалентной следующей var x y integer begin readln x if x 0 then writeln x x else writeln x end без использования условного оператора ответ code var x y integer begin readln x writeln abs x x div 2 x x-abs...
32. 25.12.2005, 20:54. 123trancer в теме
    «и еще одна прога»
    ... 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 begin writeln z 10 while z 0 do begin writeln vvedite pynkt writeln 1 dobavit abonenta writeln 2 poisk po bykve writeln 3 poisk po familii writeln 4 redaktirovat dannie writeln 5 ydalit abonenta writeln 6 vivesti vse writeln 0 vixod iz programmi readln z case z of 1 num1 f t k 2 num3 t k 3 num4 t k 4 num5 f t k 5 num6 f t k 6 num7 t k else writeln nevernii vvod end writeln end end var f text z integer begin todo -ouser -cconsole main insert code...
33. 04.11.2005, 11:39. Доктор математических наук в теме
    «PASCAL»
    ... рассм строку как массив символов 3 делаешь массив integer чтобы записывать туда длины слов 4 делаешь счетчик чтобы посчитать буквы к если при считывании символа из строки этот символ равен нулю то к записываешь в первый элемент массива и к 0 5 таким образом получится массив integer где хранятся длины всех слов в строке ну а...
34. 18.10.2005, 16:40. ~~HellHounD~~ в теме
    «легкая задача,но не для меня:)»
    ... процедура шейкерной сортировки procedure heapsort n integer var r j i tmp f g l integer begin r n g 1 for l n div 2 downto 1 do begin...
35. 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 begin size 0 while l size r-size do begin for...
36. 18.10.2005, 13:37. Дмитрий в теме
    «легкая задача,но не для меня:)»
    ... hipshakesort uses 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 integer begin l n div 2 1 r n while l 1 do begin l...
37. 16.10.2005, 23:45. Первокур в теме
    «Проги на ПАСКАЛЕ!»
    ... инициализировать графический модуль uses graph var grdriver integer grmode integer errcode integer begin grdriver detect initgraph grdriver grmode...
38. 07.10.2005, 12:49. ~~HellHounD~~ в теме
    «Задача по информатике»
    ... 1128674972 mergetime пока так uses crt var tmpscan integer function bits i integer integer var j ret integer begin 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 begin for i 0 to fact n -1 do begin tmpscan 0 write get num i 1 n for j 2 to n do begin write get num i j n end writeln end end begin clrscr print perestan 4 readkey end для проверки смещения используется битовая маска на основе числа типа integer думаю что должно быть что-то попроще но пока...
39. 16.09.2005, 18:11. Firely в теме
    «delphi, работа c memo-полем...»
    code var i integer txtfile textfile begin assignfile txtfile textfile...
40. 30.05.2005, 23:24. гость в теме
    «Pascal & Си»
    ... void f int x float g int x или этот procedure f x integer function g x integer real так же очень невнятное определение массивов в отличие от си int arr 100 паскаль type arr array 0 100 of integer всё равно что писать type arr some array 0 100 of integer pleese быть может сейчас это выглядит довольно...