Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней. Закрыто  Сообщений: 5 
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
 

Member
Статус: Не в сети
Регистрация: 01.06.2003
Обычный BASIC под DOS :)
Помогите. Напишите код ,умаляю,горю на учёбе
1)Как задать массив?!
2)Как отсортировать массив по убыванию и по возрастанию?!
3) Как поиск в массиве выполнить?!

Примеры пааажалуйста! :weep:



Партнер
 

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 ;)


 

Member
Статус: Не в сети
Регистрация: 01.06.2003
а есть где нить в онлайн эти примеры?! да не второгодник я... просто срочно нужен 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


ааа! индекс вне диапазона [/code]


 

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: Написать программу, которая будет находить квадратные уравнения.

Помогите пожалуйста!!!

см. правила раздела. vor


Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней. Закрыто  Сообщений: 5 
-

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan