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

295351777

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

295351777

1
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
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