FOBOS1992 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Насчет,"Эрни Каспер. Освоим QBasic играючи! Самоучитель по программированию для школьников и взрослых. Учебный курс на примерах игр и развлечений (1999)"   Скачал Book_5154.exe, проверил KISом 2009 - он сначала ничего не нашел. Запустил эксешник, он начал лезть в реестр , точно уже не помню куда, но что то связанное с Thunderbird, создание C:\Program Files (x86)\FieryAds\FieryAds.dll , C:\Program Files (x86)\FieryAds\CommLayer.dll, C:\Program Files (x86)\FieryAds\FieryAdsUninstall.exe, о первых двух каспер засигналил о not-a-virus:AdWare.Win32.FearAds.ae и not-a-virus:AdWare.Win32.FearAds.am, соответсвенно. Если запретить хоть один запрос, то появляется окошко с объяснением, что возможно ваша антивирусная программа распознает программу как вирус , но это не так - реклама лишь является "оплатой" за бесплатную литературу. Далее появляется окошко Book Client c кнопкой "Скачать выбранную книгу" и уже установленной внизу галочкой "Согласен с условием соглашения", после нажатия на кнопку начинает заполняться строка прогресса и появляется надпись "Идет скачивание книги...   Соединение с сервером....", строка доходит до конца и надпись меняется на Цитата: Не удалось скачать книгу В данный момент Сервер BooksClient перегружен. Попробуйте позже. и так уже почти сутки. А при попытке запуске файла Uninstall.exe появляется окошко "Деинсталяция FieryAds" в котором написано: Цитата: Нельзя удалить FieryAds, т.к. у вас стоит следующее программное обеспечение в "Спонсорском режиме": платный контент, ограничение до 19.04.2009   необходимо либо оплатить использование данного ПО, либо удалить его с компьютера, тогда удаление модуля FieryAds станет возможным Всего записей: 212 | Зарегистр. 14-11-2008 | Отправлено: 17:45 20-03-2009 | Исправлено: FOBOS1992, 17:48 20-03-2009

FOBOS1992 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору poskrebok, http://forum.ru-board.com/topic.cgi?forum=62&bm=1&topic=15644#1 Всего записей: 212 | Зарегистр. 14-11-2008 | Отправлено: 12:13 26-03-2009

FOBOS1992 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору RumaRuka, вот: Код:       V = 20 ' объем вещества А в литрах     Capacity1 = 0.5: Capacity2 = 1: Capacity3 = 2: Capacity4 = 3 'объемы емкостей           AmountCapacity1 = V / Capacity1 'разлив в самые маленькие емкости     AmountCapacity2 = 0: AmountCapacity3 = 0: AmountCapacity4 = 0 ' остальные остаются пустыми           Factor2 = Capacity2 / Capacity1: Factor3 = Capacity3 / Capacity1: Factor4 = Capacity4 / Capacity1 ' условно примем объем емкости1 за 1       kernel: ' вывод самого процесса разлива     Print AmountCapacity1; "по"; Capacity1; " литра(у)  +"; AmountCapacity2; "по"; Capacity2; " литра(у)  +"; AmountCapacity3; "по"; Capacity3; "  литра(у)  +"; AmountCapacity4; "по"; Capacity4; "  литра(у)"       If AmountCapacity1 - Factor4 < 0 Then         AmountCapacity1 = AmountCapacity1 + AmountCapacity4 * Factor4         AmountCapacity4 = 0     Else         AmountCapacity1 = AmountCapacity1 - Factor4         AmountCapacity4 = AmountCapacity4 + 1         GoTo kernel     End If           If AmountCapacity1 - Factor3 < 0 Then         AmountCapacity1 = AmountCapacity1 + AmountCapacity3 * Factor3         AmountCapacity4 = 0     Else         AmountCapacity1 = AmountCapacity1 - Factor3         AmountCapacity3 = AmountCapacity3 + 1         GoTo kernel     End If           If AmountCapacity1 - Factor2 < 0 Then         AmountCapacity1 = AmountCapacity1 + AmountCapacity2 * Factor2         AmountCapacity4 = 0     Else         AmountCapacity1 = AmountCapacity1 - Factor2         AmountCapacity2 = AmountCapacity1 + 1     End If   зы хотя наверно можно и лучше Всего записей: 212 | Зарегистр. 14-11-2008 | Отправлено: 22:52 31-03-2009 | Исправлено: FOBOS1992, 22:58 31-03-2009

sharlatanat Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору SystemBLOCK   Например:         Название: Программируем на языке QBasic 4.5 Автор: Зельднер Г. Издательство: М.: ABF Год: 1996 Язык: Русский Страниц: 432 Формат: DJVU Размер: 4,11 MB   http://itbookz.ru/nodata/nodatalang/3260-.html   Много ещё - http://www.google.com.ua/search?hl=ru&q=книги+qbasic   http://qbasic.tagan-online.ru/ ---------- © Всего записей: 1291 | Зарегистр. 24-02-2006 | Отправлено: 22:58 27-06-2009

FOBOS1992 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору sharlatanat, сам когда то качал эту книгу - очень понравилась, всем рекомендую. Всего записей: 212 | Зарегистр. 14-11-2008 | Отправлено: 11:29 01-07-2009

FOBOS1992 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору naborik Код:   5 REM Coin 10 CLS:E=0 20 INPUT "Сколько раз подкидывать"; N 30 FOR I=1 TO N 40 X=INT (1 - RND) 50 IF CINT(X) = 0 THEN E=E+1 60 NEXT I 70 PRINT "Орел/решка=";E;"/";N-E 80 END     PS я как понял это нужно в школу ( задание похоже на школьное), поэтому написал, как в школе учат. Если что просто знай, что в QBASIC номера строк можно не использовать. Всего записей: 212 | Зарегистр. 14-11-2008 | Отправлено: 23:10 29-08-2009

FOBOS1992 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору GAYUSHA Цитата: 2.    Обработка числовой последовательности с заданным количеством элементов. В числовую переменную последовательно вводятся N произвольных натуральных чисел, Определить порядковые номера и значения первого из максимальных и последнего из минимальных чисел последовательности, а также произведение этих двух чисел.     5 REM Min*Max 10 CLS:F=0:Nmin=1:Nmax=1 20 INPUT "Кол-во чисел"; N 30 FOR I=1 TO N 40 INPUT "Число №"+STR$(I),X 50 IF F=0 THEN F=1: MIN=X: MAX=X 60 IF X>MAX THEN Nmax=I 70 IF X<=MIN THEN Nmin=I 80 NEXT I 90 PRINT "MIN=";MIN,"MAX=";MAX,"Nmin=";Nmin,"Nmax=";Nmax,"MIN*MAX=";MIN*MAX 100 END   PS я не тестил( неначем и времени нет), но должно работать Всего записей: 212 | Зарегистр. 14-11-2008 | Отправлено: 17:33 02-12-2009

FOBOS1992 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору GAYUSHA, судя по тексту программы - это не QBASIC, а Visual Basic. По нему тут тоже где-то есть соотв. тема с этим вопросом надо обращаться туда. Всего записей: 212 | Зарегистр. 14-11-2008 | Отправлено: 23:45 02-12-2009 | Исправлено: FOBOS1992, 23:46 02-12-2009

Страницы: 1 2 3 4 5 6 7 8

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » qbasic

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование