Летопись МИФИ

Диагноз: МИФИст


ЕГЭ-2024
Тесты ЕГЭ Онлайн
Задачи ЕГЭ по математике
Решения ЕГЭ по математике

Вступительные экзамены и специальности
Фишки для Корума:
Рейтинг пользователей Корума
Настроение • Модераторы
Темы • Картина дня • Realtime
Прочие фишки:
Нецензурная брань
Народная орфография
Морзянка онлайн • Калькулятор
Анаграммы • Игра в города

Загрузка календаря

Новые записи

20.05Задача про фермера и его кредит
26.01Актуализация сервисов ЕГЭ по математике 2014 года
05.11Поломалось
28.08Смена парадигмы
18.07Как вести себя в приличном обществе, предварительно обмочив штаны
оглавление »

Лучшие записи

1.Математическое порно1563
2.Ответы ко всем задачам ЕГЭ по математике 2010 года793
3.Тесты ЕГЭ Онлайн515
4.Результаты ЕГЭ по математике368
5.Результаты ЕГЭ по русскому языку268

О чем тут?

NX VBAB Webometrics igjhs А1-08 Абитуриенты Бачинский ВКонтакте Ващенифтему Волга Диплом Дрессировка преподов Дума ЕГЭ Жизнь Забабахал Инновации История Кафедра 26 Кларк Корум Лженаука МИФИ МИФИсты Морзянка НИЯУ Нанотехнологии Наука Образование Омоймоск ПЦ Поздравляю Поиск Президент Преподы Приколы Программное обеспечение Рейтинги Русский язык Сессия Смерть Статистика Стихи Сувениринг Тест Учеба Учебные материалы ФЯУ Физтех Фотки Ядерщики матанализ

Комментарии

День памяти
  20 мая 2023 (мифи умер)

Задача про фермера и его кредит
  20 мая 2023 (Алекс)

Математическое порно
  22 марта 2023 (Angleton)

Российский Союз ректоров
  19 февраля 2023 (Hellen Paul )

В помощь юному радисту: Морзянка 1.0
  13 ноября 2022 (Сергей)

Знахари и шаманы в МГТУ имени Баумана
  5 ноября 2021 (монах из кельи)

Зачет по инженерной графике
  24 августа 2020 (Инженерная графика)

Пасынки Вселенной
  18 февраля 2020 (Max Brown)

Финансовая пирамида за 10 рублей
  7 февраля 2020 (Флора Миллс)

База решений задач ЕГЭ по математике
  26 декабря 2019 (Мария)

$kib@t®onЪ
Сейчас на скибатроне
Шедевры
Я ищу слово,  «» 

а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы ь э ю я
a b c d e f g h i j k l m n o p q r s t u v w x y z

Слово «writeln»
впервые сказано пользователем M2b 16.04.2005 в 11:57,
и с тех пор употреблялось 119 раз.
СообщенияПользователиПользователи (top10)

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

Запрос выполнился за 0.0034 сек.
  1. 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...
  2. 03.01.2007, 12:23. Priest в теме
    «Информатика, экзамен»
    ... следующей var х у integer begin readln x if x 0 then writeln x x else writeln x end без использования условного оператора...
  3. 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
  4. 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
  5. 28.07.2006, 00:06. zlogic в теме
    «Как распределяют поступивших по группам?Фак. К»
    ... семестре когда остальные только-только начинают осваивать writeln и readln в паскале как мне кажется на 12 кафедре...
  6. 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
  7. 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 но и тут без условных инструкций не обойдется...
  8. 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...
  9. 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 коменты разобраться...
  10. 07.12.2005, 23:21. S.N. в теме
    «Помогите с программой»
    ... понимаю можно просто поиграться с комбинацией write writeln

← раньше

позже →


Рейтинг блогов



 

откуда • куда • где • eureka!
Бездарно потраченное время:
105800 дней