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

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

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

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

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

MsVlarbuzZ

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
матрицу вывести

Всего записей: 2 | Зарегистр. 09-01-2008 | Отправлено: 15:04 09-01-2008
vasya113

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста решить задачу
 
y=sin x+2-e-x  ;   x[0;2п]  ;   x=п/6

Всего записей: 3 | Зарегистр. 12-01-2008 | Отправлено: 10:50 12-01-2008
Tantos



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vasya113, так что тебе надо сделать? Табулировать (т.е. вывести значения) на отрезке [0;2п] с шагом п/6? Или просто подсчитать значение выражения при x=п/6?

Всего записей: 1038 | Зарегистр. 31-05-2005 | Отправлено: 04:29 14-01-2008
vasya113

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
найти значение выражения

Всего записей: 3 | Зарегистр. 12-01-2008 | Отправлено: 19:27 14-01-2008
Yevgeniy



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

Цитата:
e

Имеется в виду математическая константа?

Цитата:
x[0;2п]  ;   x=п/6

Переменная "п" задаётся?
 
Добавлено:

Цитата:
найти значение выражения

Синус...

Цитата:
y=sin x+2-e-x

...всего выражения или же только значения x?

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

Всего записей: 4844 | Зарегистр. 15-07-2003 | Отправлено: 00:58 15-01-2008
Tantos



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

Код:
 
x = 3.14 / 6
print sin(x) +2-exp(-x)
 

Вроде так. Давно это было...

Всего записей: 1038 | Зарегистр. 31-05-2005 | Отправлено: 04:46 15-01-2008
Yevgeniy



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

Цитата:
найти значение выражения

Готово:

Код:
CLS
LET e = 2.718281828459045#
LET n = 3.1415926#
FOR x = 0 TO (2 * n) STEP (n / 6)
LET y = SIN(x) + 2 - e ^ (-x)
PRINT "x ="; x, "y ="; y
NEXT x
END

Подходит?

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

Всего записей: 4844 | Зарегистр. 15-07-2003 | Отправлено: 14:23 15-01-2008
Sumlerinka

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

Всего записей: 1 | Зарегистр. 16-01-2008 | Отправлено: 21:22 16-01-2008
Yevgeniy



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

Цитата:
ребята помогите...нужно написать программу в кубасике...суть такова...нужно,что б на экране появились три рыда кругоа причем каждый последующий меньшк предыдущего......помогите...


Код:
SCREEN 12
LET x = 0
LET y = 125
LET r1 = 55
LET c = 1
10
LET x = x + 150
IF x > 450 THEN y = y + 125
IF x > 450 THEN x = 150
LET r2 = r2 + 5
LET r3 = r1 - r2
LET c = c + 1
CIRCLE (x, y), r3, c
REM PRINT "x ="; x, "y ="; y, "r ="; r3, "c ="; c
IF c < 10 THEN GOTO 10: IF c > 10 THEN END


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

Всего записей: 4844 | Зарегистр. 15-07-2003 | Отправлено: 14:39 17-01-2008
borisvlk

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Организуйте  массив. Выведите на дисплей суммы: (a1 + a n), (a2 + a n – 1), (a3 + a n – 2) и т.д.
Как это сделать?
Внизу по моему я бред написал
не понимаю я массивы
помогите пожалуйста
CLS                                                                            
INPUT "Введите число элементов массива"; n                                    
DIM a(n)                                                                      
FOR i = 1 TO n                                                                
 a(i) = INT(RND * n)                                                        
s = a(i) + a(n - 1)                                                            
PRINT a(i), a(n - 1), s                                                        
REM PRINT s                                                                    
NEXT i
 
 
Спасибо!

Всего записей: 2 | Зарегистр. 18-01-2008 | Отправлено: 11:29 18-01-2008
OSA1

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите плиз.... задача: организовать массив и найти значение и индекс предпоследнего положительного элемента... очень нужно...

Всего записей: 1 | Зарегистр. 27-04-2008 | Отправлено: 23:27 27-04-2008
Tantos



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OSA1
Где-то так:

Код:
 
iPosSt = iPosNd = 1
FOR i = 1 TO n  
if a(i) > 0 then iPosNd = iPosSt : iPosSt = i
NEXT i
PRINT iPosNd
 

Доработка на твоей совести, ибо в последний раз я баловался QBasic'ом лет девять назад...

Всего записей: 1038 | Зарегистр. 31-05-2005 | Отправлено: 04:32 28-04-2008
4y64uk

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
помогите решить Задачки:
1. Рассчитать и напичатать таблицу с заголовком отражающую зависимость напряжённости электростатического поля в вакууме E, создаваемого точечным зарядом q, от велечины этого заряда и от расстояния от центра поля r:
E=q/(4*pi*Eo*r^2), где Eo=8.85*10^(-12) Ф/м; q изменяется от 1*10^9 K с шагом 0.5*10^9 K; r изменяется в диапазоне от 2 до 8 м с шагом 1 м. (решить с использованим функции пользователя DEF... FN...
 
2. Задана произвольная матрица Q размера m*n. Найти значения и порядковые номера максимальных элементов в каждой из строк матрицы. Вывести на печать исходную матрицу и полученые результаты
 
3. Рассчитать и напечатать таблицу с заголовком, отражающую зависимость плотности водорода от температуры в диапазоне от 20 до 100 градусов с шагом 2 градуса.  
р=(2/22.4)*(273/(t+273))
 
4. Здана произвольная матрица W размера (m*n). Поменять местами элементы первого и оследнего столбцов. Напечатать матрицу до и после  перестановки..
 
Заранее спасибо..

Всего записей: 1 | Зарегистр. 05-05-2008 | Отправлено: 11:34 05-05-2008 | Исправлено: 4y64uk, 11:35 05-05-2008
RIO87

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет всем. Проверьте пожалуйста правельность блок-схем и кодов следующий задач:
 
1) Условие:
S =Сумма(n=1 до 40) (n+2)nx^n
Y=x(3-x)/(1-x)3
при 0.6<=x<=3.6 с шагом 0.6
 
Решение:
Блок-схема -    
 
КОД:
color 1,15
cls
k=0
for  x=0.6 to 3.6 step 0.6
for n=1 to 40
s=s+(n+2)*n*x^n
next n
locate 6+k, 30
print "S="; S
Y=x*(3-x)/(1-x)^3
Print "Y="; Y
k=k+1
next x
END
 
2)Условие:
 Y=         П(k=1 до 10) x^2/(k+1), если х<2
              0, если  х=2
              П(к=1 до 10) x/k , если х>2
 
Х- произвольное
 
Решение:
Блок-схема -    
 
КОД:
color 1,15
cls
input "Введите x"; x
if x<2 then
for k=1 to 10
Y=Y+x^2/(k+1)
next k
Print "Y="; Y
IF x=2 then print "Y=0"
ELSE for k=1 to 10
Y=Y*x/k
next k
Print "Y="; Y
END
 
 
Заранее благодарен.

Всего записей: 1 | Зарегистр. 23-11-2008 | Отправлено: 23:22 23-11-2008 | Исправлено: RIO87, 01:44 24-11-2008
Tantos



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Сразу по первой блок-схеме - где сравнение x с 3.6? И почему так криво нарисованы сами блок-схемы? В Paint'e, что-ли, рисовал?
По второй:
1. "Ввод х" - лишнее. Достаточно просто "х" (без кавычек, естественно).
2. Блок "конец" желательно располагать не сбоку, а под блоком "Начало"
 
В код не всматривался, неужели сложно прогнать на интерпретаторе/компиляторе?

Всего записей: 1038 | Зарегистр. 31-05-2005 | Отправлено: 05:34 24-11-2008
Elashka55



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте!   Помогите, пожалуйста!!! Срочно нужно.  
 
Задание. Разработать программу для контроля количества знаков после запятой в вводимом с клавиатуры числе. Вводится количество знаков после запятой, затем вещественное число. Программа должна при вводе большего числа знаков после запятой, вывести об этом сообщение и округлить до нужной точности.
Указание: не использовать строковый тип данных и строковые функции.

Всего записей: 2 | Зарегистр. 25-11-2008 | Отправлено: 22:28 25-11-2008
azalivin

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите с задачами!!!!ПЛЗ
 
\1.В пременную P вводят 10 чисел. В переменной P получить наименьшее число.
 
\2. Для записи цифр используют символы I,V,X,L,D,M  обозначающие соответственно числа 1,5,10,50,100,500,1000. Составить программу которая запись любого числа n<3999  
арабскими цифрами переводила бы в римские.
 
\3. Найти сумму K первых членов ряда

Всего записей: 1 | Зарегистр. 30-11-2008 | Отправлено: 13:27 30-11-2008
FOBOS1992



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
У меня целая куча вопросов, буду очень благодарен, если кто-нибудь ответит:
 1. Где взять установочный файл (или образы дискет, или вообще всеравно что   лишь бы были все файлы оригинальные ,типа, mouse.com, learn.com ...) QuickBASIC 4.5
  2. Поставил висту а Бейсик в ней не переходит в полноэкранный режим и, естественно, не активируются графические режимы. Как это исправить
 3. На XP я ставил ассоциацию фалов *,bas с программой использую параметр командной строки QuickBASICа /h через"Мой компьютер - Вид - Свойства папки - Типы файлов", а есть ли аналогия на Vistа или только через реестр?
 
Добавлено:


чуть не забыл
 4.Установил драйвер Keyrus.com, на XP работал нормально, а на Vista поле нажатия любой клавиши Бейсик "зависает"

Всего записей: 212 | Зарегистр. 14-11-2008 | Отправлено: 00:36 03-12-2008
sharlatanat



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Kolesov QuickBASIC TOOLS v.3.11.

----------
©

Всего записей: 1249 | Зарегистр. 24-02-2006 | Отправлено: 18:35 08-03-2009
SystemBLOCK



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет всем. Ищу книги по кубасику. Если у кого есть киньте на мыло gve1981@gmail.com пжлста!
 
Добавлено:
Привет всем! Если у кого есть книги по КУБАСИКУ скиньте на мыло gve1981СОБАКАgmail.com пжлста!

Всего записей: 58 | Зарегистр. 06-08-2008 | Отправлено: 23:12 11-03-2009
Открыть новую тему     Написать ответ в эту тему

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