Сравнение слов по заданному алфавиту

@Kosor · Регистрация: 22.10.2012

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

Дан алфавит, состоящий из трех символов: ъ, ь, ы. Нужно составить программу, которая определит какое из двух, вводимых слов больше. То есть мы введем 2 слова, например: ьъъъъыь и ъьы, второе слово будет больше, так как его первый символ (ъ) стоит в данном алфавите раньше, чем первый символ второго слова (ь). Или два слова: ыъъъъь и ыъъъъыъъъъ, первое слово будет больше, т.к. с 1 по 5 символ у слов идентичны, а 6 символ первого слова стоит в алфавите раньше, чем 6 символ второго слова. Вот по такому вот принципу...

@m-ch · 20.07.2015, 20:14

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

Если функция len работает со строковым типом, который имеет нуль терминатор на конце(строка фиксированного размера), то код будет тормозить тем больше, чем длиннее строка

Проверил на VBA, скорость работы от размера строки не зависит:

@CoderHuligan · 20.07.2015, 20:29

Сообщение от m-ch

Из справки VBA 32х разрядного офиса:

Из справки к free basic: В диалектах -lang fb и -lang fblite , тип данных Integer имеет 32 бита.

Сообщение от m-ch

Если строка должна вводится с клавиатуры, то как мы можем заранее знать какой он длины?

Смысл задачи в том чтобы понять какое из двух слов больше или меньше. Где вы видели слово больше чем в 100 знаков?

Сообщение от m-ch

какие лишние проверки если вмест

В любом случае, после каждой конструкции elseif будут проводится проверки.
Надо было бы добавить ещё один шестой goto, примерно так:

QBasic/QuickBASIC
1
2
3
4
IF d2% = d1% THEN PRINT B$;" ravno ";A$ :  GOTO M2
IF r% = d2% THEN  PRINT A$;" bolshe chem ";B$ : GOTO M2
IF r% = d1% THEN  PRINT A$;" menshe chem ";B$
M2:

Вот так будет правильней всего!

@m-ch · 21.07.2015, 08:14

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

Вот так будет правильней всего!

И в чем приемущество Goto над стандартной конструкцией If?
О каких проверках речь?
Тест на скорость показал, что Goto замедляет работу

Кликните здесь для просмотра всего текста

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
CONST n = 10000000
DIM i AS LONG, t AS SINGLE
CLS
 
t = TIMER
FOR i = 1 TO n
    IF 1 = 2 THEN GOTO M1
    IF 1 = 2 THEN GOTO M1
    IF 1 = 1 THEN :
M1:
NEXT i
PRINT "Test 1/1", TIMER - t
 
t = TIMER
FOR i = 1 TO n
    IF 1 = 2 THEN
    ELSEIF 1 = 2 THEN
    ELSEIF 1 = 1 THEN
    END IF
NEXT i
PRINT "Test 1/2", TIMER - t
 
t = TIMER
FOR i = 1 TO n
    IF 1 = 2 THEN GOTO M2
    IF 1 = 1 THEN GOTO M2
    IF 1 = 1 THEN :
M2:
NEXT i
PRINT "Test 2/1", TIMER - t
 
t = TIMER
FOR i = 1 TO n
    IF 1 = 2 THEN
    ELSEIF 1 = 1 THEN
    ELSEIF 1 = 1 THEN
    END IF
NEXT i
PRINT "Test 2/2", TIMER - t
 
t = TIMER
FOR i = 1 TO n
    IF 1 = 1 THEN GOTO M3
    IF 1 = 1 THEN GOTO M3
    IF 1 = 1 THEN :
M3:
NEXT i
PRINT "Test 3/1", TIMER - t
 
t = TIMER
FOR i = 1 TO n
    IF 1 = 1 THEN
    ELSEIF 1 = 1 THEN
    ELSEIF 1 = 1 THEN
    END IF
NEXT i
PRINT "Test 3/2", TIMER - t

@m-ch · 21.07.2015, 08:21

На VBA картина аналогичная:

Code
1
2
3
4
5
6
Test 1/1       0,140625 
Test 1/2       0,1386719 
Test 2/1       0,1210938 
Test 2/2       0,1191406 
Test 3/1       8,007813E-02 
Test 3/2       8,007813E-02

@CoderHuligan · 21.07.2015, 14:10

У меня почему-то всегда больше скорость с goto

:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
CONST n = 1000000000
DIM i AS LONG, t AS SINGLE
DIM AS SINGLE a,b
CLS
 t = TIMER
FOR i = 1 TO n
    IF 1 = 1 THEN 
    ELSEIF 1 = 1 THEN
    ELSEIF 1 = 1 THEN 
    END IF
NEXT i
a=TIMER - t
PRINT "Test 3/2", a
t = TIMER
FOR i = 1 TO n
    IF 1 = 1 THEN   GOTO M3
    IF 1 = 1 THEN   GOTO M3
    IF 1 = 1 THEN :
M3:
NEXT i
b=TIMER - t
PRINT "Test 3/1",b
IF b<a THEN 
PRINT "skorost elsif menshe chem  goto v"; a/b; " raza, ili menshe na"; 100-(b*100/a);" %"
ELSEIF b>a THEN
PRINT " skorost goto menshe chem  elsif v"; b/a; " raza, ili menshe na"; 100-(a*100/b);" %"
ELSEIF b=a THEN
PRINT "skorosti ravnyi"
EndIf
SLEEP

Добавлено через 9 минут
Причём больше на 17-25%...
Видимо, всё таки VBA, которым вы пользуетесь, является, как и задумывалось, всего лишь интерпретируемым приложением Word, не более того. Со всеми вытекающими, из этого факта, следствиями. Найдите себе настоящий язык программирования, в конце концов.

@m-ch · 21.07.2015, 14:33

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

Найдите себе настоящий язык программирования, в конце концов.

Спасибо за заботу, но я сам разберусь на чем мне программировать.
Учитывая, что имел опыт программирования на Java, C, php - Basic является любимым языком, не смотря на все его недостатки и ограничения, т.к. в нем быстрее всего получается запрограммировать и отладить алгоритмы. Ну а после того, как получен работоспособный код, то его можно перевести на другие языки (по крайней мере мне так удобнее).

Кстати, запись

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

DIM AS SINGLE a,b

и

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

EndIf

какое имеет отношение к QBasic? Это какой диалект?

@CoderHuligan · 21.07.2015, 17:50

Сообщение от m-ch

какое имеет отношение к QBasic? Это какой диалект?

По моему, это тот же самый qbasic. У меня на free basic всё правильно компилится с директивой #lang= "qb".

Добавлено через 3 часа 5 минут
Директива #lang "qb", без =

@AlexDeSex · 21.07.2015, 19:42

QBasic/QuickBASIC
1
2
3
4
IF d2% = d1% THEN PRINT B$;" ravno ";A$ :  GOTO M2
IF r% = d2% THEN  PRINT A$;" bolshe chem ";B$ : GOTO M2
IF r% = d1% THEN  PRINT A$;" menshe chem ";B$
M2:

Не знаю, как насчет времени выполнения, но такой фрагмент понятен сразу даже при беглом чтении. А вот вариант

QBasic/QuickBASIC
1
2
3
4
5
6
7
IF d2% = d1% THEN 
    PRINT B$;" ravno ";A$ 
ELSEIF r% = d2% THEN 
    PRINT A$;" bolshe chem ";B$
ELSEIF r% = d1% THEN 
    PRINT A$;" menshe chem ";B$
ENDIF

требует времени для осмысления.

@Sasha_Smirnov · 24.07.2015, 03:18

Ещё один учебный вариант (в архиве исполняемый VBS-файл):

@Sasha_Smirnov · 24.07.2015, 04:00

Ещё один весёлый урок (40 минут) довёл образчик кода до вот этого:

@Sasha_Smirnov · 24.07.2015, 16:26

Замечателен хронометраж и прочие изыскания m-ch, DeSex, m-ch, CoderHuligan’а! (Испытать затрудняюсь — просто почитал.)

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

Примечание:
Бейсик сам сравнивает строковые переменные по всем буквам сразу, независимо от длины слов.
Удачи вам!

@Quiet Snow · 24.07.2015, 19:33

Меня убила эта тема и то, что тут учитал... С годами всё веселее и веселее.

@locm · 24.07.2015, 20:13

Раздел по QB, а обсуждают FB и VBA...

@Sasha_Smirnov · 26.04.2016, 14:50

Да просто интересно поковыряться в текстах! A QB мало у кого стоит. Это нормально.

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

С годами всё веселее и веселее.

Прямо по Сталину. Какой, однако, впечатлительный!

Новые блоги и статьи Все статьи Все блоги /
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .

@Kosor 0 / 0 / 0 Регистрация: 22.10.2012 Сообщений: 35

	Сравнение слов по заданному алфавиту 26.11.2012, 19:50. Показов 3233. Ответов 33 Метки нет (Все метки) Дан алфавит, состоящий из трех символов: ъ, ь, ы. Нужно составить программу, которая определит какое из двух, вводимых слов больше. То есть мы введем 2 слова, например: ьъъъъыь и ъьы, второе слово будет больше, так как его первый символ (ъ) стоит в данном алфавите раньше, чем первый символ второго слова (ь). Или два слова: ыъъъъь и ыъъъъыъъъъ, первое слово будет больше, т.к. с 1 по 5 символ у слов идентичны, а 6 символ первого слова стоит в алфавите раньше, чем 6 символ второго слова. Вот по такому вот принципу... 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	24.07.2015, 19:33
	Меня убила эта тема и то, что тут учитал... С годами всё веселее и веселее. 0

@locm 7157 / 3335 / 343 Регистрация: 28.10.2011 Сообщений: 13,162 Записей в блоге: 7
	24.07.2015, 20:13
	Раздел по QB, а обсуждают FB и VBA... 0