0 / 0 / 0
Регистрация: 12.12.2015
Сообщений: 29
1

Определить количество ключевых слов "While", "FOR", "Input"

12.12.2015, 18:17. Показов 1087. Ответов 3
Метки нет (Все метки)

Ввести текст бейсик-программы(10-15 строк). Определить количество ключевых слов "While", "FOR", "Input". Вывести результат.
Помогите, пожалуйста)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2015, 18:17
Ответы с готовыми решениями:

Написать программу,реализующую операции("+","-","*","/") с комплексными числами
Привет!Нужна помощь! Написать программу,реализующую операции("+","-","*","/") с комплексными...

Написать программу, реализующую операции ("+","-","*","\",) c комплексными числами
pulkar zombax Написать программу,реализующую операции ("+","-","*","\",)c комплексными...

Для каждой проведенной игры напечатать словесный результат: "выигрыш", "проигрыш" или "ничья"
Даны два массива из n, однозначных чисел. В первом из них записано кол-во мячей, забитых...

Вывести цену товара в рублях и копейках с использованием слов "рубль" и "копейка"
Дано натуральное число N, выражающее цену товара в копейках (n<1000)вывести цену товара в рублях и ...

3
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
12.12.2015, 20:15 2
Вопрос неясен. Вам нужна программа?
И помощь как в ней разбираться?
Или
Вам нужна программа в виде массива строк.
И другая программа должна все это обработать?
Поясните пожалуйста.
0
0 / 0 / 0
Регистрация: 12.12.2015
Сообщений: 29
12.12.2015, 20:25  [ТС] 3
Второй вариант
0
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
13.12.2015, 10:57 4
Лучший ответ Сообщение было отмечено Kibor как решение

Решение

Программа проверена при произвольном количестве
операторов FOR, WHILE, INPUT (я их просто напихал в про.)

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
58
59
60
61
62
63
CLS
DIM S(14) AS STRING
 
REM  +++ ИНИЦИАЛИЗАЦИЯ МАССИВА +++
 
S(1) = "z = 1073741824"
S(2) = "CLS"
S(3) = "INPUT" + " x = " + "x"
S(4) = "y = x"
S(5) = "x = ABS(x)"
S(6) = "FOR i = 1 TO 100"
S(7) = "   x = x + 1"
S(8) = "NEXT i"
S(9) = "DO WHILE z >= 1"
S(10) = "   IF x >= z THEN x = x - z"
S(11) = "   z = z / 2"
S(12) = "LOOP"
S(13) = "IF y < 0 THEN x = y + x - 1 ELSE x = y - x"
S(14) = "PRINT " + "[x] =" + "; x"
 
REM +++++++++++++++++++++++++++++++
 
k1 = 0
k2 = 0
k3 = 0
 
FOR i = 1 TO 14
   k = 1
   DO
      k = INSTR(k, S(i), "WHILE")
      IF k > 0 THEN
         k1 = k1 + 1
         k = k + 5
      END IF
   LOOP UNTIL k = 0
NEXT i
 
FOR i = 1 TO 14
   k = 1
   DO
      k = INSTR(k, S(i), "FOR")
      IF k > 0 THEN
         k2 = k2 + 1
         k = k + 3
      END IF
   LOOP UNTIL k = 0
NEXT i
 
FOR i = 1 TO 14
   k = 1
   DO
      k = INSTR(k, S(i), "INPUT")
      IF k > 0 THEN
         k3 = k3 + 1
         k = k + 5
      END IF
   LOOP UNTIL k = 0
NEXT i
 
PRINT "WHILE ="; k1
PRINT "FOR ="; k2
PRINT "INPUT ="; k3
END
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2015, 10:57
Помогаю со студенческими работами здесь

Вывести цену товара в рублях и копейках с использованием слов "рубль" и "копейка"
Добрый вечер . Дано натуральное число N, выражающее цену товара в копейках (n&lt;1000)вывести цену...

Дан массив с символьными элементами. Заменить все элементы "К" на элемент "C" и подсчитать их количество
REM К na С INPUT &quot;vvedite kol-vo strok massiva&quot;; N INPUT &quot;vvedite kol-vo stolbcov massiva&quot; M DIM...

Определить количество слов, начинающихся на букву "н" и вывести их на экран
В предложении из 8 слов, определить количество слов, начинающихся на букву &quot;н&quot; и вывести их на...

Занести произвольные данные в одномерный массив и заменить все слова начинающиеся на "а" на символ "0"
Занести произвольные данные в одномерный массив и заменить все слова начинающиеся на &quot;а&quot; на символ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru