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

Симулятор проблесков сознания


ЕГЭ-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

Слово «integer»
впервые сказано пользователем GrD 16.04.2005 в 20:22,
и с тех пор употреблялось 164 раза.
СообщенияПользователиПользователи (top10)

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

Запрос выполнился за 0.0054 сек.
  1. 09.12.2007, 19:21. la_fou в теме
    «VB 6.0»
    ... программы private sub command2 mousemove button as integer shift as integer x as single y as single для кнопки 2 button целочисленное shift целочисленное y- текстовое х текстовое statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке end sub private sub command3 click программа для кнопки 3 if list2 listindex 0 then если количество выделенных знаков в list2 больше или равно нуля то list2 removeitem list2 listindex else иначе msg msgbox не выделен объект удаления в списке vbokonly ошибка если элемент не выделен то выдается сообщение ошибка end ifконец цикла if end sub private sub command3 mousemove button as integer shift as integer x as single y as single для кнопки 3 button целочисленное shift целочисленное y- текстовое х текстовое statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке end sub private sub command4 click программа для кнопки 4 j j 1 msg inputbox введите марку машины ввод марок машин новая машина str j вывод окна где можно ввести текст или число длина строки i знаков list2 additem msg добавление жэлемента в list2 end sub конец программы private sub command4 mousemove button as integer shift as integer x as single y as single для кнопки 4 button...
  2. 09.12.2007, 19:06. la_fou в теме
    «VB 6.0»
    dim i as integer переменная целочисленная dim j as integer переменная целочисленная dim perechen 100 2 auto 100 2 as string задается длина строки dim n as integer переменная целочисленная private sub command1 click программа для кнопки 1 i i 1 msg inputbox введите фермерское хозяйство ввод фермерских хозяйств новое хозяйство вывод окна где можно ввести текст или число str i длина строки i знаков list1 additem msg добавление жэлемента в list1 end sub конец программы private sub command1 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext...
  3. 09.12.2007, 16:54. asterix20 в теме
    «VB 6.0»
    ... не знаю вб но чисто наугад чото попробую dim i as integer объявление переменной типа интегер dim j as integer объявление переменной типа интегер dim perechen 100 2 auto 100 2 as string объявление переменной типа стринг dim n as integer объявление переменной типа интегер private sub command1 click i i 1 msg inputbox введите фермерское хозяйство ввод фермерских хозяйств новое хозяйство str i вывод окошка в котором предлагается ввести чтот list1 additem msg добавление того что ввели в лист1 end sub private sub command1 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы добавить запись в список на статус баре пишется что в кавычках end sub private sub command2 click if list1 listindex 0 then иф выделение лист 1 больше либо равно нулю то list1 removeitem list1 listindex удаляем элемент else msg msgbox не выделен объект удаления в списке vbokonly ошибка иначе ошибка end if end sub private sub command2 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке на статус баре пишется что в кавычках end sub private sub command3 click if list2 listindex 0 then list2 removeitem list2 listindex else msg msgbox не выделен объект удаления в списке vbokonly ошибка тож самое что и выше тока с лист2 end if end sub private sub command3 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке на статус баре пишется что в кавычках end sub private sub command4 click j j 1 msg inputbox введите марку машины ввод марок машин новая машина str j list2 additem msg тож самое что и выше с вводом в лист1 end sub private sub command4 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы добавить запись в список на статус баре пишется что в кавычках end sub private sub command5 click if list1 listindex 0 or list2 listindex 0 then проверка условия msg msgbox не выделены объекты добавления vbokonly ошибка вывод ошибки else list3 additem list1 list list1 listindex list2 list list2 listindex добавление в лист3 for i1 1 to n для и т п if perechen i1 1 list1 list list1 listindex and perechen i1 2 list2 list list2 listindex then exit sub проверка условия и выполнение его next i1 n n 1 perechen n 1 list1 list list1 listindex perechen n 2 list2 list list2 listindex end if end sub private sub command5 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext выделить фермерское хозяйство и марку машины нажать кнопку чтобы сформировать список заказов на статус баре пишется что в кавычках end sub private sub command6 click list3 clear тут все понятно for i1 1 to n list3 additem perechen i1 1 perechen i1 2 добавление в лист 3 next i1 end sub private sub command6 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext выводит сформированный список всех заказов на статус баре пишется что в кавычках end sub private sub command7 click list3 clear end sub private sub command7 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке на статус баре пишется что в кавычках end sub дальше все объяснения однотипны private sub command8 click for i1 1 to list2 listcount auto i1 1 list2 list i1 1 auto i1 2 0 next i1 for i1 1 to n for j1 1 to list2 listcount if auto j1 1 perechen i1 2 then auto j1 2 str val auto j1 2 1 next j1 next i1 for i1 1 to list2 listcount 1 for j1 i1 1 to list2 listcount if val auto i1 2 val auto j1 2 then tmp auto i1 2 auto i1 2 auto j1 2 auto j1 2 tmp end if next j1 next i1 list3 clear for i1 1 to list2 listcount if auto i1 2 0 then list3 additem auto i1 1 auto i1 2 next i1 end sub private sub command8 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext выводит перечень необходимых марок машин с указанием их количества по убыванию на статус баре пишется что в кавычках end sub private sub form mousemove button as integer shift as integer x as single y as single statusbar1 simpletext...
  4. 09.12.2007, 16:44. 4udo в теме
    «VB 6.0»
    ... кто знает язык vb 6 0 помогите пожалуйста dim i as integer dim j as integer dim perechen 100 2 auto 100 2 as string dim n as integer private sub command1 click i i 1 msg inputbox введите фермерское хозяйство ввод фермерских хозяйств новое хозяйство str i list1 additem msg end sub private sub command1 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы добавить запись в список end sub private sub command2 click if list1 listindex 0 then list1 removeitem list1 listindex else msg msgbox не выделен объект удаления в списке vbokonly ошибка end if end sub private sub command2 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке end sub private sub command3 click if list2 listindex 0 then list2 removeitem list2 listindex else msg msgbox не выделен объект удаления в списке vbokonly ошибка end if end sub private sub command3 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке end sub private sub command4 click j j 1 msg inputbox введите марку машины ввод марок машин новая машина str j list2 additem msg end sub private sub command4 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы добавить запись в список end sub private sub command5 click if list1 listindex 0 or list2 listindex 0 then msg msgbox не выделены объекты добавления vbokonly ошибка else list3 additem list1 list list1 listindex list2 list list2 listindex for i1 1 to n if perechen i1 1 list1 list list1 listindex and perechen i1 2 list2 list list2 listindex then exit sub next i1 n n 1 perechen n 1 list1 list list1 listindex perechen n 2 list2 list list2 listindex end if end sub private sub command5 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext выделить фермерское хозяйство и марку машины нажать кнопку чтобы сформировать список заказов end sub private sub command6 click list3 clear for i1 1 to n list3 additem perechen i1 1 perechen i1 2 next i1 end sub private sub command6 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext выводит сформированный список всех заказов end sub private sub command7 click list3 clear end sub private sub command7 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext нажать на кнопку чтобы удалить выделенную запись в списке end sub private sub command8 click for i1 1 to list2 listcount auto i1 1 list2 list i1 1 auto i1 2 0 next i1 for i1 1 to n for j1 1 to list2 listcount if auto j1 1 perechen i1 2 then auto j1 2 str val auto j1 2 1 next j1 next i1 for i1 1 to list2 listcount 1 for j1 i1 1 to list2 listcount if val auto i1 2 val auto j1 2 then tmp auto i1 2 auto i1 2 auto j1 2 auto j1 2 tmp end if next j1 next i1 list3 clear for i1 1 to list2 listcount if auto i1 2 0 then list3 additem auto i1 1 auto i1 2 next i1 end sub private sub command8 mousemove button as integer shift as integer x as single y as single statusbar1 simpletext выводит перечень необходимых марок машин с указанием их количества по убыванию end sub private sub form mousemove button as integer shift as integer x as single y as single statusbar1 simpletext...
  5. 12.04.2007, 19:26. George в теме
    «Помогите зделать ИНФУ!»
    ... apptype console uses sysutils var full string year integer max min integer fi fo textfile function getyear integer var i integer begin result 0 i length full 1 while full i...
  6. 03.01.2007, 12:23. Priest в теме
    «Информатика, экзамен»
    ... привести пример программы эквивалентной следующей var х у integer begin readln x if x 0 then writeln x x else...
  7. 22.12.2006, 11:53. Night18 в теме
    «Помогите найти ошибку в программе стекового калькулятора»
    ... calculator const maxstack 250 максимальный размер стека c integer 0 var stek array 1 maxstack of integer стек x integer s string a b integer procedure push положить на стек 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...
  8. 20.12.2006, 15:31. Night18 в теме
    «Помогите найти ошибку в программе стекового калькулятора»
    ... calculator const maxstack 250 максимальный размер стека c integer 0 var stek array 1 maxstack of integer стек x integer s string a b integer procedure push положить на стек 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...
  9. 31.05.2006, 20:03. ni4ei в теме
    «кхе кхе»
    береца это странное слово integer integer целое ps такой пост наводит на мысль что это...
  10. 31.05.2006, 18:02. aggressiveness в теме
    «кхе кхе»
    ... что там чего значит откуда береца это странное слово integer или еще какое почему именно оно сюда приминяецца...

← раньше

позже →


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



 

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