Pascal/Turbo Pascal - Programa de PASCAL imposible de resolver

 
Vista:

Programa de PASCAL imposible de resolver

Publicado por astor (1 intervención) el 11/01/2011 17:51:40
Hola amigos hace timepo que os leo y solo quiero agradeceros vuestra ayuada y daros la nhorabuena por este mágnifico foro.

Os dejo aqui un problemilla que me tiene liada la cabeza.

Escribe un programa que lea una palabra P de N letras sobre un vector y construya una matriz como la del ejemplo. Muestra la matriz en la pantalla.

PELOTA


P E L O T A
E L O T A P
L O T A P E
O T A P E L
T A P E L O
A P E L O T


GRACHE
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Programa de PASCAL imposible de resolver

Publicado por ramon (2158 intervenciones) el 14/02/2011 18:20:50
program vector;
uses
dos, crt;
type
string6 = string[6];

var
dat : array[1..50] of string[6];
dato : string[6];
i, h : integer;

procedure coloca(en : string6);
begin
i := length(en);
dat[1] := copy(en,1,length(en));
dat[2] := copy(en,2,length(en)) + en[1];
dat[3] := copy(en,3,length(en)) + en[1] + en[2];
dat[4] := copy(en,4,length(en)) + en[1] + en[2] + en[3];
dat[5] := copy(en,5,length(en)) + en[1] + en[2] + en[3] + en[4];
dat[6] := copy(en,6,length(en)) + en[1] + en[2] + en[3] + en[4] + en[5];
end;

Sencillo no.

procedure presenta(da : string6);
begin
coloca(da);
for h := 1 to length(da) do
writeln(dat[h]);
end;

begin
clrscr;
textcolor(15);
writeln('El REAL......');
writeln;
textcolor(14);
writeln('PELOTA');
writeln('ELOTAP');
writeln('LOTAPE');
writeln('OTAPEL');
writeln('TAPELO');
writeln('APELOT');
writeln;
textcolor(15);
writeln('El REALIZADO.....');
writeln;
textcolor(4);
presenta('PELOTA');
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar