Слово
«integer»впервые сказано пользователем
GrD 16.04.2005 в 20:22,
и с тех пор употреблялось
164 раза.
Сообщения со словом
«integer»
Запрос выполнился за
0.0054 сек.
- 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...
- 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...
- 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...
- 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...
- 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...
- 03.01.2007, 12:23. Priest в теме
«Информатика, экзамен»
... привести пример программы эквивалентной следующей var х у integer begin readln x if x 0 then writeln x x else...
- 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...
- 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...
- 31.05.2006, 20:03. ni4ei в теме
«кхе кхе»
береца это странное слово integer integer целое ps такой пост наводит на мысль что это...
- 31.05.2006, 18:02. aggressiveness в теме
«кхе кхе»
... что там чего значит откуда береца это странное слово integer или еще какое почему именно оно сюда приминяецца...