Обычный BASIC под DOS Помогите. Напишите код ,умаляю,горю на учёбе
1)Как задать массив?!
2)Как отсортировать массив по убыванию и по возрастанию?!
3) Как поиск в массиве выполнить?!
Member
Статус: Не в сети Регистрация: 02.06.2005 Откуда: Khabarovsk
asaaa Ой ...
Что - то долго ты учишся Второгодник что ли ???
Basic какой? Q?
А вообщем какая разница.
Давно я Basic писал.
Вообщем создать массив: что - то типа:
Код:
DIM A(10)
, где А - это имя массива, а DIM - объявление, 10 - число эллементов массива. Отсортировать массив можно методом пузырьковой сортировки:
Код:
FOR I = 1 TO 10 FOR J = 1 TO 10 - 1 IF A(I) > A(I + 1) THEN TEMP = A(I) A(I) = A(I + 1) A(I + 1) = A(I) END IF NEXT J NEXT I
, где 10 - число эллементов массива, TEMP - переменная для хранения данных. Поиск в массиве выглядит примерно так:
Код:
MAX = A(1) FOR I = 2 TO 10 IF A(i) > MAX THEN MAX = A(I) NEXT I
, где MAX и есть максимальное число.
PS В синтаксисе мог и ошибиться, поскольку давно не практиковал Basic
а есть где нить в онлайн эти примеры?! да не второгодник я... просто срочно нужен Qbasic примеры готовые ))
я сам на shell и perl прогить магу долбаный бусик)))
Добавлено спустя 1 час34 секунды: аааакак заполнить массив?!
Добавлено спустя 3 минуты, 28 секунд:
Код:
FOR I = 1 TO 10 FOR J = 1 TO 10 - 1 IF A(I) > A(I + 1) THEN TEMP = A(I) A(I) = A(I + 1) A(I + 1) = A(I) END IF NEXT J NEXT I
Индекс вне диапазона... а срочно помогите до 12 часов ГОРЮ
Добавлено спустя 2 минуты, 33 секунды: DIM A(I) MAX = A(1) FOR I = 2 TO 10 IF A(i) > MAX THEN MAX = A(I) NEXT I
Member
Статус: Не в сети Регистрация: 02.06.2005 Откуда: Khabarovsk
asaaa Конечно в on-line много примеров.
Задать массив можно так:
Код:
DIM A(10) FOR I = 1 TO 10 PRINT "Введите " + I + "-ый эллемент массива: "; INPUT A(I); NEXT I
Индекс вне диапазона ... почему ты объявляешь массив как
Код:
DIM A(I)
, что такое I, в скобках должно быть число эллементов массива. А когда индекс вне диапазона ты должен знать, что программа вышла за границы массива и проверить места где происходит работа с индексами, без этого какой ты программер ??? В случае первом попробуй так:
Код:
FOR I = 1 TO 10 FOR J = 1 TO 10 IF A(I) > A(J) THEN TEMP = A(I) A(I) = A(J) A(J) = A(I) END IF NEXT J NEXT I
Задание 1: Массив,состоящий из 8 элементов задаётся при помощи DATA, READ. Требуется найти сумму положительных элементов.Массив: 1,-3, -7, 3, 5, 3, -3, -5.
Задание 2: Написать программу, которая будет находить квадратные уравнения.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения