В заданном предложении найти самое длинное и самое короткое слово

@shemekeev · Регистрация: 21.12.2011

Author24 — интернет-сервис помощи студентам

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

@Quiet Snow · 12.03.2012, 18:26

Держи, коменты писать не буду.

PureBasic

CLS
INPUT "Vvedi predlojenie: ", P$
   FOR i% = 1 TO LEN(P$)
      S$ = MID$(P$, i%, 1)
      IF Sp% = 0 OR S$ <> " " THEN PN$ = PN$ + S$
      IF S$ = " " THEN Sp% = 1 ELSE Sp% = 0
   NEXT
PN$ = LTRIM$(RTRIM$(PN$)) + " "
 
5  Tk% = 1: Pr% = Pr% + 1: St% = 0
   DO
     Tk% = INSTR(Tk% + 1, PN$, " ")
     St% = (Tk% - St%) - 1
       PRINT St%
        IF St% < Min% THEN MnI% = Tk%: Min% = St%
        IF St% > Max% THEN MxI% = Tk%: Max% = St%
     St% = Tk%
   LOOP UNTIL Tk% = LEN(PN$)
IF Pr% < 2 THEN Min% = Max%: GOTO 5
 
PRINT "Min slovo: "; MID$(PN$, MnI% - Min%, Min%)
PRINT "Max slovo: "; MID$(PN$, MxI% - Max%, Max%)

@shemekeev · 13.03.2012, 12:05 **[ТС]**

спасибо большое))

@shemekeev 0 / 0 / 0 Регистрация: 21.12.2011 Сообщений: 12
		1
	В заданном предложении найти самое длинное и самое короткое слово 12.03.2012, 15:44. Показов 2061. Ответов 2 Метки нет (Все метки) создать программу,которая в заданном предложении находит самое длинное и самое короткое слово 0

@shemekeev 0 / 0 / 0 Регистрация: 21.12.2011 Сообщений: 12
	13.03.2012, 12:05 [ТС]	3
	спасибо большое)) 0

В заданном предложении найти самое длинное и самое короткое слово

Решение