» qbasic

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

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 кл.) вроде пару задач нормальных было, если хочешь могу дать порешать.

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.

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

Я так почитал етот форум и понял шо я полный ламак в Басике . Кто могёт помогите, дайте ссылки где про него бейсик то читать... и где скачать qbasic с компилером... еси неправильно выразился поправте

CTPAHHiK
А зачем оно тебе? Займись лучше сразу чем-нибудь более "современным" что ли. Васик хорош для понимания общих принципов программирования... На практике врядли ты будешь его где-то использовать.
Xttx
Ну как задачи?

URANUS, знаю что не буду... просто интересно... вот delphi хачу учить, учу точнее потихоньку, но времени катострофически не хватает!

ну, кто там хотел задачки?
вот вспомнил одну прикольную. не особо сложная, но все-таки сложнее и интереснее чем кажется с первого взгляда:

условие: дана строка. надо составить все возможные строки из символов входящих в строку но в различных комбинациях
пример: для строки 123 варианты будут:
1) 123
2) 132
3) 213
4) 231
5) 312
6) 321

можем посоревноваться на скорость выполнения: на VB (PIII500) 9 символов у меня перебираются ~ 30 секунд

Помогите вычеслить определенный интеграл методом Симпсона. Подынтегральная функция е^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

Кому не лень.. Бытренько напишите...
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 есть придел

подскажите где можно скачать MS Quick Basic 7.1 PDS(Professional Development System) желательно русскую.

1. в таблиЦЕ К размерностью 10 наити произв. элементов, которые меньше 0, найти сумму квадратов элементов, которые меньше 1, найти сумму эелементов, стоящих на чётных местах

2. Вывести на экран отриц. значения ф-ии у= икс в кубе на (-8; 9)

ОЧЕНЬ СРОЧНО. ПОЖАЛУЙСТА РЕШИТЕ! С меня 6ка!

Подскажите идею, как можно заштриховать произвольную замкнутую область.... Может есть что-то встроенное, типа paint ?

что ни у кого задачи такой не было?

Где можно найти описание всех операторов на русском язуке?

Vanes
Есть qbasic русский вот в нем и хелп на русском. Поищи в инете.

Vanes


Цитата:

Где можно найти описание всех операторов на русском язуке?

Список основных операторов QBasic - http://programmer2003.narod.ru/operator.html.

Господа, помогите пожалуйста, написав программу на сабже, которая решала бы такую задачу :
Есть пара кроликов, каждый месяц они рождают еще пару кроликов, каждая пара еще по паре в месяц итд... надо узнать сколько всего кроликов будет через год.
При этом надо использовать функцию и константу равную двум. Функция должна вычеслять сколько будет кроликов каждый месяц и становиться равной этому значению... вот... то есть использовать рекурсию.

Thinkerrus

Цитата:

Господа, помогите пожалуйста...

- господа все в Париже!

Вот программа (хотя зачем она вообще нужна? берётся калькулятор и вычисляется 2 в 12 степени!):

Код: CLS
LET rabbits = 2
FOR month = 1 TO 12
rabbits = rabbits * 2
PRINT "Месяц ="; month, "количество кроликов ="; rabbits
NEXT month
END

Yevgeniy, а не много ли кроликов получается? 0_о

Thinkerrus

Согласно условию задачи каждый месяц количество кроликов удваивается:

Цитата:

Есть пара кроликов, каждый месяц они рождают еще пару кроликов, каждая пара еще по паре в месяц итд...

Следовательно, составляется таблица, в которой значение количества кроликов за каждый прошедший месяц умножается на 2 (начальное количество кроликов по условию задачи также 2):

Месяц Количество кроликов

Если кому надо разные BASIC и др.
http://zerodivide.h15.ru/qbsoft.html

Yevgeniy, ну да, точно...я наверно что-то с условиями напутал, завтра спрошу у знакомого какие там были условия... сорри за то, что усомнился в верности вашего ответа.

Привет Всем!
лЮЮЮЮДИ помогите подмазаться к девушке (надо показаться УУУмным до чертиков)
Вообщем помогите не упасть лицом в г...о

Задача: заставит комп считать 3 интергальных примера

1 Интеграл от 0 до pi/4 под интегралом sinx dx ( Че-то сказано что решить надо по формуле треугольника)
-x dx
2 Интеграл от 0 до 1 под интегралом е С точностью до 0,001

3 тама вооще ужас....



Пооомогите ПОЖАЛУЙСТА уж очень девушка красивая!

Пожалуйста, помогите!! надо игру написать на QBasic про пушку стреляющую по мишени и чтобы была видна траектория снаряда. Мишень должна появляться в вертикальной плоскости на случайной высоте.
Мишень я знаю как сделать и пушка у меня есть (и вроде как угол регулируется), а вот как сделать чтоб она стреляла под разным углом - это никак не получается.(( Прямо мозги все в раскоряку.. Уже игра эта во сне снится! Спасите от помешательства человека!!))

надо же, тема ожила. уже и не думал, что дождусь))

vcmc

ну выкладывай свой код, будем смотреть.

идея такая:
пусть пушка у тебя в начале координат (0,0)
Fi - угол наклона
траектория снаряда, я так понимаю - прямая. в общем виде: y=ax+b
a, если мне не изменяет память равна тангенсу Fi
Будет выглядеть примерно так:


Код: for x:=0 to (координаты стенки) do
y=tan(fi)*x {не помню, как там тангенс в кубасике, b в данном случае = 0}

{здесь ты x и y переводишь в экранные координаты}
next i

зачем так много if при поиске минимальное среди трёх введённых чисел?

dim i , j , k as integer
input i , j , k
if i < j then i = j
if i < k then i = k
print i

не знаю есть ли в qb функция min()? с ней ещё проще
dim i , j , k as integer
input i , j , k
print min( min( i , j ) , k )

DeadVillage
ты сейчас кому отвечаешь?
дату поста видел? 22:15 02-10-2002

Помогите решить:дана последовательность чисел,0-конец последовательности.определить сумму трех наибольших чисел.

плииз памагите!!!!!!!!!!


1. a(i,j)=((10^log(i))/(10^log(j)))/((e^lg(i))/(e^lg(j)))
2.x(i)=max(a(ij)cos(ij))
3.половину эл-в вектор. по убыванию,остальн. по возрастанию
4. y=Пx(i)(сумма)x(n+1-k)
i=1
k=1