Segue o programa. Espero que seja isso.
Para sair digitar "/sair" sem as aspas.
program DuplicaTexto;
var
texto : string;
i : integer;
palavra : string;
saida : string;
begin
repeat
readln(texto);
if (texto = '/sair') or (texto = '/SAIR') then
break;
palavra := '';
saida := '';
for i := 1 to length(texto) do
if (texto[i] = ' ') or // espaço
(texto[i] = #9) then // tab
begin
saida := saida + palavra + ' ' + palavra + '
';
palavra := ''
end
else
palavra := palavra + texto[i];
saida := saida + palavra + ' ' + palavra;
writeln(saida);
until false;
end.
----- Original Message -----
From: Rubem Rocha
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 03, 2005 10:17 AM
Subject: RES: [delphi-br] POR FAVOR.. ME AJUDEM COM
UM PROGRAMINHA DE PASCAL.... É URGENTE!!!!
Deixa eu advinhar... trabalho de faculdade né?
[]s
-----Mensagem original-----
De: Felipe Lucate [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 3 de janeiro de 2005
00:55
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] POR FAVOR.. ME AJUDEM COM UM
PROGRAMINHA DE PASCAL.... É URGENTE!!!!
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
---------------------------------
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
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system
(http://www.grisoft.com).
Version: 6.0.799 / Virus Database: 543 - Release
Date: 19/11/2004
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web,
acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está
sujeito aos Termos do Serviço do Yahoo!.
[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]
Yahoo! Grupos, um serviço oferecido por:
São Paulo
Rio de Janeiro
Curitiba Porto
Alegre Belo Horizonte
Brasília
---------------------------------
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 Termos do Serviço do Yahoo!.
_______________________________________________________
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora.
http://br.acesso.yahoo.com/ - Internet rápida e grátis
--
<<<<< 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
