[PASCAL] File di testo e array

[djleo]

la struttura del file e cosi
numero dei valori da leggere nel array
valori da leggere
numero di rotazioni

per rotazioni si intende le rotazioni dell'array
es
array
1 2 3 4 5 6
rotazione di 1
6 1 2 3 4 5
rotazione di 2
5 6 1 2 3 4

non riesco a fare la rotazione

p.s la rotazione deve essere a scelta dell'utente
es 1)per ruotare verso destra
2)per ruotare verso sinistra

Edit

[mondobimbi]

uno spunto per la rotazione

program ruota_array;
var
	i, t : integer;
	v : array [1..6] of integer;
begin
	for i := 1 to 6 do
		v[i] := i;
		
	// ruoto a sx,
	// prima salvo il primo elemento
	t := v[1];
	for i := 1 to 5 do
		v[i] := v[i+1];
	// meno male che lo ho salvato
	v[6] := t;
	
	// sarà giusto ??
	for i := 1 to 6 do
		writeln(v[i]);
end.

ciao
sergio

[djleo]

E per la rotazione a sx

[djleo]

e verso destra

[djleo]

ho sbagliato dovevo rispondere al post e invece l'ho creato

[LeleFT]

Ho riunito le discussioni.


Ciao.