qwerty132413
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нужно выполнить такое задание:
1. Сформировать массив из n элементов с помощью датчика случайных чисел (n задаётся пользователем с клавиатуры).
2. Распечатать полученный массив.
3. Выполнить удаление элемента с заданным номером.
4. Вывести полученный результат.
5. Выполнить добавление элемента с номером K в массив.
6. Вывести полученный результат.
7. Выполнить перестановку элементов в массиве, а именно: чётные элементы переставить в начало массива, нечётные - в конец.
8. Вывести полученный результат.
9. Выполнить поиск элемента, равного среднему арифметическому элементов массива, и подсчитать количество сравнений, необходимых для поиска нужного элемента.
10. Вывести полученный результат.
11. Выполнить сортировку массива методом простого включения.
12. Вывести полученный результат.
13. Выполнить поиск элемента, равного среднему арифметическому элементов массива, в отсортированном массиве и подсчитать количество сравнений, необходимых для поиска нужного элемента.
14. Вывести полученный результат.
Вот, что у меня получилось.
CLS
DIM x(1 TO 50), y(1 TO 50), k, s, T, p, v AS INTEGER
n = 9
FOR i = 1 TO n
x(i) = CINT(9 * RND)
NEXT i
FOR i = 1 TO n
PRINT x(i);
NEXT i
PRINT
PRINT "udalenie"
PRINT "zadat nomer udalyaemogo T="
INPUT T
FOR i = T TO n - 1
x(i) = x(i + 1)
NEXT i
FOR i = 1 TO n
PRINT x(i);
NEXT i
INPUT "dobavit k", k
FOR i = n - 1 TO k STEP -1
x(i + 1) = x(i)
NEXT i
INPUT "dobavit chislo", c
x(i) = c
FOR i = 1 TO n
PRINT x(i);
NEXT i
FOR i = 1 TO n / 2
FOR j = 1 * 2 TO i + 1 STEP -1
s = x(j)
x(j) = x(j - 1)
x(j - 1) = s
NEXT j
NEXT i
FOR i = 1 TO n
PRINT x(i)
NEXT i
PRINT
PRINT "element. ravnyi srednemu arifmeti4eskomu"
s = 0
FOR i = 1 TO n
s = s + x(i)
NEXT i
f! = s / n
p = 0
FOR i = 1 TO n
IF x(i) = s THEN
p = i
PRINT p
END IF
NEXT i
IF p = 0 THEN
PRINT "sovpadenii net"
END IF
PRINT
PRINT "sortirovka"
FOR i = 1 TO n
FOR j = 1 TO n
IF x(i) > x(j) THEN
T = x(i): x(i) = x(j): x(j) = T
END IF
NEXT j
NEXT i
FOR i = 1 TO n
PRINT x(i);
NEXT i
END
Подскажите пожалуйста, где здесь ошибки, и как их исправить.
Буду очень признателен. |
