Ho cominciato ad imparare, ma qualcosa non mi torna

Ha ragione st9732....gli array multidimensionali sono un argomento avanzato, paraltro neanche spesso usati.

Procedi con if, while, ecc...

Quello che state dicendo, cioè i cicli if...then...else oppure while...do ecc. ecc. l'ho già visto, e dopo quelli la guida che Nino mi ha consigliato sul Pascal mi parla direttamente degli array. Consigli?

Mi è venuto un dubbio. Leggendo la guida che mi è stata consigliata, ho trovato un codice che mi ha lasciato perplesso per via di una variabile. Il codice è questo:



Program Esempio2;

Uses Crt,WinDos;

Var nome1,nome2,stringa:string;

file1,file2:text;



begin

clrscr;

write(‘Inserire il nome di un file: ‘);

readln(nome1);

write(‘Inserire il nome del file copia: ‘);

readln(nome2);

Assign(file1,nome1);

Assign(file2,nome2);

Reset(file1);

Rewrite(file2);

repeat

readln(file1,stringa);

writeln(file2,stringa);

until eof(file1);

Close(file1);

Close(file2);

writeln(‘Copia completata!’);

readln

end.



Mi è venuto un dubbio: la variabile stringa viene inizializzata la riga dopo la scritta "repeat". Vedete se ho capito bene: quando c'è scritto:

readln(file1,stringa);

cosa dovrebbe fare il computer? Dovrebbe leggere sia file1 che stringa? E da dove prende stringa dato che è la prima volta che compare? Potete rispondermi? Grazie.

[quote name='FECT']Quello che state dicendo, cioè i cicli if...then...else oppure while...do ecc. ecc. l'ho già visto, e dopo quelli la guida che Nino mi ha consigliato sul Pascal mi parla direttamente degli array. Consigli?[/quote]



Potresti procedere con procedure, funzioni e passaggio dei parametri.

Infatti nella guida dopo gli array ci sono proprio quelli, quindi sono andato avanti. E per la questione di quel codice?

Questo programma legge un file e scrive il suo contenuto in un'altro file. In poche parole fa la copia.

readln(file1,stringa); = legge una riga dal file1 e inserisce nella variabile stringa

writeln(file2,stringa); = scrive sul file2 la variabile stringa

Adesso credo di aver capito. Per stringa intende solo una riga di testo e nient'altro?

Si, una stringa è una normale riga di testo che può essere composta da lettere (a, b, A, B...), numeri (1, 2...), caratteri (@, #...) e spazi.

Non ho chiesto cos'è una stringa, quello lo so già. Io avevo chiesto se la stringa la prendeva dal file.

Si, la stringa è presa dal file.

Bene, io volevo sapere appunto questo

Direi che io e Nino, alla fine di questa discussione, ci meritiamo un bel Ringrazia.

Non nego certo che lo meritate, in fondo avete comunque risposto alle domande che vi ho fatto. Ora clicco.

Ciao ragazzi, io non capisco una cosa:

se compilo un programma tipo questo in Delphi 7



Program password; <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">Uses Crt; <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">Var parola:string[40]; <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">begin <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">clrscr; <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">writeln('Immettere la password: '); <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">readln(parola); <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">if parola='Pascal' Then (*Se parola=Pascal, allora...*) <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">writeln('Bravo!') <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">else (*Altrimenti, esegui questo:*) <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">begin <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">TextColor(5);

TextBackGround(15); <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">writeln('Sbagliato!'); <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">end; <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">readln <br style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; ">end.

mi dà errore dicendo "File not found:'Crt.dcu' (come da immagine). Qualcuno sa dirmi cosa vuol dire, dove si può trovare questo file o se in delphi7 la sintassi per la dichiarazione delle librerie è differente. Di fatto non riesco a utilizzare procedure per lo schermo, come TextColor e TextBackGround :-( ...

Ops, ho sbagliato riscrivo



Qualcuno sa dirmi come riuscire a usare le procedure per la grafica come Textcolor in Delphi7, come nel programma qui allegato? Non riesco a capire dove è il file che cerca; oppure la sintassi per le unit è different per delphi7? Addirittura se dichiaro anche uses SysUtils (quella di default), rileca Crt come variabile non dichiarata!?!





Program password;



uses Crt;



Var parola:string[40];



begin

clrscr;

writeln('Immettere la password: ');

readln(parola);

if parola='Pascal' then

writeln('Bravo!')

else

begin

TextColor(5);

TextBackGround(15);

writeln('Sbagliato!');

end;

readln;

end.