Ir para conteúdo
Fórum Script Brasil
  • 0

por favor,uma mãozinha numa questão de pascal


drspscbr

Pergunta

2 respostass a esta questão

Posts Recomendados

  • 0
Alguém sabe com que código eu resolvo a seguinte questão:

"Ler uma string e mostrar as iniciais de cada palavra. Exemplo: ‘Programar é moleza’ -> ‘Pém’."

Agradeço de antemão

Estou sem delphi aki para fazer o codigo

se você quizer depois faço pra você

mais a logica é o seguinte

faz um laço ate o Length da string (length é a funçao que retorna o valor inteiro o numero de caracteres de uma string)

dento do laço você faz se o caracter for = '' você pega o proximo

ate acabar a string

lembrando de sempre pegar o primeiro

deve fica algo assim

for i to length(frase) do

begin

if frase = '' then

begin

achou := frase[i + 1];

palavrafinal := palavrafinal[j] + achou;

j := j + 1;

end;

end;

Link para o comentário
Compartilhar em outros sites

  • 0
Alguém sabe com que código eu resolvo a seguinte questão:

"Ler uma string e mostrar as iniciais de cada palavra. Exemplo: ‘Programar é moleza’ -> ‘Pém’."

danielrgoes ... foi necessário fazer algumas correções no seu código, mas a idéia era essa mesma

procedure TForm1.Button1Click(Sender: TObject);
var i,j : integer; achou : string;
begin
   Edit2.Clear;
   for i := 1 to length(Edit1.Text) do
      begin
         if i = 1 then
            Edit2.Text := Edit1.Text[i];

         if Edit1.Text[i] = ' ' then
            begin
               achou := Edit1.Text[i + 1];
               Edit2.Text := Edit2.Text + achou;
            end;
      end;
end;

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...