С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
fanat2011
13 / 13 / 5
Регистрация: 02.08.2012
Сообщений: 163
1

Определить какое слово больше

21.05.2013, 21:42. Просмотров 284. Ответов 1
Метки нет (Все метки)

Вечер добрый!
Надо определить какое с двух первых слов имеет больше символов
Вот код который я написал, только он не хочет правильно работать:
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
REM string_3
CLS
DIM fio$
k = 0
t1 = 0
t2 = 0
INPUT "Vvedit vashe prizvushe, imja, po batkovi: ", fio$
CLS
PRINT fio$
FOR i = 1 TO LEN(fio$)
    IF fio$(i) = " " THEN
        k = k + 1
    ELSEIF k = 0 THEN
        t1 = t1 + 1
    ELSEIF k = 1 THEN
        t2 = t2 + 1
    ELSE
        EXIT FOR
 
    END IF
NEXT
IF t1 < t2 THEN
    PRINT "Imja maje bilshy dovzhuny niz privyshe!"
ELSEIF t1 > t2 THEN
    PRINT "Prizvushe maje bilshy dovzuny niz imja!"
ELSE
    PRINT "Prizvushe ta imja odnakovi za dovshunoyu!"
END IF
END
Жду ответа, спасибо!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2013, 21:42
Ответы с готовыми решениями:

Определить, какое количество чисел в последовательности больше своего последующего соседа
Вводится последовательность ненулевых чисел, завершаемая нулем. Определить, какое количество чисел...

Даны три числа a, b, c. Определить какое из них равно d
Даны три числа a, b, c. Определить какое из них равно d. Если ни одно число не равно d, то найти...

Определить сколько в цикле четных чисел и какое из введенных наибольшее
Помогите решить еще одну задачу: в цикле вводится пять произвольных чисел, определить сколько из...

Определить, какое количество целых полос потребуется для оклейки помещения
помогите решить задачу...Помещение площадью ахb оклеивается обоями одинакового цвета, но разной...

Определить, какое количество целых полос потребуется для оклейки помещения
Помогите, пожалуйста, с задачкой! Помещение площадью ахb оклеивается обоями одинакового цвета,...

1
softmob
1250 / 700 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
21.05.2013, 21:44 2
fio$(i) замени на mid$(fio$, i, 1)
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.05.2013, 21:44

Определить, какое количество рулонов каждого типа потребуется для оклейки комнаты
Здравствуйте. Нужно подправить задачку, вот условие: В распоряжении ремонтной бригады имеются...

Имеются числа 1, 5, 25, 625. необходимо определить какое минимальное кол-во чисел нужно использовать, чтобы собрать введенное число
Имеются числа 1, 5, 25, 625. необходимо определить какое минимальное кол-во чисел нужно...

Определить, что все числа больше 0 и меньше 7
ЗАДАЧА 1. Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru