Слово
«readln»впервые сказано пользователем
M2b 16.04.2005 в 11:57,
и с тех пор употреблялось
57 раз.
Сообщения со словом
«readln»
Запрос выполнился за
0.0059 сек.
- 12.04.2007, 19:26. George в теме
«Помогите зделать ИНФУ!»
... 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 fi readln full end вот это с именами и годами рождения...
- 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 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 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 в теме
«Экзамен по инфе»
... if тут нет однако имелось в виду похоже не это code readln x asm 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 в теме
«и еще одна прога»
... 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...
- 07.12.2005, 22:56. HOOLIGAN в теме
«Помогите с программой»
... t0 y y0 real begin writeln введите начальную высоту readln y0 v0 0 y y0 t0 sqrt 2 y0 g t 0 while t t0 do...
- 04.11.2005, 11:39. Доктор математических наук в теме
«PASCAL»
... одной строке с помощью цикла while not eof do а внутри readln s наскока я помню 2 теперь рассматриваем каждую...