Сообщение от
Firma4
если хотите можно еще вот эти решить:
1. В заданном массиве X(N) замените нулями все отрицательные компоненты, положительные единицей.
Код:
RANDOMIZE TIMER
OPTION BASE 1
'$DYNAMIC
DIM a(10)
CLS
INPUT "Enter count elements of dimension (Min>10)"; ElemCount%
IF ElemCount% > 10 THEN
REDIM a(ElemCount%)
ELSE
ElemCount% = 10
END IF
'first
PRINT "Array"
FOR i = 1 TO ElemCount%
a(i) = INT((RND * 20) + 1) - 10
PRINT i; "="; a(i),
NEXT i
'second
'FOR i = 1 TO ElemCount%
' PRINT "Elem "; i;
' INPUT a(i)
'NEXT i
PRINT
PRINT "Modifying array"
FOR i = 1 TO ElemCount%
IF a(i) > 0 THEN
a(i) = 1
ELSE
a(i) = 0
END IF
PRINT a(i);
NEXT i
PRINT
Сообщение от
Firma4
2. Вывести на печать номера элементов заданного массива Y(N), удовлетворяющих условию 0<yi<1.
Код:
RANDOMIZE TIMER
OPTION BASE 1
'$DYNAMIC
DIM a(10)
CLS
INPUT "Enter count elements of dimension (Min>10)"; ElemCount%
IF ElemCount% > 10 THEN
REDIM a(ElemCount%)
ELSE
ElemCount% = 10
END IF
'first
PRINT "Array"
FOR i = 1 TO ElemCount%
a(i) = RND * 2
PRINT i; "="; a(i),
NEXT i
'second
'FOR i = 1 TO ElemCount%
' PRINT "Elem "; i;
' INPUT a(i)
'NEXT i
PRINT
PRINT "Elements number"
FOR i = 1 TO ElemCount%
IF a(i) < 1 THEN
PRINT i;
END IF
NEXT i
PRINT
Сообщение от
Firma4
3. Дано вещественное число A и целое число N (>0). Вывести A в степени N : AN = A*A*A*A....*A(числа A перемножаются N раз)
Ничо не понял что выводить? Итог или саму формулу....