Табулирование - это , когда задана функция, и нужно вывести несколько ее значений с определенным шагом аргумента.
» qbasic
Помогите люди добрые, я даже не представляю что с этим делать, в понедельник экзамен.
Задача № 1
дано три числа. Если все три числа отрицательные, то вычислить и напечатать куб второго числа, в противном случае произведение двух первых чисел.
Задача № 2
организуйте массив.Выведите на дисплей значения и индекс предпоследнего положительного элемента.
Задача № 1
дано три числа. Если все три числа отрицательные, то вычислить и напечатать куб второго числа, в противном случае произведение двух первых чисел.
Задача № 2
организуйте массив.Выведите на дисплей значения и индекс предпоследнего положительного элемента.
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)
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)
Подскажите пожалуйста, как полученные программой результаты, программно сохранять в текстовый файл? Заранее спасибо.
пример есть в сообщении на предыдущей странице http://forum.ru-board.com/topic.cgi?forum=33&topic=0442&start=100#14
1) Составьте программу, проверяющую, можно ли, меняя местами элементы одномерного массива А(Т), получить одномерный массив В(Т).
2) Составьте программу вычисления суммы тех элементов одномерного массива А(N), что расположены перед последним нулевым элементом данного массива.
3) Составьте программу, меняющую каждый из элементов T[i] массива T(N) минимальным среди первых i элементов данного массива.
Помогите!! А то я не соображаю, а сделать надо.
2) Составьте программу вычисления суммы тех элементов одномерного массива А(N), что расположены перед последним нулевым элементом данного массива.
3) Составьте программу, меняющую каждый из элементов T[i] массива T(N) минимальным среди первых i элементов данного массива.
Помогите!! А то я не соображаю, а сделать надо.
JenekSog
Цитата:
[more]
Код: [no]
DECLARE FUNCTION Min (c, arr%())
CONST N = 10
DIM T%(N)
PRINT
PRINT
PRINT "Before"
FOR i = 0 TO N
T%(i) = 1 + 100 * RND
PRINT T%(i);
NEXT
PRINT
PRINT "After"
FOR i = 0 TO N
T%(i) = Min(i, T%())
PRINT T%(i);
NEXT
FUNCTION Min (c, arr%())
M = arr%(0)
FOR i = 0 TO c
IF arr%(i) < M THEN M = arr%(i)
NEXT
Min = M
END FUNCTION
[/no]
Цитата:
[no]3) Составьте программу, меняющую каждый из элементов T[i] массива T(N) минимальным среди первых i элементов данного массива.[/no]
[more]
Код: [no]
DECLARE FUNCTION Min (c, arr%())
CONST N = 10
DIM T%(N)
PRINT "Before"
FOR i = 0 TO N
T%(i) = 1 + 100 * RND
PRINT T%(i);
NEXT
PRINT "After"
FOR i = 0 TO N
T%(i) = Min(i, T%())
PRINT T%(i);
NEXT
FUNCTION Min (c, arr%())
M = arr%(0)
FOR i = 0 TO c
IF arr%(i) < M THEN M = arr%(i)
NEXT
Min = M
END FUNCTION
[/no]
Организуйте массив. Выведите на дисплей суммы: (a1 + a n), (a2 + a n – 1), (a3 + a n – 2) и т.д.
Как это сделать?
Как это сделать?
ORKESTROID
[more]
Код: [no]
CONST N = 10
DIM A%(1 TO N)
FOR i = 1 TO N
A%(i) = 1 + 100 * RND
REM Vivod massiva
PRINT A%(i);
NEXT
PRINT
FOR i = 1 TO N \ 2
REM Vivod summ
PRINT A%(i) + A%(N - i + 1);
NEXT
REM Vivod srednego elementa esli massiv iz nechetnogo kol-va elementov
IF N MOD 2 = 1 THEN
PRINT A%(N \ 2 + 1);
END IF
PRINT
[/no]
[more]
Код: [no]
CONST N = 10
DIM A%(1 TO N)
FOR i = 1 TO N
A%(i) = 1 + 100 * RND
REM Vivod massiva
PRINT A%(i);
NEXT
FOR i = 1 TO N \ 2
REM Vivod summ
PRINT A%(i) + A%(N - i + 1);
NEXT
REM Vivod srednego elementa esli massiv iz nechetnogo kol-va elementov
IF N MOD 2 = 1 THEN
PRINT A%(N \ 2 + 1);
END IF
[/no]
Спасибо за первое, помогите еще с двумя, пожалуйста.
1. Даны четыре числа. Если сумма первых двух больше суммы последних двух, вычислить и напечатать тангенс третьего числа, в противном случае – синус первого.
2. Для х=15, 30, 60, 120, … (всего 25 значений х) вычислить и напечатать y=x+SQR(x-15) (корень подразумевается под SQR)
1. Даны четыре числа. Если сумма первых двух больше суммы последних двух, вычислить и напечатать тангенс третьего числа, в противном случае – синус первого.
2. Для х=15, 30, 60, 120, … (всего 25 значений х) вычислить и напечатать y=x+SQR(x-15) (корень подразумевается под SQR)
ORKESTROID
Цитата:
[more]
Код: [no]
DIM X1, X2, X3, X4 AS SINGLE
INPUT "X1 ", X1
INPUT "X2 ", X2
INPUT "X3 ", X3
INPUT "X4 ", X4
IF X1 + X2 > X3 + X4 THEN
PRINT "Tan(X3) = ", TAN(X3)
ELSE
PRINT "Sin(X1) = ", SIN(X1)
END IF
[/no]
Цитата:
1. Даны четыре числа. Если сумма первых двух больше суммы последних двух, вычислить и напечатать тангенс третьего числа, в противном случае – синус первого.
[more]
Код: [no]
DIM X1, X2, X3, X4 AS SINGLE
INPUT "X1 ", X1
INPUT "X2 ", X2
INPUT "X3 ", X3
INPUT "X4 ", X4
IF X1 + X2 > X3 + X4 THEN
PRINT "Tan(X3) = ", TAN(X3)
ELSE
PRINT "Sin(X1) = ", SIN(X1)
END IF
[/no]
1.ИЗ ЭЛЕМЕНТА МАССИВА А СФОРМУЛИРОВАТЬ ЭЛЕМЕНТЫ МАССИВА В ПО ПРАВИЛУ :B[i] =A[1] + A[2]+...+A[i].
2.Дано натуральное число n и вещественная матрица n*10. найти среднее арифметическое каждого из столбцов,имеющих четные номера
ПОМОГИТЕ
2.Дано натуральное число n и вещественная матрица n*10. найти среднее арифметическое каждого из столбцов,имеющих четные номера
ПОМОГИТЕ
Помогите пожалуйста экзамен через неделю,ни как не справиться,очень жду ответов
№1 Заданы М строк символов,которые вводятся с клавиатуры.Кждая строка предстовляет собой слово.Найти все слова,которые начинаются и заканчиваются одинаковыми буквами.
.
№2 Выполнить обработку элементов прямоугольной матрицв А,имеющей N строк и М столбцов.Номировать элементы каждой строки по отношению к наибольшему элементу этой строки
№3 Даны число Р и число Н .Суммировать вводимы числа большие Р, и отдельно суммировать числа меньше Н.Определить количество тех и других слагаемых.При вводе числа равного Р или Н,закончить работу.
№1 Заданы М строк символов,которые вводятся с клавиатуры.Кждая строка предстовляет собой слово.Найти все слова,которые начинаются и заканчиваются одинаковыми буквами.
.
№2 Выполнить обработку элементов прямоугольной матрицв А,имеющей N строк и М столбцов.Номировать элементы каждой строки по отношению к наибольшему элементу этой строки
№3 Даны число Р и число Н .Суммировать вводимы числа большие Р, и отдельно суммировать числа меньше Н.Определить количество тех и других слагаемых.При вводе числа равного Р или Н,закончить работу.
Помогите пожалуйста составить блок-схему и текст программы в 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 градусов
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 градусов
Помогите пожалуйста составить программу для вычисления значения функций,результат выдать на печать:
N=5x-8ln(x)-8 для x=2:5(разделить) шаг 0,1
Среда программирования Qbasic
И составить блок схему)
N=5x-8ln(x)-8 для x=2:5(разделить) шаг 0,1
Среда программирования Qbasic
И составить блок схему)
Помогите спрограмировать ряд: sin(x)+sin^2(x)+sin^3(x)+...+sin^n(x).
чтобы при вводе значения выводился график. Помогите пожалуйста.
Добавлено:
Visual basic 6.0
чтобы при вводе значения выводился график. Помогите пожалуйста.
Добавлено:
Visual basic 6.0
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
- это может быть правдой? подскажите пожалуйста.
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
- это может быть правдой? подскажите пожалуйста.
Scorogovorka
Я на vb 6.0 не программировал, но явно тут что-то не то...
во первых, тут степень не x, а sin(x)
и зачем второй цикл?
дальше:
откуда берется значение n?
в общем, надо делать так:
присваиваем переменным начальные значения:
Код: y=0
z=sin(x)
t=1
Я на vb 6.0 не программировал, но явно тут что-то не то...
во первых, тут степень не x, а sin(x)
и зачем второй цикл?
дальше:
откуда берется значение n?
в общем, надо делать так:
присваиваем переменным начальные значения:
Код: y=0
z=sin(x)
t=1
Corsairs
спасибо большое! всё сканало!
спасибо большое! всё сканало!
Помогите решить задачи.
1. Заполнить два массива A и B. Элементы массива A - числа 0.5, 1, 1.5, ..., 5. Элементы массива B квадрат соответствующих элементов массива A. На экран выводится результат возведения в квадрат.
2.Создаётся двумерный массив размером 4 строки на 6 столбцов. Первые три строки массива заполняются целыми случайными числами в диапазоне от 0 до 50, а каждый элемент последней строки должен быть равен минимальному элементу предыдущих строк в соответсвующем столбце.
1. Заполнить два массива A и B. Элементы массива A - числа 0.5, 1, 1.5, ..., 5. Элементы массива B квадрат соответствующих элементов массива A. На экран выводится результат возведения в квадрат.
2.Создаётся двумерный массив размером 4 строки на 6 столбцов. Первые три строки массива заполняются целыми случайными числами в диапазоне от 0 до 50, а каждый элемент последней строки должен быть равен минимальному элементу предыдущих строк в соответсвующем столбце.
Помогите пожалуйста решить2 задачи.
1)Вычислить и напечатать Y = Х - sqr(x) для Х = 2, 6, 18, 54, … (всего 55 значений). Как правильно вводить значения в окне редактора QBasic.
2)Организуйте массив. Определите значение и номер последнего положительного числа.
1)Вычислить и напечатать Y = Х - sqr(x) для Х = 2, 6, 18, 54, … (всего 55 значений). Как правильно вводить значения в окне редактора QBasic.
2)Организуйте массив. Определите значение и номер последнего положительного числа.
ПРОВЕРИТЬ РАВЕНСТВО
1^2 +3^2 + 5^2 +...+(2n-1)^2 = (n(4n^2-1))/3
1^2 +3^2 + 5^2 +...+(2n-1)^2 = (n(4n^2-1))/3
Tatiana11
Как - проверить? Ну, понятно, что можно для каждого натурального n посчитать левую часть, посчитать правую часть и сравнить, выполняется ли равенство. Но ведь натуральный ряд бесконечен, тут жизни не хватит!
Тем более что рано или поздно начнут исчерпываться возможности данного языка по представлению натуральных чисел, а то и ресурсы данного компьютера. Так что, где-то этой проверке мы должны положить верхний предел. Там в условии про него ничего не сказано?
Как - проверить? Ну, понятно, что можно для каждого натурального n посчитать левую часть, посчитать правую часть и сравнить, выполняется ли равенство. Но ведь натуральный ряд бесконечен, тут жизни не хватит!
Тем более что рано или поздно начнут исчерпываться возможности данного языка по представлению натуральных чисел, а то и ресурсы данного компьютера. Так что, где-то этой проверке мы должны положить верхний предел. Там в условии про него ничего не сказано?Nastya20
Цитата:
CLS
x = 2
FOR i = 1 TO 55
PRINT i;
PRINT ") ";
PRINT x - SQR(x)
x = x * 3
NEXT i
____________________________________________________________________
Мой Ареал
Добавлено:
Nastya20
Цитата:
CLS
INPUT "Vvedite N"; N
DIM Mas$(N)
PRINT "Zapolnite Massiv"
FOR i = 1 TO N
PRINT i; ")";
INPUT Mas(i)
NEXT i
Num = 1
FOR i = 1 TO N
IF Mas(i) > 0 THEN Num = i
NEXT i
PRINT "Nomer Poslednego polojitelnogo";
PRINT Num
PRINT "Znachenie Poslednego polojitelnogo";
PRINT Mas(Num)
____________________________________________________________________
Мой Ареал
Цитата:
1)Вычислить и напечатать Y = Х - sqr(x) для Х = 2, 6, 18, 54, … (всего 55 значений).
CLS
x = 2
FOR i = 1 TO 55
PRINT i;
PRINT ") ";
PRINT x - SQR(x)
x = x * 3
NEXT i
____________________________________________________________________
Мой Ареал
Добавлено:
Nastya20
Цитата:
2)Организуйте массив. Определите значение и номер последнего положительного числа.
CLS
INPUT "Vvedite N"; N
DIM Mas$(N)
PRINT "Zapolnite Massiv"
FOR i = 1 TO N
PRINT i; ")";
INPUT Mas(i)
NEXT i
Num = 1
FOR i = 1 TO N
IF Mas(i) > 0 THEN Num = i
NEXT i
PRINT "Nomer Poslednego polojitelnogo";
PRINT Num
PRINT "Znachenie Poslednego polojitelnogo";
PRINT Mas(Num)
____________________________________________________________________
Мой Ареал
Доброго времени суток!
Есть некий набор чисел
Добавлено:
Доброго времени суток!
Есть некий набор чисел
10 DIM 22, 24, 25, 26, 28, 30, 32, 35, 36, 40, 42, 45, 50, 52, 55, 60, 62, 65, 70, 72, 75, 80, 82, 85, 90, 92, 95, 100, 102, 105, 110, 112, 115, 120, 125, 130, 132, 135, 140, 142, 150 AS INTEGER
надо поочередно присваивать значения этих чисел переменным A, B, C, D, чтобы были перебраны все возможные комбинации.
ff = FREEFILE
OPEN "rez.txt" FOR OUTPUT AS #ff
10 CLS
10 DIM 22, 24, 25, 26, 28, 30, 32, 35, 36, 40, 42, 45, 50, 52, 55, 60, 62, 65, 70, 72, 75, 80, 82, 85, 90, 92, 95, 100, 102, 105, 110, 112, 115, 120, 125, 130, 132, 135, 140, 142, 150 AS INTEGER
20 FOR A =
30 FOR B =
40 FOR C =
50 FOR D =
60 rez = B * D * 120 / (A * C)
' 70 Print A, B, C, REZ to file rez.txt
80 PRINT #ff, LTRIM$(RTRIM$(STR$(A!))); ", "; LTRIM$(RTRIM$(STR$(B))); ", "; LTRIM$(RTRIM$(STR$(C))); ", "; LTRIM$(RTRIM$(STR$(D))); ", "; LTRIM$(RTRIM$(STR$(rez))); ""
90 NEXT D
100 NEXT C
110 NEXT B
120 NEXT A
130 END
CLOSE #ff
но для записи в файл добавить условие, что переменные A, B, C, D должны быть разные, т.е. не равны друг другу. Я не знаю, как в Бейсике обращаться поочередно к переменным массива...
Есть некий набор чисел
Добавлено:
Доброго времени суток!
Есть некий набор чисел
10 DIM 22, 24, 25, 26, 28, 30, 32, 35, 36, 40, 42, 45, 50, 52, 55, 60, 62, 65, 70, 72, 75, 80, 82, 85, 90, 92, 95, 100, 102, 105, 110, 112, 115, 120, 125, 130, 132, 135, 140, 142, 150 AS INTEGER
надо поочередно присваивать значения этих чисел переменным A, B, C, D, чтобы были перебраны все возможные комбинации.
ff = FREEFILE
OPEN "rez.txt" FOR OUTPUT AS #ff
10 CLS
10 DIM 22, 24, 25, 26, 28, 30, 32, 35, 36, 40, 42, 45, 50, 52, 55, 60, 62, 65, 70, 72, 75, 80, 82, 85, 90, 92, 95, 100, 102, 105, 110, 112, 115, 120, 125, 130, 132, 135, 140, 142, 150 AS INTEGER
20 FOR A =
30 FOR B =
40 FOR C =
50 FOR D =
60 rez = B * D * 120 / (A * C)
' 70 Print A, B, C, REZ to file rez.txt
80 PRINT #ff, LTRIM$(RTRIM$(STR$(A!))); ", "; LTRIM$(RTRIM$(STR$(B))); ", "; LTRIM$(RTRIM$(STR$(C))); ", "; LTRIM$(RTRIM$(STR$(D))); ", "; LTRIM$(RTRIM$(STR$(rez))); ""
90 NEXT D
100 NEXT C
110 NEXT B
120 NEXT A
130 END
CLOSE #ff
но для записи в файл добавить условие, что переменные A, B, C, D должны быть разные, т.е. не равны друг другу. Я не знаю, как в Бейсике обращаться поочередно к переменным массива...
Ghost Inets
ты привел около 40 чисел, представляешь сколько из них будет уникальных перестановок? 40 факториал! это астрономическое число, солнце погаснет раньше чем эта программа выполнится ))
но если взять поменьше чисел, то можно как то так:
Код:
ff = FREEFILE
OPEN "rez.txt" FOR OUTPUT AS #ff
CLS
DATA 22, 24, 25, 26, 28, 30, 32, 35, 36, 40, 42, 45, 50, 52, 55, 60, 62, 65, 70, 72, 75, 80, 82, 85, 90, 92, 95, 100, 102, 105, 110, 112, 115, 120, 125, 130, 132, 135, 140, 142, 150
Length = 5 'тут кол-во элементов
DIM Arr(Length) AS INTEGER
FOR i = 1 TO Length
READ DAT
Arr(i) = DAT
NEXT i
FOR Ai = 1 TO Length
FOR Bi = 1 TO Length
FOR Ci = 1 TO Length
FOR Di = 1 TO Length
A = Arr(Ai): B = Arr(Bi): C = Arr(Ci): D = Arr(Di)
IF (A <> B) AND (A <> C) AND (A <> D) AND (B <> C) AND (B <> D) AND (C <> D) THEN
Rez = B * D * 120 / (A * C)
PRINT #ff, LTRIM$(RTRIM$(STR$(A!))); ", "; LTRIM$(RTRIM$(STR$(B))); ", "; LTRIM$(RTRIM$(STR$(C))); ", "; LTRIM$(RTRIM$(STR$(D))); ", "; LTRIM$(RTRIM$(STR$(Rez))); ""
END IF
NEXT Di
NEXT Ci
NEXT Bi
NEXT Ai
END
CLOSE #ff
ты привел около 40 чисел, представляешь сколько из них будет уникальных перестановок? 40 факториал! это астрономическое число, солнце погаснет раньше чем эта программа выполнится ))
но если взять поменьше чисел, то можно как то так:
Код:
ff = FREEFILE
OPEN "rez.txt" FOR OUTPUT AS #ff
CLS
DATA 22, 24, 25, 26, 28, 30, 32, 35, 36, 40, 42, 45, 50, 52, 55, 60, 62, 65, 70, 72, 75, 80, 82, 85, 90, 92, 95, 100, 102, 105, 110, 112, 115, 120, 125, 130, 132, 135, 140, 142, 150
Length = 5 'тут кол-во элементов
DIM Arr(Length) AS INTEGER
FOR i = 1 TO Length
READ DAT
Arr(i) = DAT
NEXT i
FOR Ai = 1 TO Length
FOR Bi = 1 TO Length
FOR Ci = 1 TO Length
FOR Di = 1 TO Length
A = Arr(Ai): B = Arr(Bi): C = Arr(Ci): D = Arr(Di)
IF (A <> B) AND (A <> C) AND (A <> D) AND (B <> C) AND (B <> D) AND (C <> D) THEN
Rez = B * D * 120 / (A * C)
PRINT #ff, LTRIM$(RTRIM$(STR$(A!))); ", "; LTRIM$(RTRIM$(STR$(B))); ", "; LTRIM$(RTRIM$(STR$(C))); ", "; LTRIM$(RTRIM$(STR$(D))); ", "; LTRIM$(RTRIM$(STR$(Rez))); ""
END IF
NEXT Di
NEXT Ci
NEXT Bi
NEXT Ai
END
CLOSE #ff
A_V
Спасибо, но не все так печально: я уже брал 117 чисел. Прога (Досовский Бейсик) "думала" часов 5. Комп Core Duo 1.8 GHz. Получился файл 4.4 гига.
ff = FREEFILE
OPEN "rez.txt" FOR OUTPUT AS #ff
10 CLS
10 DIM 22, 24, 25, 26, 28, 30, 32, 35, 36, 40, 42, 45, 50, 52, 55, 60, 62, 65, 70, 72, 75, 80, 82, 85, 90, 92, 95, 100, 102, 105, 110, 112, 115, 120, 125, 130, 132, 135, 140, 142, 150 AS INTEGER
20 FOR A = 18 TO 135 STEP 1
30 FOR B = 18 TO 135 STEP 1
40 FOR C = 18 TO 135 STEP 1
50 FOR D = 18 TO 135 STEP 1
60 rez = B * D * 120 / (A * C)
' 70 Print A, B, C, REZ to file rez.txt
80 PRINT #ff, LTRIM$(RTRIM$(STR$(A!))); ", "; LTRIM$(RTRIM$(STR$(B))); ", "; LTRIM$(RTRIM$(STR$(C))); ", "; LTRIM$(RTRIM$(STR$(D))); ", "; LTRIM$(RTRIM$(STR$(rez))); ""
90 NEXT D
100 NEXT C
110 NEXT B
120 NEXT A
130 END
CLOSE #ff
поэтому жалкие 50 чисел меня совсем не пугают. Пожалуйста, сделайте со всеми числами.
Спасибо, но не все так печально: я уже брал 117 чисел. Прога (Досовский Бейсик) "думала" часов 5. Комп Core Duo 1.8 GHz. Получился файл 4.4 гига.
ff = FREEFILE
OPEN "rez.txt" FOR OUTPUT AS #ff
10 CLS
10 DIM 22, 24, 25, 26, 28, 30, 32, 35, 36, 40, 42, 45, 50, 52, 55, 60, 62, 65, 70, 72, 75, 80, 82, 85, 90, 92, 95, 100, 102, 105, 110, 112, 115, 120, 125, 130, 132, 135, 140, 142, 150 AS INTEGER
20 FOR A = 18 TO 135 STEP 1
30 FOR B = 18 TO 135 STEP 1
40 FOR C = 18 TO 135 STEP 1
50 FOR D = 18 TO 135 STEP 1
60 rez = B * D * 120 / (A * C)
' 70 Print A, B, C, REZ to file rez.txt
80 PRINT #ff, LTRIM$(RTRIM$(STR$(A!))); ", "; LTRIM$(RTRIM$(STR$(B))); ", "; LTRIM$(RTRIM$(STR$(C))); ", "; LTRIM$(RTRIM$(STR$(D))); ", "; LTRIM$(RTRIM$(STR$(rez))); ""
90 NEXT D
100 NEXT C
110 NEXT B
120 NEXT A
130 END
CLOSE #ff
поэтому жалкие 50 чисел меня совсем не пугают. Пожалуйста, сделайте со всеми числами.
Ghost Inets
да, это я торможу - ты же и хочешь не все перестановки, а только по 4..
ну в моем варианте все это есть, достаточно в Length указать кол-во твоих чисел
да, это я торможу - ты же и хочешь не все перестановки, а только по 4..
ну в моем варианте все это есть, достаточно в Length указать кол-во твоих чисел
A_V
Конечно по 4. Я и не понял, о чем речь идет: проклятущий грипп замучал...
Спасибо!!!
Конечно по 4. Я и не понял, о чем речь идет: проклятущий грипп замучал...
Спасибо!!!
Предыдущая тема: ActiveX-форма & InternetExplorer
Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.