Äàíà ñòðîêà ñèìâîëîâ äî òî÷êè. Ãðóïïû ñèìâîëîâ â íåé ìåæäó ãðóïïàìè ïðîáåëîâ ñ÷èòàþòñÿ ñëîâàìè. Ïîñ÷èòàòü, ñêîëüêî ñëîâ ñîäåðæèò äàííàÿ ñòðîêà.
PROGRAM PRG3_3;
VAR S1 : STRING;
J, Ê, I : INTEGER;
BEGIN
WRITELN('BBEÄÈTE ÒÅÊÑÒ ÄÎ ÒÎ×ÊÈ');
READLN(S1);
J := POS('.’, S1);
IF S1[J-1] = " THEN
K:=-1
ELSE
Ê := 0;
S1 :=COPY(S1, 1, J-1);
REPEAT
I := POS(‘. ', S1);
DELETE(S1, 1, I);
IF K>1 THEN
K:=K+1;
UNTIL I = 0;
WRITELN('KÎËÈ×ÅÑÒÂÎ ÑËÎÂ Ê = ', Ê)
END.
Äëÿ ðåøåíèÿ çàäà÷è:
- ôîðìèðóåì òåëî ïðîãðàììû è îïèñûâàåì ïåðåìåííûå;
- ââîäèì ñòðîêó S1;
- îïðåäåëÿåì ìåñòîïîëîæåíèå ïåðâîé òî÷êè â òåêñòå; åñëè òî÷êà åñòü, òî îòðåçàåì îò S1 òåêñò íà÷èíàÿ ñ íåå;
- îðãàíèçóåì ïîèñê â ñòðîêå ïðîáåëîâ äî òåõ ïîð, ïîêà îíè òàì âñòðå÷àþòñÿ;
- íàéäÿ ïðîáåë, îòðåçàåì î÷åðåäíîå ñëîâî è ñëåäóþùèé çà íèì ïðîáåë;
- åñëè â íàéäåííîì ñëîâå åñòü õîòÿ áû îäíà áóêâà, òî óâåëè÷èâàåì ñ÷åò÷èê ñëîâ;
- âûâîäèì ðåçóëüòàò íà ýêðàí.
Ïåðåìåííûå:
I - âñïîìîãàòåëüíàÿ ïåðåìåííàÿ;
J - ìåñòîïîëîæåíèå ïåðâîé òî÷êè;
S1 - ñòðîêà òåêñòà;
Ê - ñ÷åò÷èê ñëîâ.
|