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










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

 

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

Äàíà ñòðîêà ñèìâîëîâ. Çàìåíèòü â íåé âñå âîñêëèöàòåëüíûå çíàêè íà òî÷êè.

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

PROGRAM PRG3_2;

VAR STR : STRING;

L, I: INTEGER;

BEGIN

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

READLN(STR);

L := LENGTH(STR);

WRITELN('ÏÐÅÎÁÐÀÇÎÂÀÍÍÛÉ ÒÅÊÑÒ');

FOR I := 1 TO L DO

IF (STR[I] = '!') THEN WRITE('.')

ELSE

WRITE(STR[I]);

WRITELN

END.

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

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

- öèêë FOR I := 1 ÒÎ L DO îñóùåñòâëÿåò âûâîä ñòðîêè ñ çàìåíîé '!' íà '.'

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

Ïåðåìåííûå:

I - ïåðåìåííàÿ öèêëà;

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

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



 
     
   
 


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

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

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

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

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


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

 


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