Массив: Вывести на печать все числа до нуля включительно

@Дмитрий291225 · Регистрация: 28.12.2011

Студворк — интернет-сервис помощи студентам

Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа до нуля включительно.

@gaw · 23.01.2012, 15:01

Сообщение от Дмитрий291225

последовательность чисел

что есть разделитель
если 0 не последний
Добавлено через 5 минут

Visual Basic
1
2
3
a = Array(1, 20, 3, 4, 0, 34, 10)
b = Join(a, " ")
Print Mid(b, 1, InStr(1, b, " 0 ") + 1)

Добавлено через 20 минут

Visual Basic
1
2
3
4
5
6
7
a = Array(40, 20, 1, 20, 0, 4, 10, 34, 10)
i = LBound(a) - 1
Cls
Do
i = i + 1
Print a(i); vbTab;
Loop Until a(i) = 0 Or i = UBound(a)

@irinastudent · 28.06.2016, 21:19

а что это такое?

Сообщение от gaw

Cls

мой VB ругается

Shersh · 28.06.2016, 21:29

Cls уберите, Print замените на Debug.Print (в VBA нет таких операторов)

@gaw · 28.06.2016, 21:30

Добрый вечер, Ирина!
Вам нужен код для консоли, так ведь ?

тогда Ваш VB ругается по делу

@irinastudent · 28.06.2016, 23:04

ну да, я пыталась в консоли VBA что-то соорудить... не получилось(

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@Дмитрий291225 22 / 0 / 0 Регистрация: 28.12.2011 Сообщений: 88

	Массив: Вывести на печать все числа до нуля включительно 23.01.2012, 13:08. Показов 1801. Ответов 5 Метки нет (Все метки) Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа до нуля включительно. 0

Shersh Заблокирован
	28.06.2016, 21:29
	Cls уберите, Print замените на Debug.Print (в VBA нет таких операторов) 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	28.06.2016, 21:30
	Добрый вечер, Ирина! Вам нужен код для консоли, так ведь ? тогда Ваш VB ругается по делу 0

@irinastudent 0 / 0 / 0 Регистрация: 28.06.2016 Сообщений: 3
	28.06.2016, 23:04
	ну да, я пыталась в консоли VBA что-то соорудить... не получилось( 0