Äàíà ñòðîêà ñèìâîëîâ. Çàìåíèòü â íåé âñå âîñêëèöàòåëüíûå çíàêè íà òî÷êè.
Äàííàÿ ïðîãðàììà ïðåäñòàâëÿåò ñîáîé ïðèìèòèâíûé òðàíñëÿòîð, êîòîðûé òðàíñëèðóåò âñå ñèìâîëû â ñòðîêå êàê îíè åñòü, à âîñêëèöàòåëüíûå çíàêè òðàíñëèðóåò â òî÷êè.
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 - ñòðîêà òåêñòà.
|