Äàíà ñòðîêà ñèìâîëîâ äî òî÷êè. Ãðóïïû ñèìâîëîâ â íåé ìåæäó ãðóïïàìè ïðîáåëîâ ñ÷èòàþòñÿ ñëîâàìè. Îïðåäåëèòü äëèíó ñàìîãî êîðîòêîãî è ñàìîãî äëèííîãî ñëîâà.
PROGRAM PRG3_4;
VAR SI : STRING;
MAX, MIN, I, J : INTEGER;
BEGIN
WRITELN('BBEÄÈTE ÒÅÊÑÒ ÄÎ ÒÎ×ÊÈ');
READLN(SI);
J := POS('.', SI);
S1 :=COPY(S1, 1, J-1);
MAX := 0;
MIN := 256;
REPEAT
I := POS(' ', S1);
DELETE(S1, 1, I);
IF M>MAX THEN
MAX := I-1;
IF (M<MIN)AND(I>1) THEN
MIN := I-1;
UNTIL I = 0;
WRITELN('CAMOE ÄËÈÍÍÎÅ ÑËÎÂÎ MAX = ', MAX);
WRITELN('CAMOE ÊÎÐÎÒÊÎÅ ÑËÎÂÎ MIN = ', MIN)
END.
Äëÿ ðåøåíèÿ çàäà÷è:
- ôîðìèðóåì òåëî ïðîãðàììû è îïèñûâàåì ïåðåìåííûå;
- ââîäèì ñòðîêó S1;
- îïðåäåëÿåì ìåñòîïîëîæåíèå ïåðâîé òî÷êè â òåêñòå; åñëè òî÷êà åñòü, òî îòðåçàåì îò S1 òåêñò íà÷èíàÿ ñ íåå;
- óñòàíàâëèâàåì íà÷àëüíûå çíà÷åíèÿ ÌÀÕ è MIN;
- îðãàíèçóåì ïîèñê â ñòðîêå ïðîáåëîâ äî òåõ ïîð, ïîêà îíè òàì âñòðå÷àþòñÿ;
- íàéäÿ ïðîáåë, îòðåçàåì î÷åðåäíîå ñëîâî âìåñòå ñî ñëåäóþùèì çà íèì ïðîáåëîì è ñðàâíèâàåì åãî äëèíó ñ ÌÀÕ è MIN;
- â ñëó÷àå íåîáõîäèìîñòè ïåðåóñòàíàâëèâàåì çíà÷åíèÿ ÌÀÕ è MIN;
- âûâîäèì ðåçóëüòàò íà ýêðàí.
Ïåðåìåííûå:
I - íîìåð ïîçèöèè, êîòîðàÿ ñîîòâåòñòâóåò ïðîáåëó;
J - ìåñòîïîëîæåíèå ïåðâîé òî÷êè;
S1 - ñòðîêà òåêñòà;
ÌÀÕ - äëèíà íàèáîëüøåãî ñëîâà;
MIN - äëèíà íàèìåíüøåãî ñëîâà.
|