» qbasic

SystemBLOCK

Например:



Название: Программируем на языке QBasic 4.5
Автор: Зельднер Г.
Издательство: М.: ABF
Год: 1996
Язык: Русский
Страниц: 432
Формат: DJVU
Размер: 4,11 MB

http://itbookz.ru/nodata/nodatalang/3260-.html

---

Много ещё - http://www.google.com.ua/search?hl=ru&q=книги+qbasic

---

http://qbasic.tagan-online.ru/

sharlatanat, сам когда то качал эту книгу - очень понравилась, всем рекомендую.

помогите кому не сложно!!! нужно сделать генератор случайных чисел имитирующий подбрасывание монеты и подсчитываюший соотношение "орел/решка" плиззз помогите...

naborik

Код:
5 REM Coin
10 CLS:E=0
20 INPUT "Сколько раз подкидывать"; N
30 FOR I=1 TO N
40 X=INT (1 - RND)
50 IF CINT(X) = 0 THEN E=E+1
60 NEXT I
70 PRINT "Орел/решка=";E;"/";N-E
80 END

FOBOS1992 спсибо огромное!!!! да ты прав!!!

ПОМОГИТЕ РЕШИТЬ ЭТО ПОЖАЛУЙСТА !

2.    Обработка числовой последовательности с заданным количеством элементов.
В числовую переменную последовательно вводятся N произвольных натуральных чисел, Определить порядковые номера и значения первого из максимальных и последнего из минимальных чисел последовательности, а также произведение этих двух чисел.

3.    Обработка числовой последовательности с неопределенным количеством элементов.
Определить количество чередований простых и составных членов
последовательности с неопределенным числом элементов.

GAYUSHA
Цитата:

2. Обработка числовой последовательности с заданным количеством элементов.
В числовую переменную последовательно вводятся N произвольных натуральных чисел, Определить порядковые номера и значения первого из максимальных и последнего из минимальных чисел последовательности, а также произведение этих двух чисел.

5 REM Min*Max
10 CLS:F=0:Nmin=1:Nmax=1
20 INPUT "Кол-во чисел"; N
30 FOR I=1 TO N
40 INPUT "Число №"+STR$(I),X
50 IF F=0 THEN F=1: MIN=X: MAX=X
60 IF X>MAX THEN Nmax=I
70 IF X<=MIN THEN Nmin=I
80 NEXT I
90 PRINT "MIN=";MIN,"MAX=";MAX,"Nmin=";Nmin,"Nmax=";Nmax,"MIN*MAX=";MIN*MAX
100 END

PS я не тестил( неначем и времени нет), но должно работать

Спасибо огромное ))
Я ВООБЩЕ В ЭТОЙ ПРОГРАММЕ НЕ ОСОБО РАЗБИРАЮСЬ, ЧТО ЗА ЧИСЛА ВНАЧАЛЕ каждой строки НЕ МОГУ ПОНЯТЬ?(((( вот что у меня получилось ноя неу верена что правильно это

Dim n%, a%, max%, n_max%, min%, n_min%, i%
n = InputBox("введите кол-во эелементов")
Text1.Text = Str(n)
a = InputBox("введите первый элемент")
List1.Clear
min = a: n_min = 1
max = a: n_max = 1
List1.AddItem Str(a)
Randomize
For i = 2 To n
a = Int(Rnd * 10) - 5
List1.AddItem Str(a)
Next i

GAYUSHA, судя по тексту программы - это не QBASIC, а Visual Basic. По нему тут тоже где-то есть соотв. тема с этим вопросом надо обращаться туда.

Найти минимальное число из произвольного количества введенных чисел. Конец ввода определяется точкой.
Я как-то сделал, что прога сравнивала числа по первой цифре из-за несовпадения типов переменных, ясно дело меня это не устроило и я сделал прерывание цикла while после ввода числа 999, затем я узнал, что есть функция val, способная перевести число в нужный момент в нужный тип, но (будь я проклят!) забыл, как написал прогу поначалу! Ни вспомнить, ни сообразить не могу( Напишите пожалуйста!!!)))

Помогите решить задачи с массивами (одномерными/двумерными), завтра экзамен, а я так и не разобрался. =(
7. Заполнить массив В(7) случайными числами из отрезка [-7,7] и определить сумму элементов с четными индексами.
8. Заполнить массив К(10) случайными числами из отрезка [-5, 5] и определить произведение нечетных элементов.
9. Вычислить среднее арифметическое всех элементов массива А(10), заполненного случайным образом из отрезка [-7,7].
10. Вывести на экран только отрицательные элементы массива А(10) заполненного случайным образом из отрезка [-7,7].
11. Вывести на экран только положительные элементы массива А(10) заполненного случайным образом из отрезка [-7,7].
12. Определить количество 7 в массиве А(10) заполненного случайным образом из отрезка [-7,7].
13. Дан двумерный массив 5x5. Определите сумму элементов каждой строки.
14. В массиве R (5x5) вычислите сумму элементов главной диагонали.
15. Найти сумму всех элементов массива R (5x5).
16. Найти количество положительных элементов массива R (5x5)
17. Найти количество отрицательных элементов массива R (5x5)
Огромнейшее человеческое спасибо.

Помогите плиз я видел тут похожее но только мне надо с генератором случайных чисел
RANDOMIZE TIME
смоделировать побрасывание монетки и вычисляюшее соотношение орел/решко плиз помогите сроч нао!

нужно написать программы для решения задач:

1. вычислить значение функции y=ae^(exi+cxi^2), если x задано состоящим из 4 элементов.

2. составить программу для вычисления значения функци z= сумма от i=1 до12 (Xi^2/e), где x элемент одномерного массива (X1......X12)

maksimko555
[more=2.]
Код: [no]
DIM x(1 TO 12)
DIM z AS SINGLE

REM Заполняем массив
FOR i = 1 TO 12
x(i) = i
NEXT

z = 0
FOR i = 1 TO 12
z = z + (x(i) ^ 2 / EXP(1))
NEXT

PRINT (z)
[/no]

Помогите решить 5 задач по бейсику. нужно написать формулы по бейсику!

1. известна цена со скидкой, известна цена без скидки. найти процент скидки.
2. товар подешевел в n раз, на сколько процентов уменьшилась цена?
3. известна цена товара с учетов НДС, известен процент НДС. Определить сумму НДС.
4. Можно ли в квадратном зале площадью s сделать в центре круглую сцену радиусом r, так чтобы от сцены до стены был проход не менее k.
5. задано определенное число деталей. известен процент брака. какое кол-во нужно взять материала, чтобы изготовить заданное число деталей.

yuliankar
[more=1.]
Код: [no]
DIM Price, DiscountPrice AS SINGLE
DIM DisPercent AS SINGLE

INPUT "Input price ", Price
INPUT "Input price with discount ", DiscountPrice

DisPercent = (Price - DiscountPrice) / Price * 100

PRINT "Discount Percent = ", DisPercent
[/no]

yuliankar
1. процент = ( ЦБезСкид - ЦСоСкид ) / ( ЦБезСкид / 100 )

yuliankar
[more=2.]
Код: [no]
DIM times AS SINGLE
DIM Percent AS SINGLE

INPUT "Input how much times good is cheaper ", times

Percent = 100 - (100 / times)

PRINT Percent, "% cheaper"
[/no]

что????

yuliankar
[more=3.]
Код: [no]
DIM TaxPercent, TaxPrice AS SINGLE
DIM TaxValue AS SINGLE

INPUT "Input price with tax ", TaxPrice
INPUT "Input tax percent ", TaxPercent

TaxValue = TaxPercent * TaxPrice / (100 + TaxPercent)

PRINT "Tax value = ", TaxValue
[/no]

Известна потребность,известен % брака.Определить сколько деталей надо купить.(кол-во к закупке)

Известна цена со скидкой и цена без скидки.Определить % скидки.

Товар подешевел в n раз.На сколько % уменьшилась цена?

Известна цена товара с учётом НДС.Известен % НДС.Определить сумму НДС в рублях.

Можно ли в квадратном зале,площадью S,поместить в центре круглую сцену площадью R так,чтобы остался проход не менее

Добавлено:
?????

yuliankar
нажимай на синии цифры с точками в моих сообщениях или наводи мышь на вопросы после них и увидишь текст программ

Доброго времени суток!
Мучаюсь с программой (извиняюсь за чайницкое написание, но во все не вникнешь)
10 cls
20 for Z1 = 24 to 48 step 1
30 for Z2 = 30 to 64 step 1
40 REZ = Z1/Z2*40/60*60/64*4*4/5
50 Print Z1, Z2, REZ to file rez.txt
60 Next Z2
70 Next Z1
80 end
Основная проблема - в 50-й строке. Сейчас она чисто условная. Хочу результаты записать в текстовый файл, чтобы оттуда поиском выбрать нужный. Чтобы в каждой строке так и было: Z1, Z2, REZ

Ghost Inets
[more]
Код: [no]
ff = FREEFILE
OPEN "rez.txt" FOR OUTPUT AS #ff

10 CLS
20 FOR Z1 = 24 TO 48 STEP 1
30 FOR Z2 = 30 TO 64 STEP 1
40 rez = Z1 / Z2 * 40 / 60 * 60 / 64 * 4 * 4 / 5
' 50 Print Z1, Z2, REZ to file rez.txt

PRINT #ff, LTRIM$(RTRIM$(STR$(Z1!))); ", "; LTRIM$(RTRIM$(STR$(Z2))); ", "; LTRIM$(RTRIM$(STR$(rez)))

60 NEXT Z2
70 NEXT Z1
80 END

CLOSE #ff
[/no]

Помогите пожалуйста qbasic
1).Даны a,b,j,x.
определить Z=корень(j-a)^2/(a-b)*j;
K=a^2-b^2/x*z*(a+b).

2).Даны n,d
определить : x=(n+d)^2/0,75 a=x^2-nd
знак системы, Если 1<=x<5
a=(n+d)*x b=x^2-n/d
знак системы, если x<I или x>=5;
b=n^2*x-d.

3).Даны 4 фамилии. Определить есть ли среди них фамилия ИВАНОВ. Написать соответствующее сообщение.

4). y=(x^4+x^7/2!+x^10/3!+x^13/4!)*5*a

5).Дан массив С1, C2,...,C24
в массиве есть 2 элемента равные 0. Заменить все элементы ,стоящие между нмии на единицы.

bloodlord86
[more]

Цитата:

1).Даны a,b,j,x.
определить Z=корень(j-a)^2/(a-b)*j;
K=a^2-b^2/x*z*(a+b).

Код: [no]
DIM a, b, j, x, Z, K AS SINGLE

INPUT "Input a ", a
INPUT "Input b ", b
INPUT "Input j ", j
INPUT "Input x ", x

Z = SQR(j - a) ^ 2 / (a - b) * j
K = a ^ 2 - b ^ 2 / x * Z * (a + b)

PRINT "Z = ", Z
PRINT "K = ", K
[/no]

Доброго времени суток.

Я вообще профан в программировании. а тут срочно перевелась на др. спец - и надо сделать задание по Qbasic ПОМОГИТЕ ПЛИЗЗЗЗ

Рассчитать n значений функций с равномерным шагом изменения аргумента x, значения аргумента и функции представить в виде таблице Y=3*cos(5x)+sin(x)+1
x пренадлежит [-Пи, Пи]. Плизззз - объясните хоть что это за звери....

Помогите пожалуйста написать программу:
дана квадратная матрица третьего порядка.увеличить положительные элементы матрицы в 2ой и 3ей строках в 2 раза.(использовать PRINT USING)

Надо составить программу табулирования на бейсике. Помогите пожалуйста y=2*sin(x)+(cos(x))^2 a=ПИ, в=2ПИ, n=12

ПОМОГИИИИИИТЕЕЕЕ!!!

Что такое за зверь - "табулирование"? Нихт ферштейн! Типа, Вы приводите некую формулу, в ней переменные (параметры?) только х и у. С какого перепугу там взялись переменные а, в и n, котрых в упор не видно в исходном уравнении? Огласите весь список, пожалуйста! ("Операция Ы"), или еще какие разъяснения выдайте!