--> [pascal] Programa <--

[jordemen]

Pessoal, gostaria k me arranjassem o código de um programa em pascal, para de uma palavra fazer o seguinte: EX (palavra TURBO) :
TURBO
TO
TUBO
TURRBO
TURBURBO
TURBOTURBO

E que tenho de fazer este trabalho mas nao percebo nada de pascal... se me poderem ajudar agradecia...desde ja obrigado a todos...
abraços, jordemen

 

[Mr. Brightside]

O melhor vai ser dizer em que é que tens dúvidas, que aqui ninguém te vai fazer o trabalho.

 

[jordemen]

eu ja fiz, mas aparece do tipo:
TO
UB
RR
BU
OT
e nao é bem isto k eu kero, ou seja, falta-me o resto das letra e nao sei komu fazer...

 

[andrepadez]

Desculpa mas não consigo perceber qual a correlação entre as palavras pretendidas. Sem isso é dificil construir um algoritmo.

Já agora, posta o código que já fizeste

 

[jordemen]

código ja feito

Aki vai o código k ja fiz, como pedido:

uses crt;
var Pal: string;
    Idx, Aux, Udx, Abc, Zzz :integer;
Begin
     clrscr;
     writeln ('Introduza uma palavra');
     readln(Pal);
     Aux:=1;
     Udx:=length(Pal);
     For Idx:=Aux to length(Pal) do Begin
         write (Pal[Idx]);
         writeln(Pal[Udx]);
     end;
     readln;
end.

 

[Mach4_PT]

Desculpa mas não consigo perceber qual a correlação entre as palavras pretendidas. Sem isso é dificil construir um algoritmo.

Já agora, posta o código que já fizeste

A relação é:
1ª e ultima letra
1ª, 2ª e penultima e ultima letra
1ª, 2ª, 3ª - Antepenultima, penultima, ultima...

etc até chegares ao fim da palavra...

Sobre o programa: Não sei se dá para fazer em pascal visto nc ter olhado para isso mas tenta por as letras da palavra num array... depois é facil