Çàî÷íîå äèñòàíöèîííîå îáðàçîâàíèå ñ ïîëó÷åíèåì ãîñóäàðñòâåííîãî äèïëîìà ÷åðåç Internet










Ïîëó÷èòü èíôîðìàöèþ î ïîñòóïëåíèè
 
Ãëàâíàÿ Íîâîñòè Êàðòà ñàéòà Ôîòîàëüáîì Ãîñòåâàÿ êíèãà Êîíòàêòû

 

Óïðàæíåíèå 3 (Ñèìâîëüíûå ïåðåìåííûå è ñòðîêè)

Äàíà ñòðîêà ñèìâîëîâ äî òî÷êè. Ãðóïïû ñèìâîëîâ â íåé ìåæäó ãðóïïàìè ïðîáåëîâ ñ÷èòàþòñÿ ñëîâàìè. Ïîñ÷èòàòü, ñêîëüêî ñëîâ ñîäåðæèò äàííàÿ ñòðîêà.

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 - ñòðîêà òåêñòà;

Ê - ñ÷åò÷èê ñëîâ.



 
     
   
 


Ïðèãëàøàåì ïðèíÿòü ó÷àñòèå â êðóãëîì ñòîëå!
ïîäðîáíåå   >>>
 

Èíñòèòóò Ìåíåäæìåíòà, Ýêîíîìèêè è Èííîâàöèé íà÷èíàåò íàáîð íà êóðñû ïîâûøåíèÿ êâàëèôèêàöèè!
ïîäðîáíåå   >>>
 

Óâàæåìûå ñòóäåíòû ÀÍÎ ÂÏÎ ÈÌÝèÈ!
ïîäðîáíåå   >>>
 

Íà÷èíàåòñÿ íàáîð íà êóðñû ïîâûøåíèÿ êâàëèôèêàöèè!
ïîäðîáíåå   >>>
 

Ïðèãëàøàåì ïðèíÿòü ó÷àñòèå â êîíôåðåíöèÿõ!
ïîäðîáíåå   >>>
 


âñå íîâîñòè...

 


Ðàññûëêè Subscribe.Ru
Ñîâðåìåííîå îáðàçîâàíèå
Ïîäïèñàòüñÿ ïèñüìîì