Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » qbasic

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8

Открыть новую тему     Написать ответ в эту тему

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, насчет вывода исходного кода. Подобная задача рассматривалась энное количество лет назад в журнале "Наука и Жизнь". Была тогда рубрика о калькуляторах, компьютерах и программировании. К сожалению, не помню год и номер, в которых приводились коды программ (на разных языках), реализовывающих данную функцию. Но если очень интересует, то могу порыться в подшивках.

Всего записей: 33 | Зарегистр. 25-01-2002 | Отправлено: 00:17 04-11-2002
A_V

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Major Pronin
я знаю, задачка старая. знаю также как решить на c и на asm.
Но если не трудно, попробуй найти решение на basic. было бы очень интересно. и я думаю, не только мне

Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 01:09 04-11-2002
SergejKa

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
прога (в .exe) должна вывести СВОЙ исходник!  

В gwbasic’е (который шёл с DOSом 3.3, 3.0 и прочих выпуска конца восьмидесятых годов прошлого века) была команда list, которую можно было выполнить из программы. И save можно было сделать из программы. И даже save "c:\bas\myprog.bas" можно было сделать, но из ЕХЕ (имхо) такое невозможно. Может быть я ошибаюсь, но басик когда компилирует не оставляет никакой отладочной, доводочной и прочей информации (как это делает Си, когда его попросишь).

Всего записей: 469 | Зарегистр. 04-03-2002 | Отправлено: 05:56 05-11-2002 | Исправлено: SergejKa, 06:08 05-11-2002
Major Pronin



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
A_V, на праздниках попробую... надо найти нужную папочку в залежах

Всего записей: 33 | Зарегистр. 25-01-2002 | Отправлено: 00:15 06-11-2002
Major Pronin



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
A_V, ничего не нашел видно, эти подшивки куда-то выкинули во время переезда. Куча всего другого есть, а именно этой статьи нету...

Всего записей: 33 | Зарегистр. 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
A_V

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ну, кто там хотел задачки?
вот вспомнил одну прикольную. не особо сложная, но все-таки сложнее и интереснее чем кажется с первого взгляда:
 
условие: дана строка. надо составить все возможные строки из символов входящих в  строку но в различных комбинациях
пример: для строки 123 варианты будут:
1) 123
2) 132
3) 213
4) 231
5) 312
6) 321
 
можем посоревноваться на скорость выполнения: на VB (PIII500) 9 символов у меня перебираются ~ 30 секунд

Всего записей: 770 | Зарегистр. 07-04-2002 | Отправлено: 01:04 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


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru