Лекция 7. Строки

Примеры

Пример 1. Составим программу, которая формирует символьную строку, состоящую из n звездочек (n целое число , 1 < n < 255).

program Stars; var

A: String;

N, I: Byte; begin

Write('Введите число звездочек'); ReadLn(N);

A := '';

for I:=1 to N do A := A + '*'; WriteLn(A)

end.

Здесь строковой переменной А вначале присваивается значение пустой строки (' '). Затем к ней присоединяются звездочки.

Пример 2. В символьной строке подсчитать количество цифр предшествующих первому символу «!».

program С; var

S: String; К, I: Byte;

begin

WriteLn('Введите строку'); ReadLn(S);

K := 0;

I := 1;

while (I <= length(S)) and (S[I] <> '!') do begin

if (S[I] >= '0') and (S[i] <= '9') then k := k + 1;

I := I + 1 end;

WriteLn('Количество цифр до символа «!» равно', К) end.

В этой программе переменная к играет роль счетчика цифр, а переменная I роль параметра цикла. Цикл закончит выполнение при первом же выходе на символ ! или, если в строке такого символа нет, при выходе на конец строки. Символ S[I] является цифрой, если

33