Как лучше?

@Zina_ · Регистрация: 17.05.2011

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

В учебнике по Бейсику приведено следующее задание: определить, есть ли в массиве чётные числа. Я написала следующую программу:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
CLS
PRINT "эта программа определяет, есть ли чётные числа в массиве" 
INPUT "Введите количество элементов массива"; n
DIM a(n) AS INTEGER
FOR i = 1 TO n
PRINT "введите"; i; : INPUT "-ый/ой/ий/ элемент массива"; a(i) IF a(i) MOD 2 = 0 THEN
PRINT "есть по крайней мере одно чётное число"
END
END IF
NEXT i
PRINT "чётных чисел нет"

в книге, естественно, приведено другое решение(плюс приписочка, что оно наиболее эффективно из всех возможных):

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
INPUT "N="; N
DIM mas(N) AS INTEGER k = 0
FOR i = 1 TO N
IF mas(i) MOD 2 = 0 THEN k = k + 1
END IF
NEXT i
IF k = 0 THEN
PRINT "нет чётных"
ELSE
PRINT "есть чётные"
END IF

По каким параметрам определяется эффективность?

@PB · 20.05.2011, 19:38

Сообщение от >Quiet Snow<

У меня несколько иные тестовые данные, используем целочисленную арифметику и компилятор QuickBasic 4, программа:

Этот же код, но "скормленный" FB.

FIRST TIME : 4.8699
SECOND TIME: 19.59165
FASTER (%) : 302.3008

@softmob · 20.05.2011, 22:12

новый вариант программы в qb64

Новые блоги и статьи Все статьи Все блоги /
Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .	Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .
Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .	Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .	Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .

@softmob 1255 / 705 / 359 Регистрация: 20.02.2010 Сообщений: 1,035
	20.05.2011, 22:12
	новый вариант программы в qb64 Миниатюры 1