Russian English
   Basic.net
Среда, 23.09.2020, 03:50
Меню сайта
Категории раздела
Basic [28]
У нас вы можете бесплатно скачать QBasic, VisualBasic, FreeBasic, GW-Basic.
QBasic [4]
Visual Basic [4]
GW-Basic [0]
Игры [1]
FreeBasic [1]
PowerBasic [1]
Облако тегов
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа
Главная » Файлы » Basic

Массивы в QBasic
Share |
15.09.2012, 20:54

Продолжение пример программ с массивами.


Вычисление суммы элементов массива в QBasic:

  1.  
  2. CLS
  3. N = 15
  4. DIM M(N)
  5. SUMM = 0
  6. FOR I = 1 TO N
  7. M(I) = INT(RND * 100)
  8. PRINT I; "-"; M(I)
  9. SUMM = SUMM + M(I)
  10. NEXT I
  11. PRINT "_________"
  12. PRINT "SUMM = "; SUMM

Вычисление произведения элементов массива в QBasic:

  1.  
  2. CLS
  3. N = 10
  4. DIM M(N)
  5. P = 1
  6. FOR I = 1 TO N
  7. M(I) = INT(RND * 100)+1
  8. PRINT I; "-"; M(I)
  9. P = P * M(I)
  10. NEXT I
  11. PRINT "_________"
  12. PRINT "Proizvedenie = "; P

Вычислить сумму последовательности чисел Фибоначчи на QBasic:

  1.  
  2. INPUT "A="; A
  3.  
  4. F0 = 1
  5. F1 = 1
  6. SUM = 0
  7. DO
  8. F2 = F1 + F0
  9. F0 = F1
  10. F1 = F2
  11. SUM = SUM + F2
  12. LOOP UNTIL SUM > A
  13.  
  14. PRINT "SUM="; SUM
  15.  

Найти максимальный элемент массива в QBasic:

  1.  
  2. CLS
  3. N = 15
  4. PRINT "Massiv: ";
  5. DIM M(N)
  6. FOR I = 1 TO N
  7. M(I) = INT(RND * 100)
  8. PRINT M(I) ;
  9. NEXT I
  10. MAX=M(1)
  11. FOR I = 2 TO N
  12. IF MAX < M(I) THEN MAX=M(I)
  13. NEXT I
  14. PRINT "_________"
  15. PRINT "Maximum = "; MAX
  16.  

Заполнить массив случайными числами и отсортировать на QBasic:

  1.  
  2. N = 10
  3. DIM M(N)
  4.  
  5. PRINT "Massiv:"
  6. FOR I = 1 TO N
  7. M(I) = INT(RND * 100)
  8. PRINT M(I);
  9. NEXT I
  10.  
  11. FOR I = 1 TO N - 1
  12. FOR J = I + 1 TO N
  13. IF (M(I) > M(J)) THEN SWAP M(I), M(J)
  14. NEXT J
  15. NEXT I
  16.  
  17. PRINT "Sort massiv:"
  18. FOR I = 1 TO N
  19. PRINT M(I);
  20. NEXT I 

    Нарисовать несколько окружностей, центр которых находится на окружности заданного радиуса на QBasic:

    1.  
    2. R = 10 'Радиус окружностей
    3. R1 = 120 'Радиус окружности на которой будут рисоваться остальные
    4. N = 20 'Количество окружностей радиуса R
    5. SCREEN 12 'Установка видео режима
    6. CIRCLE (320, 240), R1
    7. P = 2 * 3.14 / N
    8. FOR I = 1 TO N
    9. X = COS(P * I) * R1
    10. Y = SIN(P * I) * R1
    11. CIRCLE (320 + X, 240 + Y), R ' Прорисовка оружностей от центра экрана
    12. NEXT I
    13.  

Категория: Basic | Добавил: Admin
Просмотров: 8793 | Загрузок: 0 | Комментарии: 1 | Рейтинг: 5.0/2
Всего комментариев: 1
1 Аня   (22.03.2013 09:05) [Материал]
Задать массив динамически и подсчитать кол-во неопределенных элементов данного массива. Вычислить произведение всех элементов массива.

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск
Наш опрос
Какую версию Basic вы предпочитаете?
Всего ответов: 2028

© Basic.ucoz.net, 2020