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

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

21.05.2013, 21:42. Просмотров 276. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить какое слово больше (QBasic):

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

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

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

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

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

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

1
softmob
1249 / 699 / 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