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










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

 

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

Äàíà ñòðîêà ñèìâîëîâ. Óäàëèòü èç íåå ïåðâûé çíàê ïðåïèíàíèÿ.

Äëÿ ðåøåíèÿ äàííîé çàäà÷è íàì ïîíàäîáèòñÿ îáúÿâèòü ìíîæåñòâî çíàêîâ ïðåïèíàíèÿ Ì. Çàòåì, ïîñëåäîâàòåëüíî ïðîâåðÿÿ êàæäûé ñèìâîë ñòðîêè íà ïðèíàäëåæíîñòü ýòîìó ìíîæåñòâó, íàéäåì ïåðâûé çíàê ïðåïèíàíèÿ. Íàéäÿ çíàê, íåîáõîäèìî äîñðî÷íî âûéòè èç öèêëà ïðîâåðêè, íàïðèìåð ñ ïîìîùüþ îïåðàòîðà BREAK.

PROGRAM PRG3_1;

VAR STR : STRING;

L, I, J : INTEGER; M : SET OF CHAR;

BEGIN

WRITELN('BBEÄÈTE ÒÅÊÑÒ');

READLN(STR);

L := LENGTH(STR);

FOR I := 1 TO L DO

IF NOT(STR[l] IN M) THEN

WRITE(STR[I])

ELSE

BREAK;

FOR J := 1+1 TO L DO

WRITE(STR[J]);

WRITELN

END.

Äëÿ ðåøåíèÿ çàäà÷è:

- ôîðìèðóåì òåëî ïðîãðàììû è îïèñûâàåì ïåðåìåííûå;

- çàäàåì çíà÷åíèå ìíîæåñòâà Ì - ìíîæåñòâà çíàêîâ ïðåïèíàíèÿ;

- öèêë FOR I := 1 ÒÎ L DO îñóùåñòâëÿåò âûâîä ñòðîêè äî ïåðâîãî çíàêà ïðåïèíàíèÿ;

- öèêë FOR J := 1+1 ÒÎ L DO âûâîäèò ñòðîêó ïîñëå ïåðâîãî çíàêà ïðåïèíàíèÿ;

- ïîñëå âûâîäà çàêðûâàåì ñòðîêó îïåðàòîðîì WRITELN.

Ïåðåìåííûå:

I, J - ïåðåìåííûå öèêëîâ;

L - äëèíà ñòðîêè;

STR - ñòðîêà òåêñòà;

Ì - ìíîæåñòâî çíàêîâ ïðåïèíàíèÿ.



 
     
   
 


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

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

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

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

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


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

 


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