» qbasic

матрицу вывести

Помогите пожалуйста решить задачу

y=sin x+2-e-x ; x[0;2п] ; x=п/6

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

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

vasya113

Цитата:

e

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

Цитата:

x[0;2п] ; x=п/6

Переменная "п" задаётся?

Добавлено:

Цитата:

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

Синус...

Цитата:

y=sin x+2-e-x

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

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

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

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

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

Организуйте массив. Выведите на дисплей суммы: (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


Спасибо!

Помогите плиз.... задача: организовать массив и найти значение и индекс предпоследнего положительного элемента... очень нужно...

OSA1
Где-то так:

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

помогите решить Задачки:
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) Условие:
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


Заранее благодарен.

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

В код не всматривался, неужели сложно прогнать на интерпретаторе/компиляторе?

Здравствуйте! Помогите, пожалуйста!!! Срочно нужно.

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

Помогите с задачами!!!!ПЛЗ

\1.В пременную P вводят 10 чисел. В переменной P получить наименьшее число.

\2. Для записи цифр используют символы I,V,X,L,D,M обозначающие соответственно числа 1,5,10,50,100,500,1000. Составить программу которая запись любого числа n<3999
арабскими цифрами переводила бы в римские.

\3. Найти сумму K первых членов ряда

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

Добавлено:

---

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

Kolesov QuickBASIC TOOLS v.3.11.

Привет всем. Ищу книги по кубасику. Если у кого есть киньте на мыло gve1981@gmail.com пжлста!

Добавлено:
Привет всем! Если у кого есть книги по КУБАСИКУ скиньте на мыло gve1981СОБАКАgmail.com пжлста!

SystemBLOCK

Если очень коротко, online и для начинающих: Учебник по QBasic. Язык Quick Basic

Программирование на языке Q BASIC (Microsoft Powerpoint) - реферат ученицы 11 класса (не уступает предыдущему источнику)

Более серьезно (для студентов) и тоже online (но дают скачать в PDF): Элементы программирования на языке QuickBASIC

Действительно книжки:

И. Сафронов. Бейсик в задачах и примерах. (2000)

Эрни Каспер. Освоим QBasic играючи! Самоучитель по программированию для школьников и взрослых. Учебный курс на примерах игр и развлечений (1999) - на скачивание почему-то файл в формате EXE

Насчет,"Эрни Каспер. Освоим QBasic играючи! Самоучитель по программированию для школьников и взрослых. Учебный курс на примерах игр и развлечений (1999)"

Скачал Book_5154.exe, проверил KISом 2009 - он сначала ничего не нашел. Запустил эксешник, он начал лезть в реестр , точно уже не помню куда, но что то связанное с Thunderbird, создание
C:\Program Files (x86)\FieryAds\FieryAds.dll ,
C:\Program Files (x86)\FieryAds\CommLayer.dll,
C:\Program Files (x86)\FieryAds\FieryAdsUninstall.exe,
о первых двух каспер засигналил о not-a-virus:AdWare.Win32.FearAds.ae и not-a-virus:AdWare.Win32.FearAds.am, соответсвенно. Если запретить хоть один запрос, то появляется окошко с объяснением, что возможно ваша антивирусная программа распознает программу как вирус , но это не так - реклама лишь является "оплатой" за бесплатную литературу.
Далее появляется окошко Book Client c кнопкой "Скачать выбранную книгу" и уже установленной внизу галочкой "Согласен с условием соглашения", после нажатия на кнопку начинает заполняться строка прогресса и появляется надпись "Идет скачивание книги... Соединение с сервером....", строка доходит до конца и надпись меняется на
Цитата:

Не удалось скачать книгу
В данный момент Сервер BooksClient перегружен. Попробуйте позже.

и так уже почти сутки.
А при попытке запуске файла Uninstall.exe появляется окошко "Деинсталяция FieryAds" в котором написано:

Цитата:

Нельзя удалить FieryAds, т.к. у вас стоит следующее программное обеспечение в "Спонсорском режиме":
платный контент, ограничение до 19.04.2009

необходимо либо оплатить использование данного ПО, либо удалить его с компьютера, тогда удаление модуля FieryAds станет возможным

Пардон, не подозревал о такой засаде, поскольку сам эту книгу скачивать не пытался.

Ребят,помогите пожалуйста.
У меня и у многих знакомых стоит Windows Vista.
На их компах можно работать с TurboBasic в полноэкранном режие,а у меня когда я перехожу на RUN или в полноэкранный режим пишет что моя система не поддерживает.
В чем дело?!

poskrebok, http://forum.ru-board.com/topic.cgi?forum=62&bm=1&topic=15644#1

Помогите. народ уже 3й день думаю над задачей по Qb.

Есть вещество (А), размером 200л.

Есть 4 емкости по 3, 2 1 и 0.5 л.

Ввести все возможные варианты разливки, чтобы в веществе (А) не оставалось ничего.

Решите, пожалуйста, задачку на QBasic

есть файл TABLE.TXT

10 1.247 2.51
20 1.205 2.59
30 1.165 2.67
40 1.128 2.76

Три столбика: первый t, второй p, третий La
На самом деле она в 100 раз больше, но мне надо только понять как, а дальше я сам )

Надо в программке найти значения p и La, при заданном t; провести интерполяцию, т.к. t может быть 33.8(не целое).

Alexeyee
Тут, на самом деле, все не так однозначно. Третий столбик почти линейно зависит от первого, точнее, первые три точки зависят строго линейно, 4-я чуток отклоняется. Стало быть, мы имеем право интерполировать это дело прямой линией, относя это отклонение в погрешности определения или расчета данных. И тут у нас как бы 2 варианта: самый простой - "поправить" 4-ю точку до строгой линейной зависимости (до 2.75), т.е. провести прямую через первые три точки. Второй - проводить прямую методом наименьших квадратов (т.е., грубо говоря, через вторую и четвертую точки). Ну и потом получаем уравнение прямой для одного из вариантов и интерполируем.

Второй столбик - это сложнее, т.к. там зависимость - полином по крайней мере второго порядка.

Да, ну и в обоих случаях можно это дело сделать через некие простейшие формулы для интерполяции, пригодные для равномерной сетки. В обоих этих случаях выразить зависимость одним общим уравнением нельзя. Но оно ведь, вроде, и не требуется?

RumaRuka, вот:

Код:
V = 20 ' объем вещества А в литрах
Capacity1 = 0.5: Capacity2 = 1: Capacity3 = 2: Capacity4 = 3 'объемы емкостей

AmountCapacity1 = V / Capacity1 'разлив в самые маленькие емкости
AmountCapacity2 = 0: AmountCapacity3 = 0: AmountCapacity4 = 0 ' остальные остаются пустыми

Factor2 = Capacity2 / Capacity1: Factor3 = Capacity3 / Capacity1: Factor4 = Capacity4 / Capacity1 ' условно примем объем емкости1 за 1

kernel: ' вывод самого процесса разлива
Print AmountCapacity1; "по"; Capacity1; " литра(у) +"; AmountCapacity2; "по"; Capacity2; " литра(у) +"; AmountCapacity3; "по"; Capacity3; " литра(у) +"; AmountCapacity4; "по"; Capacity4; " литра(у)"

If AmountCapacity1 - Factor4 < 0 Then
AmountCapacity1 = AmountCapacity1 + AmountCapacity4 * Factor4
AmountCapacity4 = 0
Else
AmountCapacity1 = AmountCapacity1 - Factor4
AmountCapacity4 = AmountCapacity4 + 1
GoTo kernel
End If

If AmountCapacity1 - Factor3 < 0 Then
AmountCapacity1 = AmountCapacity1 + AmountCapacity3 * Factor3
AmountCapacity4 = 0
Else
AmountCapacity1 = AmountCapacity1 - Factor3
AmountCapacity3 = AmountCapacity3 + 1
GoTo kernel
End If

If AmountCapacity1 - Factor2 < 0 Then
AmountCapacity1 = AmountCapacity1 + AmountCapacity2 * Factor2
AmountCapacity4 = 0
Else
AmountCapacity1 = AmountCapacity1 - Factor2
AmountCapacity2 = AmountCapacity1 + 1
End If

с празднико всех
Помогите пожалуйста написать программу на qbasic.
нужно вычислить интеграл от 0,1 до 1 под интегральная x*ln(1/x) методом Симпсона,
я что то ничего не понимаю.
заранее спасибо за ответ.