Основы программирования на языке Turbo Pascal. Беляева И.В. - 141 стр.

UptoLike

Составители:

Рубрика:

141

else

i:=i+1; {Переход к следующему символу}

{Вывод получившейся строки}

writeln('Получили строку: ',s);

end.

В этом примере есть 2 места, в которых можно чувствительно

упростить программу. Начнем со второго:

{**2**} Вместо записи s[0]:=chr(ord(s[0])-1); можно написать dec(s[0])

– эффект будет тот же.

Теперь первое:

{**1**} Вместо записи if (s[i]='.') or (s[i]=',') or (s[i]=':') or (s[i]='-')

можно записать if s[i] in [‘.’,’,’,’:’,’-’] – эффект будет тот же.

Последняя строка требует пояснения. Дело в том, что при обработке

строк в Turbo Pascal весьма широко и эффективно

используются

множества.

Операции над строками string

В Turbo Pascal над строками типа String определены операция

сравнения и операция склеивания. Операция склеивания обозначается

знаком +. Кроме этого, для строк можно использовать оператор

присваивания :=.

Продемонстрируем использование операций на примере:

var

a, b, c: string; {Три строки}

name: string; {Имя – тоже строка}

begin

a := 'Ваня'; {В A занесли строку ‘Ваня’}