М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
asura3
asura3
16.08.2022 17:45 •  Информатика

Задача на циклы в vbs, именно vbs Нужно ввести с клавиатуры число как только число будет больше 10 программа должна завершить свою работу, должно же быть зацикливание? что не так?

Dim a
a=0
do
MsgBox("Введи число")
a=InputBox(a)
MsgBox(a)
Loop while (a>10)

👇
Ответ:
вовчик83
вовчик83
16.08.2022

Відповідь:

в Loop while (a>10) знак сравнения смените на противоположный

Пояснення:

Я не знаю, рабочая ли программа(не знаю vbs), но точно видна ошибка в дувайле, так как у вас оно работает наоборот - при числе, которое меньше 10,программа завершает работу.

4,6(20 оценок)
Открыть все ответы
Ответ:
арсен2000
арсен2000
16.08.2022

void Func(const unsigned int N) {

std::vector<int> A(N);

unsigned int Neg = 0, Pos = 0;

for (unsigned int i = 0; i < A.size(); i++) {

 A[i] = rand() % 10 - rand() % 20;

 std::cout << A[i] << " ";

 if (A[i] >= 0) {

  Pos++;

 }

 else {

  Neg++;

 }

}

std::cout << std::endl;

std::cout <<( Pos > Neg ? "Больше чисел положительных" : "Больше чисел отрицательных либо их количества равны") << std::endl;

}

Объяснение:

Для этого еще подключи <vector>, и, очевидно, <iostream>

4,6(88 оценок)
Ответ:
missisbessonov
missisbessonov
16.08.2022

использовать Робот

алг

нач

нц пока слева стена

 закрасить

 вверх

кц

нц пока справа свободно

 закрасить

 вправо

кц

нц пока справа стена

 закрасить

 вверх

кц

вниз

кон

использовать Робот

алг

нач

нц пока снизу свободно

 вниз

кц

нц пока снизу стена

 влево

кц

вниз

нц пока справа свободно

 вправо

 если сверху стена то закрасить все

кц

нц пока слева свободно

 нц пока клетка чистая

   если слева свободно то влево

     иначе стоп все

   нц пока клетка закрашена

     нц пока снизу свободно

       вниз

       закрасить

     кц

     нц пока сверху свободно

       вверх

     кц

     влево

   кц

 кц

кц

кон

использовать Робот

алг

нач

нц пока справа свободно

 вправо

кц

нц пока справа стена

 вверх

кц

вправо

нц пока снизу свободно

 вниз

 закрасить

кц

нц пока снизу стена

 закрасить

вправо

кц

кон

Объяснение:

надеюсь без скинов норм

4,5(64 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ