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

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

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

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

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

FOBOS1992



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

Всего записей: 212 | Зарегистр. 14-11-2008 | Отправлено: 22:59 14-01-2011
natalsid

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

Всего записей: 1 | Зарегистр. 18-03-2011 | Отправлено: 21:42 18-03-2011
FOBOS1992



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
natalsid
5 REM problem #1
10 A=10: B=20: C=30
20 IF A<0 AND B<0 AND C<0 THEN PRINT B; "^3=";B*B*B ELSE PRINT A;"*";B;"=";A*B
 
 
Добавлено:
5 REM problem #2
9 DATA 55, -33, -41, -5, 0, 6, 100, 54, -31, 29
10 N=10: DIM A(N)
20 FOR I=1 TO N
30 READ A(I)
40 NEXT I
50 PN=1: CN=1
60 FOR I=1 TO N
70 IF A(I)<0 THEN PN=CN: CN=I
80 NEXT I
90 PRINT "A(";PN;")=";A(PN)
 

Всего записей: 212 | Зарегистр. 14-11-2008 | Отправлено: 02:03 20-03-2011 | Исправлено: FOBOS1992, 02:13 20-03-2011
amfirifma

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

Всего записей: 9 | Зарегистр. 27-11-2007 | Отправлено: 17:29 02-04-2011
smirnvlad

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
пример есть в сообщении на предыдущей странице http://forum.ru-board.com/topic.cgi?forum=33&topic=0442&start=100#14

Всего записей: 417 | Зарегистр. 31-03-2009 | Отправлено: 21:06 03-04-2011
JenekSog

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1) Составьте программу, проверяющую, можно ли, меняя местами элементы одномерного массива А(Т), получить одномерный массив В(Т).
2) Составьте программу вычисления суммы тех элементов одномерного массива А(N), что расположены перед последним нулевым элементом данного массива.
3) Составьте программу, меняющую каждый из элементов T[i] массива T(N) минимальным среди первых i элементов данного массива.
Помогите!! А то я не соображаю, а сделать надо.

Всего записей: 1 | Зарегистр. 17-04-2011 | Отправлено: 21:08 17-04-2011
smirnvlad

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

Цитата:
3) Составьте программу, меняющую каждый из элементов T[i] массива T(N) минимальным среди первых i элементов данного массива.

Подробнее...

Всего записей: 417 | Зарегистр. 31-03-2009 | Отправлено: 06:56 18-04-2011
ORKESTROID

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Организуйте  массив. Выведите на дисплей суммы: (a1 + a n), (a2 + a n – 1), (a3 + a n – 2) и т.д.  
 Как это сделать?

Всего записей: 2 | Зарегистр. 06-06-2011 | Отправлено: 17:57 06-06-2011
smirnvlad

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

Всего записей: 417 | Зарегистр. 31-03-2009 | Отправлено: 21:10 06-06-2011
ORKESTROID

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо за первое, помогите еще с двумя, пожалуйста.
1. Даны четыре числа. Если сумма первых двух больше суммы последних двух, вычислить и напечатать тангенс третьего числа, в противном случае – синус первого.
2. Для х=15, 30, 60, 120, … (всего 25 значений х) вычислить и напечатать y=x+SQR(x-15) (корень подразумевается под SQR)

Всего записей: 2 | Зарегистр. 06-06-2011 | Отправлено: 22:53 06-06-2011
smirnvlad

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

Цитата:
1. Даны четыре числа. Если сумма первых двух больше суммы последних двух, вычислить и напечатать тангенс третьего числа, в противном случае – синус первого.  

Подробнее...
 

Цитата:
2. Для х=15, 30, 60, 120, … (всего 25 значений х) вычислить и напечатать y=x+SQR(x-15) (корень подразумевается под SQR)

Подробнее...

Всего записей: 417 | Зарегистр. 31-03-2009 | Отправлено: 11:15 08-06-2011
484

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1.ИЗ ЭЛЕМЕНТА МАССИВА А СФОРМУЛИРОВАТЬ ЭЛЕМЕНТЫ МАССИВА В ПО ПРАВИЛУ :B[i] =A[1] + A[2]+...+A[i].
2.Дано натуральное число n и вещественная матрица n*10. найти среднее арифметическое каждого из столбцов,имеющих четные номера
ПОМОГИТЕ

Всего записей: 1 | Зарегистр. 21-06-2011 | Отправлено: 07:29 21-06-2011
lane199324

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста экзамен через неделю,ни как не справиться,очень жду ответов
 
№1 Заданы М строк символов,которые вводятся с клавиатуры.Кждая строка предстовляет собой слово.Найти все слова,которые начинаются и заканчиваются одинаковыми буквами.  
.
№2 Выполнить обработку элементов прямоугольной матрицв А,имеющей N строк и М столбцов.Номировать элементы каждой строки по отношению к наибольшему элементу этой строки
 
№3 Даны число Р и число Н .Суммировать вводимы числа большие Р, и отдельно суммировать числа меньше Н.Определить количество тех и других слагаемых.При вводе числа равного Р или Н,закончить работу.

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

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста составить блок-схему  и текст программы в QBasic
 
1 задание.  
Вычислить значение: при х = 102, с = 5:  y=3/5 sin 5/6x + 3 sin x/6 + C  
2 задание.  
Определить величину  функции Y (a, x) при известных значениях аргумента х и коэффициентов  a, b. Варианты задания приведены в таблице.                                                                                                      
y1=e в степени 2е + корень из (а в 4 степени + х в квадрате)               а = 0,256      х = lg корень из 2  
у2= корень из (а(х в 4 степени)+4(х в квадрате)/(tg(а-х)  
   
3 задание  
Дано число. Если оно четное, кратное 9 и не кратное 8, то увеличить его в 23 раза.  
4 задание  
Заданы координаты двух точек. Определите, лежат ли они на одной окружности с центром в начале координат. (Данные для ввода: произвольные).  
5 задание  
1. Найти значение:   знак суммы (наверху 10, внизу i=1) (2+1/i)  
2. Вычислить:    
Y=n!-m!  
3.    Даны действительные числа a, b (a<b), натуральное число n, функция y=f(x), определенная на отрезке [a;b]. Для значений аргумента  xi = a+ih  (i=0,1,2,…n), h=(b-a)/n вычислить yi=f(xi) (i=0,1,2,…n).  Вывести xi и yi (i=0,1,2,…n) в виде таблицы из двух колонок. В i –тую строку таблицы заносятся соот-ветствующие значения xi и yi. Рассмотреть следующую функцию:  
у =  корень из с sin x / (x+cos в квадрате х);  с = 8,45;   5 градусов меньше или равно х меньше или равно 65 градусов  
 

Всего записей: 3 | Зарегистр. 29-12-2011 | Отправлено: 06:34 30-12-2011 | Исправлено: Iriska1303, 06:36 30-12-2011
ILYA21

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста составить программу для вычисления значения функций,результат выдать на печать:  
N=5x-8ln(x)-8 для x=2:5(разделить) шаг 0,1
Среда программирования Qbasic
И составить блок схему)

Всего записей: 5 | Зарегистр. 02-01-2012 | Отправлено: 22:07 04-01-2012 | Исправлено: ILYA21, 22:08 04-01-2012
Scorogovorka

BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите спрограмировать ряд: sin(x)+sin^2(x)+sin^3(x)+...+sin^n(x).
чтобы при вводе значения выводился график. Помогите пожалуйста.
 
Добавлено:
Visual basic 6.0

Всего записей: 12 | Зарегистр. 24-07-2011 | Отправлено: 14:34 28-02-2012
Scorogovorka

BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Private Sub Command1_Click()
Dim x, y, n, z As Integer
x = Text1.Text
 For n = 1 To z
 Next
 For y = Sin(x) + Sin(x ^ 2) To Sin(x ^ (z - 1)) + Sin(x ^ (z))
 Next
Text2.Text = y
End Sub
 
- это может быть правдой? подскажите пожалуйста.

Всего записей: 12 | Зарегистр. 24-07-2011 | Отправлено: 13:59 02-03-2012
Corsairs

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Scorogovorka
Я на vb 6.0 не программировал, но явно тут что-то не то...
 
во первых, тут степень не x, а sin(x)
и зачем второй цикл?
 
дальше:
откуда берется значение n?
 
в общем, надо делать так:
присваиваем переменным начальные значения:

Код:
y=0
z=sin(x)
t=1

в цикле от 1 до n выполняем такие действия:

Код:
t=t*z (в переменной t у нас значение sin(x) в определенной степени)
y=y+t (а в переменной y - сумма ряда)

 
По окончании цикла в переменной y - сумма ряда...
 
Если надо рисовать график - то на каком промежутке и с каким шагом?

Всего записей: 569 | Зарегистр. 30-06-2006 | Отправлено: 18:39 02-03-2012
Scorogovorka

BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Corsairs
спасибо большое! всё сканало!

Всего записей: 12 | Зарегистр. 24-07-2011 | Отправлено: 03:55 03-03-2012
Dimarik71

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите решить задачи.
 
1.  Заполнить два массива A и B. Элементы массива A - числа 0.5, 1, 1.5, ..., 5. Элементы массива B квадрат соответствующих элементов массива A. На экран  выводится результат возведения в квадрат.
 
2.Создаётся двумерный массив размером 4 строки на 6 столбцов. Первые три строки массива заполняются целыми случайными числами в диапазоне от 0 до 50, а каждый элемент последней строки должен быть равен минимальному элементу предыдущих строк в соответсвующем столбце.

Всего записей: 1 | Зарегистр. 03-03-2012 | Отправлено: 21:44 03-03-2012
Открыть новую тему     Написать ответ в эту тему

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