Subprogramas em Pascal: Manipulação de Strings e Letras
Subprogramas em Pascal para Manipulação de Strings
1. Subprograma que receba uma string e uma letra e remova essa letra da string.
program strings;
function removerLetra(texto:string; letra:char):string;
var i:integer; resultado:string;
begin
resultado := '';
for i:=1 to length(texto) do
begin
if (texto[i] <> letra) then
begin
resultado := resultado + texto[i];
end;
end;
i := 1;
while (i <= length(texto)) do
begin
if (texto[i] <> letra) then
begin
resultado := resultado + texto[i];
end;
i := i + 1;
end;
removerLetra := resultado;
end;
2. Subprograma que substitui uma letra por outra na string
Receba uma string, search e replace, substituindo...
