Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
198 / 10 / 3
Регистрация: 30.04.2016
Сообщений: 732

Расположить числа по возрастанию

27.11.2019, 19:04. Показов 1319. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан массив из 13 чисел. Расположить числа по возрас-
танию. Ввести с клавиатуры число М так, чтобы оно вошло
в массив и получившийся массив также был бы упорядочен
по возрастанию.
Вот программа от модератора m-ch. Но она отказала.
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
DECLARE SUB insert2arr (A( ) AS DOUBLE, x AS DOUBLE,
 n AS LONG) 
DIM I AS LONG, n AS LONG, A(1 TO 8) AS DOUBLE,
 x AS DOUBLE, m AS DOUBLE
DATA 5, 7, 10, 0, 2, 12, 21
PRINT “  Array: “
    FOR I = 1 TO 7
      READ x
       PRINT x:
CALL insert2arr(A( ), x, n)
   NEXT i: PRINT
PRINT “ Отсортированный массив:”
   FOR I = 1 TO n
     PRINT A(i);
   NEXT i: PRINT
INPUT “ Ввести число М: :, m
CALL insert2arr(A( ), m, n)
PRINT “ Отсортированный массив с числом  М:”
   FOR I = 1 TO n
     PRINT A(i);
   NEXT i: PRINT
Процедура к этой задаче отказала. Выходит
окошко: ELSE без IF.
Вот эта процедура:
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
SUB insert2arr (A( ) AS DOUBLE, x AS DOUBLE, n AS LONG
DIM I AS LONG
   n = n + 1
   FOR I = n TO 2 STEP -1
IF A(i– 1) > x THEN A(i) = A(i – 1)
    ELSE EXIT FOR
 
    NEXT i
    A(i) = x
END SUB
Процедура отказала. Пытался вставить этот END IF – не
получилось. У Вас должно получиться.
(А без AS LONG’ов и AS DOUDLE не получится?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
27.11.2019, 19:04
Ответы с готовыми решениями:

Расположить числа по возрастанию
Дан массив из 7 чисел. Расположить числа по возрастанию. Ввести число М так, чтобы оно вошло в массив и получившийся массив также ...

Расположить числа по возрастанию
Дан массив из 7 чисел. Расположить числа по возрастанию. Ввести число М так, чтобы оно вошло в массив и получившийся массив также ...

Расположить числа по возрастанию в массиве
Дан массив из 7 чисел. Расположить числа по возрастанию. Ввести число М так, чтобы оно вошло в массив и получившийся массив также ...

5
198 / 10 / 3
Регистрация: 30.04.2016
Сообщений: 732
19.04.2020, 18:12  [ТС]
И все-таки - может ли здесь работать процедура?
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
20.04.2020, 10:56
Вот Вам простая программа без процедур
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
DIM a(14)
FOR i=1 TO 13
INPUT"vvedite element massiva",a(i)
NEXT
FOR i=1 TO 13
 FOR j=2 TO 13
  IF a(j)<a(j-1) THEN SWAP a(j),a(j-1)
NEXT
NEXT
PRINT"otsortirovannyj massiv"
FOR i=1 TO 13
PRINT a(i);
NEXT
PRINT
INPUT"vvedite chislo M",m
a(14)=m
i=13
DO WHILE a(i)>m
SWAP a(i),a(i+1)
i=i-1
LOOP
PRINT"novyj massiv"
FOR i=1 TO 14
PRINT a(i);
NEXT
0
198 / 10 / 3
Регистрация: 30.04.2016
Сообщений: 732
03.05.2020, 10:55  [ТС]
кот Бегемот, ваша программа сработала. А с прцедурой она может работать?

Вот эта процедура:
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
SUB insert2arr (a( ) AS DOUBLE, x AS DOUBLE, n AS LONG
DIM i AS LONG
   n = n + 1
   FOR i = n TO 2 STEP -1
IF a(i– 1) > x THEN a(i) = a(i – 1)
    ELSE  EXIT  FOR
    NEXT i
    a(i) = x
END SUB
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
03.05.2020, 10:58
Petro29, а Вы обратитесь к автору, к m-ch, пусть он со своей процедурой и разбирается, а я в чужих программах копаться не люблю, мне достаточно того, что работает моя.
0
6180 / 945 / 313
Регистрация: 25.02.2011
Сообщений: 1,381
Записей в блоге: 1
06.05.2020, 09:49
исходный рабочий код: Расположить числа по возрастанию
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
06.05.2020, 09:49
Помогаю со студенческими работами здесь

Расположить числа по возрастанию
Пользователь вводит четыре числа: a, b, c, d float a, b, c, d; cin &gt;&gt; a &gt;&gt; b &gt;&gt; c &gt;&gt; d; как легче всего расположить их по...

Расположить 3 числа по возрастанию
как 2 числа я знаю. Подскажите как с 3 числами

Расположить три числа по возрастанию
2)Расположить три числа А,В,С по возрастанию их значения.

Расположить по возрастанию числа в строке
как расположить по возрастанию числа в строке? Danny_TreJo, не дублируйте темы, пожалуйста.

Расположить три целых числа по возрастанию
Здравствуйте изучаю 3-й день сишку никак не могу понять что не так делаю в середине кода с переменной 'i' #include...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru