Top.Mail.Ru
Ответы
Аватар пользователя
16лет
Изменено
Аватар пользователя
Аватар пользователя
Аватар пользователя
Программирование
+2

Помогите составить программу на Pascal.

Помогите написать программу на Pascal -"Убрать лишние пробелы из строки".

По дате
По рейтингу
Аватар пользователя
Новичок
16лет

var
s:string;
i: integer;
Begin
Write('Vvedite striky');
Readln(s);

i:=1;
repiat
if s=' ' and s[i+1]=' ' then
delete(s,i+1,1);
i:=i+1;
until i+1>length(s);

End.

Аватар пользователя
Гений
16лет

Доброго времени суток.

Вот функция из библиотеки RxLib. Удаляет все не единичные пробелы.

function DelSpace1(const S: string): string;
var
I: Integer;
begin
Result := S;
for I := Length(Result) downto 2 do begin
if (Result[ I ] = ' ') and (Result[ I - 1 ] = ' ') then
Delete(Result, I, 1);
end;
end;

Как использовать в программе догадетесь?

Удачи!

Аватар пользователя
Профи
16лет

бла смотря какую!! ! если простую то сначало пиши
Program dog;
Uses wincrt;
var...дальше смотря какая программа в конце пишем END.
Если процедуры то
Program dog;
Uses wincrt;
Procedura vova;
readln;
var...
writeln...
end;
writeln...
.
.
.
end.

Аватар пользователя
Искусственный Интеллект
16лет

for i:=1 to chislo_probelov do
if probel in lishniy then delete(stroka,probel)