10.06 Vynechání znaků a,A a zdvojení znaků b,B
Zadání:
Sestavte program, který vynechá ze zadaného řetězce všechny znaky a,A a zdvojí znaky b,B.
Sestavte program, který vynechá ze zadaného řetězce všechny znaky a,A a zdvojí znaky b,B.
Řešení:
Program prochází pomocí cyklu FOR zadaný text, každý znak otestuje pomocí příkazu CASE. Písmena a, A
vynechá, písmena b, B zdvojí a ostatní písmena beze změny přepíše do výstupního řetězce.
Program prochází pomocí cyklu FOR zadaný text, každý znak otestuje pomocí příkazu CASE. Písmena a, A
vynechá, písmena b, B zdvojí a ostatní písmena beze změny přepíše do výstupního řetězce.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var s,v:string;
i:integer;
begin
write('Zadejte retezec: ');
readln(s);
v:='';
for i:=1 to length(s) do
case s[i] of
'a','A': ;
'b','B': v:=v+s[i]+s[i];
else v:=v+s[i];
end;
writeln('Upraveny text: ',v);
readln;
end.
program ke stažení