Velho... vo tenta aki..., vc me ajudo mto... vlwwwww!!! Um abraço Rafael Jorge <[EMAIL PROTECTED]> wrote:
nao sei se ta certo pois fiz de noite, com ressaca e com sono! mas bateu um espirito amigavel em mim, meu irmao use um for e o comano copy! seria mais ou menos assim: var palavra, final:string; begin palavra:= ''; final:= ''; for i:= 1 to lenght(texto) do begin palavra:= copy(texto,i,1); if copy(texto,i,1) = ' ' then begin final:= final+palavra+palavra; palavra:= ''; end; end; end; On Sun, 2 Jan 2005 23:58:09 -0300 (ART), Felipe Lucate wrote: > > Oi pessoal, estou lascado... tenho qfaze um programinha em pascal q faça o > seguinte... veja o enunciado abaixo: > > 4- escreva um prog em pascal q leia uma frase qq digitada pelo usuário e se > comporte como vírus, ou seja, duplique tds as palavras contidas nesta frase. > Exemplo de frase: > > estou ficando maluco > > resultado: > > estou estou ficando ficando maluco maluco > > Pessoal, por favor me ajudem.. pois nem tenho idéia de como fazer... > > desde já agradeço!!! > > --------------------------------- > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! > agora. > > [As partes desta mensagem que não continham texto foram removidas] > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --------------------------------- Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! agora. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html