Questo topic e' stato chiuso dal moderatore.
09/05/12 13:24
EddieTH
Salve a tutti, il nostro prof. ci ha dato un esercizio di informatica nel quale c'è in teoria un comando che non ci ha mai spiegato. La consegna dell'esercizio è: dato un vettore contenente i nomi degli studenti della classe (la mia) stampare in ordine contrario i nomi.
Non abbiamo mai trovato un esercizio in cui ci chiedevano di stampare al contrario l'ordine di qualcosa...quale comando va usato? potreste farmi l'esercizio? intanto l'ho iniziato ma non riesco ad andare avanti, grazie.
Questo è il programma:
program NOMI;
uses SysUtils;
VAR N: array [1..18] of string;
begin
writeln('Scrivi il nome dell''alunno:');
readln(N);
Ultima modifica effettuata da EddieTH 09/05/12 13:26
aaa
09/05/12 14:54
Goblin
Come ben sai i vari esercizi non si fanno, diciamo che ti posso dare uno spunto per lavorare.
Una volta ricevuto in input il "NOME" lo riscrivi in una variabile dall'ultima lettera con un ciclo downto.
qualcosa del tipo
leggi quanti caratteri ha N e salvali nella variabile LettereMax
conta a partire da LettereMax a 1 salvando nella variabile NomeInverso le lettere corrispondenti alla posizione di N
for x:= LettereMax downto 1 do
NomeInverso := NomeInverso + N[x]
Se usi Un array il tutto è più semplice:
for x:= High(n) downto Low(n) do
NomeInverso := NomeInverso + N[x]
stampi la variabile NomeInverso.
G.
Ultima modifica effettuata da Goblin 09/05/12 14:57
Ibis redibis non morieris in bello
