Проанализируйте результаты и объясните результат обработки первой строки.

Дополнительный материал к лекции №5.

Задача 1. Удалить из строки все лишние пробелы между словами, кроме одного.

Рис. 1 Алгоритм удаления лишних пробелов

Program projstring;

{$APPTYPE CONSOLE}

Uses

SysUtils;

var s:string[20];

k,i:integer;

ch:char;

Begin

Repeat

Writeln('Enter String');

Readln(s);

s:=trim(s);

k:=length(s);

i:=1;

while i<=k do

Begin

if s[i]=' ' then

while s[i+1]=' ' do

Begin

delete(s,i+1,1);

k:=k-1;

End;

i:=i+1;

End;

writeln('new string =',s);

writeln('Continue?');

Readln(ch);

until ch='n';

End.

Результат работы программы со строкой:

Рис. 2

Проанализируйте результаты и объясните результат обработки первой строки.

Не нашли, что искали? Воспользуйтесь поиском: