URANUS Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору A_V Цитата: Написать прогу выводящую свой исходный код. Кто вводит код? Всего записей: 970 | Зарегистр. 27-03-2002 | Отправлено: 23:24 03-11-2002

A_V Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору URANUS Цитата: Кто вводит код? это что шутка?   прога (в .exe) должна вывести СВОЙ исходник! Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 00:15 04-11-2002

Major Pronin Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору A_V, насчет вывода исходного кода. Подобная задача рассматривалась энное количество лет назад в журнале "Наука и Жизнь". Была тогда рубрика о калькуляторах, компьютерах и программировании. К сожалению, не помню год и номер, в которых приводились коды программ (на разных языках), реализовывающих данную функцию. Но если очень интересует, то могу порыться в подшивках. Всего записей: 36 | Зарегистр. 25-01-2002 | Отправлено: 00:17 04-11-2002

Major Pronin Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору A_V, на праздниках попробую... надо найти нужную папочку в залежах Всего записей: 36 | Зарегистр. 25-01-2002 | Отправлено: 00:15 06-11-2002

Major Pronin Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору A_V, ничего не нашел видно, эти подшивки куда-то выкинули во время переезда. Куча всего другого есть, а именно этой статьи нету... Всего записей: 36 | Зарегистр. 25-01-2002 | Отправлено: 23:20 09-11-2002

A_V Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору SergejKa Цитата: басик когда компилирует не оставляет никакой отладочной, доводочной и прочей информации   дело не в этом... а скорее в умении обращаться с кодом как с данными   Major Pronin обидно, досадно, но x.. с ним будем считать что на qb это сделать невозможно если кто-то опровергнет - был бы рад увидеть: av@sendmail.ru   Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 02:29 10-11-2002

STEEL Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Задача Завод сбрасывает в реку ежедневно от 0 до 30 кг отходов. Если кол-во отходов привышает 15 кг, то за каждый последующий начисляется штраф - 100р. Ежедневная прибыль завода 700р. Рентабелен ли завод.   CLS X = 30 * RND   А даль что делать? Как начислять за каждый лишний кг - по 100р? Всего записей: 2293 | Зарегистр. 06-01-2002 | Отправлено: 14:45 12-02-2003

URANUS Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору STEEL Наверное так: CLS X=INT(RND*30) PRINT "Отходов сбросили"; X S=700 K=0 IF X<=15 THEN PRINT "Завод рентабелен" : GOTO 50 10 X=X-1 K=K+100 IF X>15 THEN GOTO 10 IF K>=S THEN PRINT "Завод не рентабелен" IF K<S THEN PRINT "Завод рентабелен" 50 END ---------- Для выработки характера необходимо минимум два раза в день совершать героическое усилие. Именно это я и делаю: каждое утро встаю и каждый вечер ложусь спать. Сомерсет Моэм Всего записей: 970 | Зарегистр. 27-03-2002 | Отправлено: 15:47 12-02-2003

Xttx Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору A_V Krutaya golovolomka! To chto nado! Na VB mogu sdelat' cherez API, a na qbasice ne znau, seychas zaymus'!!!!! Escho hachu! PS. Priyatno staroe vspomnit'... I pochemu URANUS vse tak bystrro vse reshaet: ya kak ne zaydu v etu temu - ocherednaya zadacha i uje s ego resheniem A ya tak nichego escho i ne napisal Всего записей: 539 | Зарегистр. 04-07-2002 | Отправлено: 18:21 18-02-2003

URANUS Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Xttx Цитата:  I pochemu URANUS vse tak bystrro vse reshaet: ya kak ne zaydu v etu temu - ocherednaya zadacha i uje s ego resheniem Делать просто нечего, но здесь сложных задач тоже не дают (читай таких не было, исключая задачу A_V)... Вот на олимпиаде (районной 11 кл.) вроде пару задач нормальных было, если хочешь могу дать порешать. ---------- Для выработки характера необходимо минимум два раза в день совершать героическое усилие. Именно это я и делаю: каждое утро встаю и каждый вечер ложусь спать. Сомерсет Моэм Всего записей: 970 | Зарегистр. 27-03-2002 | Отправлено: 01:25 19-02-2003 | Исправлено: URANUS, 01:27 19-02-2003

Xttx Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору URANUS Hachu! Spasibo.   A na schet zadachi A_V - tak nichego u menya ne poluchilos'... Mogu vyvesti soderjimoe pamyati, so startovogo adressa... Mogu vstroit' nechto vrode decompilatora - na assemblere vydavat' budet, no ne bolshe... A voobsche, ya napisal programmu 'hellow world' i decompiliroval exeshnik... Kak-to izvraschenno on eto delaet, ya malo chto ponyal Odno tochno - nikakoy informacii ob ishodnom code tam net; vse zapuskaetsya. Всего записей: 539 | Зарегистр. 04-07-2002 | Отправлено: 11:50 19-02-2003

URANUS Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Xttx Вот пока попроще для разминки...   "Шашки" Цитата: Имеется несколько (не более 80) шашек разных цветов. Ваша программа должна запросить число цветов, количество шашек каждого цвета и вывести сообщение о возможности расположить их по кругу так, чтобы рядом не стояли шашки одного цвета. В случае положительного ответа программа должна вывести в виде строки цветов пример такой расстановки.   Пример: Число цветов 4 Число шашек цвета 1: 7 Число шашек цвета 2: 15 Число шашек цвета 3: 4 Число шашек цвета 4: 5 Ответ: возможно Например: -2-1-2-1-2-1-2-1-2-1-2-1-2-4-2-4-2-4-2-4-2-4-2-3-2-3-2-3-2-3-1-     "Волшебная яблоня" Цитата: На волшебной яблоне росли апельсины (a штук), бананы (b штук) и сливы (с штук), а яблоки еще не выросли - не сезон Известно, что если сорвать и съесть подряд апельсин и банан (именно в таком порядке), то на ней вырастет одна слива. Если сорвать и съесть подряд в любом порядке банан и сливу, то вырастет апельсин. А если сорвать и съесть подряд три банана, то вырастет 4 банана, 5 бананов - 6 и так далее... Вашаш программа должна запросить: - первоначальное число апельсинов, бананов и слив, растущих на яблоне; - последовательность поедания фруктов в виде строки символов "a", "b" и "c"; - сообщить конечное число апельсинов, бананов и слив, оставшихся на яблоне после поедания.   Пример: Число апельсинов: 10 Число бананов: 8 Число слив: 12 Последовательность поедания: bbbabacbccbacacc Ответ: Осталось апельсинов: 9 Осталось бананов: 4 Осталось слив: 7 ---------- Для выработки характера необходимо минимум два раза в день совершать героическое усилие. Именно это я и делаю: каждое утро встаю и каждый вечер ложусь спать. Сомерсет Моэм Всего записей: 970 | Зарегистр. 27-03-2002 | Отправлено: 13:17 19-02-2003 | Исправлено: URANUS, 13:36 19-02-2003

CTPAHHiK Newbie Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Я так почитал етот форум и понял шо я полный ламак в Басике . Кто могёт помогите, дайте ссылки где про него бейсик то читать... и где скачать qbasic с компилером... еси неправильно выразился поправте Всего записей: 16 | Зарегистр. 25-01-2003 | Отправлено: 01:46 21-02-2003

URANUS Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору CTPAHHiK А зачем оно тебе? Займись лучше сразу чем-нибудь более "современным" что ли. Васик хорош для понимания общих принципов программирования... На практике врядли ты будешь его где-то использовать. Xttx Ну как задачи? ---------- Для выработки характера необходимо минимум два раза в день совершать героическое усилие. Именно это я и делаю: каждое утро встаю и каждый вечер ложусь спать. Сомерсет Моэм Всего записей: 970 | Зарегистр. 27-03-2002 | Отправлено: 15:42 21-02-2003

CTPAHHiK Newbie Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору URANUS, знаю что не буду... просто интересно...  вот delphi хачу учить, учу точнее потихоньку, но времени катострофически не хватает! Всего записей: 16 | Зарегистр. 25-01-2003 | Отправлено: 00:24 23-02-2003

daimon99 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Помогите вычеслить определенный интеграл  методом Симпсона. Подынтегральная функция е^x*cos^2*x a=0, b=ПИ; вычислительная формула y=h/3*Sum[f(a+ih)+4f(a+h+ih)+f(a+2h+ih)],   i=0,2,4,...,n-2. С точностью интегрирования Е=0,001 Всего записей: 62 | Зарегистр. 12-12-2002 | Отправлено: 10:54 05-04-2003

STEEL Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Кому не лень.. Бытренько напишите... 1. найти единицу чисел от 3 до 300.. 2. найти среднеарифметическое чисел от 7 до10 с шагом 0,2 3. найти y=2x^3/100 , х изменяетяся от 1 до 10 с нагом 0,5 4. найти y={ x^5, или x<0                    3x-sinx, если 0<=x<2-                    корень из X, есди x > 25   5. наибольшее из трёх чисел разделить на 100   6. вычислить n! - факториал найти набольшее n... на qbasic есть придел     Всего записей: 2293 | Зарегистр. 06-01-2002 | Отправлено: 21:54 06-09-2003

Страницы: 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 Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование