Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Мармот
0 / 0 / 0
Регистрация: 24.11.2016
Сообщений: 1
1

Бэйсик, перестановка чисел в массиве

24.11.2016, 02:03. Просмотров 877. Ответов 2
Метки нет (Все метки)

Здравствуйте, мне нужно в бэйсике переставить какой то вводимый набор чисел пользователем наоборот, т.е. например из 83726 нужно сделать 62738, как это сделать?
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2016, 02:03
Ответы с готовыми решениями:

Передалать код с Паскаля на Бэйсик
С ПАСКАЛЯ на БЭЙСИК пожааааалуйста!!оч нужно!!!! Program Zadacha; uses crt; type pacient =...

Инструкция по работе с программой ПлюсыМинусы в ворде через вижуал бэйсик
Ребят,подскажите пожалуйста,очень надо!!!!! Visual Basic 6.0!!!!! Нужна инстуркция по работе с...

Перестановка в массиве
Дана задача. Даны два массива А и В по 6 элементов в каждом. Поменять местами элементы массива А,...

Перестановка элементов в массиве VBA
Привет уважаемы форумчане. Вот задание: Написать процедуру в которой производится перестановка...

Перестановка чисел местами
Ввести два числа A и B, поменять содержимое этих чисел местами. Вывести значения этих чисел после...

2
Pro_grammer
Модератор
6181 / 2265 / 443
Регистрация: 24.04.2011
Сообщений: 4,014
Записей в блоге: 10
24.11.2016, 06:13 2
Цитата Сообщение от Мармот Посмотреть сообщение
из 83726 нужно сделать 62738
Как бы намекая, что бейсиков разных много:
Visual Basic
1
strTest = StrReverse$("Visual Basic")           ' strTest = "cisaBlausiV"
0
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
24.11.2016, 13:20 3
Лучший ответ Сообщение было отмечено Мармот как решение

Решение

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
DECLARE FUNCTION M$ (n AS STRING)
 
CLS
DIM n AS STRING
 
INPUT "N = "; n
PRINT M(n)
END
 
FUNCTION M$ (n AS STRING)
   k = LEN(n) \ 2
   FOR i = 1 TO k
      s$ = MID$(n, i, 1)
      MID$(n, i, 1) = MID$(n, LEN(n) + 1 - i, 1)
      MID$(n, LEN(n) + 1 - i, 1) = s$
   NEXT
   M = n
END FUNCTION
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2016, 13:20

Перестановка чисел в столбце
Здравствуйте, у меня такая проблема: имеется столбец(каждый раз разного размера по кол-ву) чисел,...

ку бэйсик тупит?
я ниче не понимаю! открываю инженерный калькулятор ввожу число 27 жму тангенс = 0,5 пишу на...

написать программу массива на языке бэйсик) заранее благодарю)
Записать в массив С подряд номера положительных элементов массива R из N элементов. Результат...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru