Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Бугагага
0 / 0 / 0
Регистрация: 26.12.2016
Сообщений: 12
1

Составить программу, которая

04.04.2017, 00:35. Просмотров 867. Ответов 1
Метки нет (Все метки)

Для каждого из слов заданного предложения указывает, сколько раз оно встречается в предложение
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.04.2017, 00:35
Ответы с готовыми решениями:

Составить программу, которая будет запрашивать числа
4. Составить программу, которая будет запрашивать числа до тех пор, пока не...

Составить программу, которая в заданном предложении находит самое длинное симметричное слово
составить программу, которая в заданном предложении находит самое длинное...

Составить программу
Здравствуйте, мне требуется помощь по Basic, задали задачу с условиями...

Составить программу с массивами
Задача вроде простая, но я больше по Паскалю работал, нежели по Бейсику, а...

Составить программу, определяющую процент
Заданы оценки каждого из студентов в группе на одном из экзаменов. Составить...

1
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
04.04.2017, 13:56 2
Лучший ответ Сообщение было отмечено Бугагага как решение

Решение

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
CLS
DIM T AS STRING
DIM S AS STRING
DIM MS(100) AS STRING
DIM MN(100) AS LONG
CONST p = " "
 
INPUT "TEXT = "; T
 
T = UCASE$(T)
T = p + T + p
i1 = 1
k = 1
 
DO
   i2 = INSTR(i1 + 1, T, p)
   S = MID$(T, i1 + 1, i2 - i1 - 1)
   MS(k) = S
   k = k + 1
   i1 = i2
LOOP UNTIL i2 = LEN(T)
k = k - 1
 
FOR i = 1 TO k
FOR j = i TO k
   IF MS(i) = "" THEN 100
   IF MS(i) = "" THEN 200
  
   IF MS(i) = MS(j) THEN
      MN(i) = MN(i) + 1
      IF i < j THEN MS(j) = p
   END IF
200
NEXT j, i
100
 
FOR i = 1 TO k
   IF MS(i) <> p THEN
      PRINT MS(i); " ="; MN(i)
   END IF
NEXT
END
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2017, 13:56

Надо написать программу, которая определит, принадлежит ли точка М области
Как решить 2 задачу ? надо написать программу которая определит принадлежит ли...

Составить программу вычисления значений функции y = f(x)
Составить программу вычисления значений функции y = f(x) на промежутке с шагом...

Составить программу для вычисления выражения
Составить программу для вычисления выражения: x=дробь, в числителе y-z+u, в...


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

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

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