подсчитать сколько раз встретилось каждое из чисел Х - бейсик

[Аля Самойлова]

1. Выполнить действие над массивом.Программа должна обрабатывать любые числа.Предельная размерность массива до 10, реальная размерность до N.Программа должна предъявлять исходные и новые (если потребуется) массивы.
подсчитать сколько раз встретилось каждое из чисел Х (пример исходного Х{3,7,3,7,4,7} ) здесь число 3 встретилось-2 раза, 7- 3 раза, 4-1 раз.


2. а вот вторую я правильно решила или нет посмотрите плиз...
Составить программу вычисления числового ряда для известного числа членов ряда N.
Y=-((1/2^1)+1)+((2/2^2)-2)-((4/2^4)+3)+((8/2^8)-...

ВОТ РЕШЕНИЕ МОЕ..

INPUT N
Y=1: Z=-1: A=1: B=1
FOR I=1 TO N
Y=Y*(Z*((A/2^A)-Z*B)
Z=-Z: A=2^A: B=B+1
NEXT A,B,Z
IF I<=N THEN PRINT Y
NEXT N
END

[Sazary]

Вот на qbasic'е.
Первая - через сортировку массива:

DIM X(10) AS INTEGER
DIM c AS INTEGER
DIM N AS INTEGER
DIM i AS INTEGER
DIM j AS INTEGER
DIM k AS INTEGER
DIM tmp AS INTEGER
CLS
INPUT "Enter N: "; N
FOR i = 1 TO N
 INPUT "Enter next element: "; X(i)
NEXT i

FOR i = 1 TO N - 1
 k = i
 FOR j = i + 1 TO N
  IF X(j) < X(k) THEN
   k = j
  END IF
 NEXT j
tmp = X(k)
X(k) = X(i)
X(i) = tmp
NEXT i
'----------------
c = 1
tmp = X(1)
FOR i = 2 TO N + 1
 IF (i = N + 1) OR (X(i) <> tmp) THEN
  PRINT USING "Chislo #: #"; tmp; c
  c = 1
  tmp = X(i)
 ELSE
  c = c + 1
 END IF
NEXT i


END

Вторая так, вроде:

INPUT N
Y = -1
B = 1
C = 2 ^ B
d = 1

A = Y * (B / C) + (-1) * Y * d
s = A
FOR i = 1 TO N
 Y = -Y
 B = B * 2
 C = 2 ^ B
 d = d + 1
 A = Y * (B / C) + (-1) * Y * d
 s = s + A
NEXT i

PRINT s

END

[Аля Самойлова]

спасибо.а вот решение второй задачи и мое и твое не нравится..что то там не ладно.

[Sazary]

а вот решение второй задачи и мое и твое не нравится..что то там не ладно.

Что значит "не нравится"? Неправильно? Или как-то по-другому нужно сделать?

[Аля Самойлова]

по-моему в моем решении порядок строк программы неправильный..вот мне его надо исправить...посммотри плиз....

[Аля Самойлова]

'----------------

а вот это что означает в первой задачке?

[Sazary]

'----------------

а вот это что означает в первой задачке?

Просто комментарий. Для лучшей читабельности.

Вот вам правильное решение. Проверил в экселе.

CLS
INPUT N
Y = 1
B = .5
C = 2
d = 0
S# = 0

FOR i = 1 TO N
 Y = -Y
 B = B * 2
 C = 2 ^ B
 d = d + 1
 A = Y * ((B / C) - Y * d)
 'PRINT A
 S = S + A
NEXT i

PRINT S

END

[Аля Самойлова]

спасибо огроменное!!!!!

[Аля Самойлова]

МОЖЕТ КТО ПРОВЕРИТЬ ЗАДАЧКУ?
ВОТА..

CLS
REM “ПРОГРАММА К ЗАДАЧЕ НА СУММУ”
INPUT N
A=1: S=0
FOR I=1 TO N
S=S+A
A=A^(A+1)
NEXT A
PRINT S
END

CLS
REM “ПРОГРАММА К ЗАДАЧЕ НА ПРОИЗВЕДЕНИЕ”
INPUT N
A=1: P=1: С=1
FOR I=1 TO N
A=С^(С+1)
С=С+1
P=P*A
NEXT A
PRINT P
END
И ВОТ ЭТУ?

CLS
REM“ПРОГРАММА К ЗАДАЧЕ 3”
INPUT N
DIM A(N)
FOR I=1 TO N
IF A(I)>0 THEN A(I)=A(1)
NEXT A(I)
PRINT A(N)
END

[Sazary]

Аля Самойлова, а условия где?

ps Заключайте исходные коды в теги CODE ("#" на панели в окне редактирования).