Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
295351777
1

Напишите программу, вычисляющую длину самого короткого слова в предложении из трех слов

20.05.2013, 21:38. Показов 1526. Ответов 1
Метки нет (Все метки)

1.Напишите программу, вычисляющую длину самого короткого слова в предложении из трех слов, разделенных пробелами.
2.Напишите программу "дождь" - на экране появляется (случайным образом) рисуется 50 точек и они движутся сверху вниз. В тот момент, когда одна из точек достигнет нижней границы экрана, точка появляется в верхней части.

буду очень благодарен за помощь!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2013, 21:38
Ответы с готовыми решениями:

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

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

Вычислите длину самого короткого слова (в предложении из трех слов, разделенных пробелами)
вычислите длину самого кроткого слова в предложении из трех слов разделенными пробелами. То что я...

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

1
156 / 46 / 70
Регистрация: 01.07.2014
Сообщений: 185
08.07.2014, 15:50 2
Лучший ответ Сообщение было отмечено как решение

Решение

1
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
DEFSTR S-T
DEFINT I-K
CLS
INPUT "TEXT"; t
t = " " + t + " "
j1 = 1
kmin = LEN(t)
 
FOR i = 2 TO LEN(t)
   j2 = INSTR(i, t, " ")
   IF j2 <> 0 THEN
      k = j2 - j1 - 1
      IF kmin > k THEN kmin = k
      j1 = j2
      i = j2 + 1
   END IF
NEXT
PRINT " MIN = "; kmin
END
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
DEFINT D, I-K, X-Y
DIM x(1 TO 50)
DIM y(1 TO 50)
RANDOMIZE TIMER
 
FOR i = 1 TO 50
   x(i) = 500 * RND + 70
   y(i) = 400 * RND + 40
NEXT i
SCREEN 12
d = 2
 
DO
   FOR i = 1 TO 50
      IF y(i) + d > 440 THEN
         x(i) = 500 * RND + 70
         y(i) = 40
      ELSE
         y(i) = y(i) + d
      END IF
   NEXT i
 
   FOR i = 1 TO 50
      PSET (x(i), y(i)), 15
   NEXT i
 
   FOR i = 1 TO 50
      PSET (x(i), y(i)), 0
   NEXT i
LOOP WHILE INKEY$ = ""
END
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.07.2014, 15:50

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

Вычислить длину самого короткого слова в предложении
вычислить длину самого короткого слова в предложении.... Зарание Спасибо!=)

Вычислите длину самого короткого слова в предложении
7. Вычислите длину самого короткого слова в предложении из трех слов, разделенных пробелами.

Вычислите длину самого короткого слова в предложении
Вычислите длину самого короткого слова в предложении из трёх слов,разделёёных пробелами

Найти длину самого короткого слова в предложении
Найти длину самого короткого слова в предложении

Определить длину самого короткого слова и его номер в предложении
Дано предложение. Определить длину его самого короткого слова и номер этого слова в предложении.


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

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

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