Слово
«writeln»впервые сказано пользователем
M2b 16.04.2005 в 11:57,
и с тех пор употреблялось
119 раз.
Сообщения со словом
«writeln»
Запрос выполнился за
0.0034 сек.
- 12.04.2007, 19:26. George в теме
«Помогите зделать ИНФУ!»
... full do result result 10 strtoint full i end begin writeln enter year space readln min max assign fi c a txt reset fi assign fo c b txt rewrite fo readln fi full while full do begin year getyear if year max and year min then begin writeln fo full writeln full end readln fi full end close fo close...
- 03.01.2007, 12:23. Priest в теме
«Информатика, экзамен»
... следующей var х у integer begin readln x if x 0 then writeln x x else writeln x end без использования условного оператора...
- 22.12.2006, 11:53. Night18 в теме
«Помогите найти ошибку в программе стекового калькулятора»
... на стек begin if c maxstack then begin inc stek c x writeln pushed stek c end end function pop integer вытащить из стека begin if c 0 then begin pop stek c dec end end begin writeln введите функцию для калькулятора write readln a writeln введите функцию для калькулятора write readln b val s a b if b 0 and length s 1 or s 1 then push else case s 1 of begin a pop b pop x a b push writeln x end begin a pop b pop x a b push writeln x end begin a pop b pop if a 0 then writeln делить на 0 нельзя else begin x b div a push writeln x end end begin a pop b pop x a b push writeln x end end writeln x x readln end
- 20.12.2006, 15:31. Night18 в теме
«Помогите найти ошибку в программе стекового калькулятора»
... на стек begin if c maxstack then begin inc stek c x writeln pushed stek c end end function pop integer вытащить из стека begin if c 0 then begin pop stek c dec end end begin writeln введите функцию для калькулятора write readln a writeln введите функцию для калькулятора write readln b val s a b if b 0 and length s 1 or s 1 then push else case s 1 of begin a pop b pop x a b push writeln x end begin a pop b pop x a b push writeln x end begin a pop b pop if a 0 then writeln делить на 0 нельзя else begin x b div a push writeln x end end begin a pop b pop x a b push writeln x end end writeln x x readln end
- 28.07.2006, 00:06. zlogic в теме
«Как распределяют поступивших по группам?Фак. К»
... семестре когда остальные только-только начинают осваивать writeln и readln в паскале как мне кажется на 12 кафедре...
- 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 x div 2 end
- 21.01.2006, 21:00. Warlock в теме
«Экзамен по инфе»
... mov eax x cmp eax 0 jge gt mul eax gt mov y eax end writeln y хотя это конечно абсолютно то же самое а еще можно так code readln x for y 1 to byte x 0 do x x x writeln x но и тут без условных инструкций не обойдется...
- 25.12.2005, 20:54. 123trancer в теме
«и еще одна прога»
... 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...
- 08.12.2005, 21:55. S.N. в теме
«Помогите с программой»
... таблицу while t t0 do begin v g t y y0- sqr t g 2 writeln время скорость высота writeln t 6 2 v 6 2 y 6 2 t t 1 end коменты разобраться...
- 07.12.2005, 23:21. S.N. в теме
«Помогите с программой»
... понимаю можно просто поиграться с комбинацией write writeln