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










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

 

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

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

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 - äëèíà íàèìåíüøåãî ñëîâà.



 
     
   
 


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

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

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

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

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


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

 


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