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

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

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

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

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

chemy

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
подскажите где можно скачать MS Quick Basic 7.1 PDS(Professional Development System) желательно русскую.

Всего записей: 70 | Зарегистр. 28-02-2003 | Отправлено: 19:28 01-10-2003
STEEL



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1. в таблиЦЕ К размерностью 10 наити произв. элементов, которые меньше 0, найти сумму квадратов элементов, которые меньше 1, найти сумму эелементов, стоящих на чётных местах
 
2. Вывести на экран отриц. значения ф-ии у= икс в кубе на (-8; 9)
 
ОЧЕНЬ СРОЧНО. ПОЖАЛУЙСТА РЕШИТЕ! С меня 6ка!

Всего записей: 2293 | Зарегистр. 06-01-2002 | Отправлено: 18:50 16-10-2003
chemy

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Подскажите идею, как можно заштриховать произвольную замкнутую область.... Может есть что-то встроенное, типа paint ?

Всего записей: 70 | Зарегистр. 28-02-2003 | Отправлено: 18:01 09-11-2003
chemy

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
что ни у кого задачи такой не было?

Всего записей: 70 | Зарегистр. 28-02-2003 | Отправлено: 16:31 25-11-2003
Vanes



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Где можно найти описание всех операторов на русском язуке?

Всего записей: 471 | Зарегистр. 02-01-2005 | Отправлено: 08:22 21-04-2005
ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Vanes
Есть qbasic русский вот в нем и хелп на русском. Поищи в инете.

----------
И создал Бог женщину... Существо получилось злобное, но забавное...

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 09:45 21-04-2005
Yevgeniy



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

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

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

----------
Omnia Mea Mecum Porto
Сервера раскрытия информации
Ru-Board BitTorrent Tracker

Всего записей: 4844 | Зарегистр. 15-07-2003 | Отправлено: 20:00 13-05-2005
Thinkerrus



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

Всего записей: 188 | Зарегистр. 17-04-2005 | Отправлено: 16:17 22-05-2005
Yevgeniy



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

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

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


----------
Omnia Mea Mecum Porto
Сервера раскрытия информации
Ru-Board BitTorrent Tracker

Всего записей: 4844 | Зарегистр. 15-07-2003 | Отправлено: 17:16 24-05-2005
Thinkerrus



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Yevgeniy, а не много ли кроликов получается? 0_о

Всего записей: 188 | Зарегистр. 17-04-2005 | Отправлено: 21:00 24-05-2005
Yevgeniy



Database Master
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Thinkerrus
 
Согласно условию задачи каждый месяц количество кроликов удваивается:

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

Следовательно, составляется таблица, в которой значение количества кроликов за каждый прошедший месяц умножается на 2 (начальное количество кроликов по условию задачи также 2):
 
Месяц Количество кроликов    
Январь 4    
Февраль 8    
Март 16    
Апрель 32    
Май 64    
Июнь 128    
Июль 256    
Август 512    
Сентябрь 1024    
Октябрь 2048    
Ноябрь 4096    
Декабрь 8192

 
Enjoy!

----------
Omnia Mea Mecum Porto
Сервера раскрытия информации
Ru-Board BitTorrent Tracker

Всего записей: 4844 | Зарегистр. 15-07-2003 | Отправлено: 22:18 24-05-2005
Looking



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Если кому надо разные BASIC и др.
http://zerodivide.h15.ru/qbsoft.html

Всего записей: 1814 | Зарегистр. 02-06-2004 | Отправлено: 23:13 24-05-2005
Thinkerrus



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

Всего записей: 188 | Зарегистр. 17-04-2005 | Отправлено: 01:08 25-05-2005
rzahar

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет Всем!
лЮЮЮЮДИ помогите подмазаться к девушке (надо показаться УУУмным до чертиков)
Вообщем помогите не упасть лицом в г...о
 
Задача: заставит комп считать 3 интергальных примера
 
1   Интеграл от 0 до pi/4    под интегралом  sinx dx ( Че-то сказано что решить надо по формуле треугольника)
                                                                      -x dx  
2   Интеграл от 0 до 1     под интегралом        е           С точностью до  0,001
 
3 тама вооще ужас....
 
 
 
Пооомогите ПОЖАЛУЙСТА   уж очень девушка красивая!  

Всего записей: 1 | Зарегистр. 28-10-2006 | Отправлено: 13:06 28-10-2006
vcmc

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

Всего записей: 3 | Зарегистр. 22-12-2007 | Отправлено: 19:23 23-12-2007
Hanniball



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
надо же, тема ожила. уже и не думал, что дождусь))
 
vcmc
 
ну выкладывай свой код, будем смотреть.
 
идея такая:
пусть пушка у тебя в начале координат (0,0)
Fi - угол наклона
траектория снаряда, я так понимаю - прямая. в общем виде: y=ax+b
a, если мне не изменяет память равна тангенсу Fi
Будет выглядеть примерно так:
 

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

 
за синтаксис не бейте, на басике последний раз писАл в 7 классе на информатике
 

Всего записей: 108 | Зарегистр. 15-05-2007 | Отправлено: 16:57 24-12-2007
DeadVillage



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
зачем так много 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 )

Всего записей: 652 | Зарегистр. 05-12-2003 | Отправлено: 21:55 24-12-2007
Hanniball



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
DeadVillage
ты сейчас кому отвечаешь?
дату поста видел? 22:15 02-10-2002

Всего записей: 108 | Зарегистр. 15-05-2007 | Отправлено: 17:11 25-12-2007
rockman90

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

Всего записей: 2 | Зарегистр. 27-12-2007 | Отправлено: 18:14 28-12-2007
MsVlarbuzZ

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
плииз памагите!!!!!!!!!!
 
 
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

Всего записей: 2 | Зарегистр. 09-01-2008 | Отправлено: 01:56 09-01-2008
Открыть новую тему     Написать ответ в эту тему

Страницы: 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