Skocz do zawartości

Operacje tekstowe


ciniutek

Polecane posty

Witam .

Mam pewien problem i nie wiem nawet jak za niego się zabrać . Otóż jak napisać program, który z zdania "Aala maa koota" zrobi nam jego poprawną wersje "ala ma kota" ? W PHP zrobiłbym za pomocą str_replace . Próbowałem za pomocą POS , jednak wywala 0 ..

 

Pozdrawiam i z góry dziękuje za wszelkie wskazówki

Link do komentarza
Udostępnij na innych stronach

http://programmershe...in-turbo-pascal

function delete_duplicate(s:string):string;
var    l:byte absolute s;
   ret:string;
   i:byte;ch:char;
begin
   ret:='';ch:=#0;
   for i:=1 to l do
       if upcase(ch)<>upcase(s[i]) then begin
  	     ch:=s[i];
  	     ret:=ret+ch;
       end;
   delete_duplicate:=ret;
end;

begin
   writeln(delete_duplicate('Aala maa koota'));
   readln;
end.

Przerobiłem, żeby działało dla przypadków gdy stoją obok siebie dwie takie same litery o różnej wielkości.

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...