Navigace: Hlavní stránka -> PASCAL -> 10 Znaky, texty ->10.04 Vymazání přebytečných mezer v řetězci znaků

MENU

10.04 Vymazání přebytečných mezer v řetězci znaků

Zadání:
Sestavte program, který vymaže z textu přebytečné mezery.
Řešení:
Program prochází pomocí cyklu FOR zadaný text a hledá mezeru. Pokud ji nalezne, pomocí cyklu WHILE smaže
všechny mezery za ní. 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s:string;
    i:integer;

begin

   write('Zadejte text: ');
   readln(s);

   for i:=1 to length(s)-1 do
      if s[i]=' ' then
         while s[i+1]=' ' do delete(s,i,1);

   writeln('Upraveny retezec: ',s);

   readln;

end.
program ke stažení