Структуры данных. Строки - 11 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

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

Рубрика: 

13
Выход из цикла
while (k<=n) and (S[k]<>i) do происходит, если
закончились символы строки или найден символ, совпадающий с символом i. По
умолчанию компилятор языка Pascal проверяет первое условие и если оно истин-
но, то только тогда проверятся второе. Если неизвестен порядок проверки усло-
вий, то необходимо обезопасить решение от выхода за границу строки (k уже
больше n, но проверяется S[k]<>i
). Тогда можно использовать логическую пе-
ременную flag.
program S_3_2;
var n, k, i: integer;
s: string;
flag: boolean; {признак отсутствия буквы в строке}
begin
writeln (’Введите строку’);
readln (S);
n := length(S);
for i := ’a’ to ’z’ do
begin
k := 1; flag := true;
while (k<=n) and flag do
if S[k] = i then
flag := false
else
k := k+1;
if not flag then
write(i,’ ’)
end;
writeln
end.

Страницы