Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
новый онлайн-сервис
число, сумма и дата прописью

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Массив ( turbo basic)
СообщениеДобавлено: 15 дек 2017, 13:39 
Не в сети
Начинающий
Зарегистрирован:
25 дек 2016, 17:51
Сообщений: 19
Cпасибо сказано: 1
Спасибо получено:
0 раз в 0 сообщении
Очков репутации: 1

Добавить очки репутацииУменьшить очки репутации
Преобразовать массив таким образом, чтобы сначала располагались все элементы , модуль которых не превышает единицу , а потом - все остальные.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Массив ( turbo basic)
СообщениеДобавлено: 15 дек 2017, 15:01 
Не в сети
Light & Truth
Аватара пользователя
Зарегистрирован:
28 апр 2016, 13:40
Сообщений: 3550
Cпасибо сказано: 5
Спасибо получено:
624 раз в 591 сообщениях
Очков репутации: 98

Добавить очки репутацииУменьшить очки репутации
Dim a(100) As Variant
Dim b(100) As Variant
Private Sub Form_Load()
For i = 1 To 100
a(i) = 10 * Rnd
Next
j = 0
For i = 1 To 100
If Abs(a(i)) <= 1 Then
j = j + 1
b(j) = a(i)
End If
Next
For i = 1 To 100
If Abs(a(i)) > 1 Then
j = j + 1
b(j) = a(i)
End If
Next
For i = 1 To 100
MsgBox b(i)
Next

End Sub

Вернуться к началу
 Профиль  
Cпасибо сказано 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему      Страница 1 из 1 [ Сообщений: 2 ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Вычисления в Visual Basic

в форуме Информатика и Компьютерные науки

Yabereza2603

3

342

06 ноя 2018, 18:48

Visual Basic сумма ряда

в форуме Информатика и Компьютерные науки

Sira

1

954

17 июн 2014, 22:48

Массив TurboBasic

в форуме Информатика и Компьютерные науки

Maxpower55

1

240

21 дек 2017, 19:13

Создать массив

в форуме Информатика и Компьютерные науки

Katrina7

5

421

11 ноя 2017, 01:35

Дан массив. Сформировать новый

в форуме Информатика и Компьютерные науки

mapsaaag

1

346

14 фев 2018, 09:09

Массив простых чисел

в форуме Информатика и Компьютерные науки

pacha

21

3429

30 май 2019, 19:36

Паскаль. Одномерный массив

в форуме Информатика и Компьютерные науки

sfanter

14

912

28 окт 2015, 07:45

Вывести на консоль массив в три способа

в форуме Информатика и Компьютерные науки

max_timokhin

0

194

16 апр 2017, 21:11

Как инициализировать массив в котором не все значения даны

в форуме Maple

SVD102

0

282

12 май 2016, 07:04

Что изменить чтоб массив сортировался от большего

в форуме Информатика и Компьютерные науки

Katrina7

9

440

20 ноя 2017, 17:35


Часовой пояс: UTC + 3 часа [ Летнее время ]



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

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


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

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2023 MathHelpPlanet.com. All rights reserved