[Pascal] Creare e gestire un array (Era: Aiutatemi ho un esonero da superare!!!)

[Colino]

Ciao,
vi prego di aiutarmi con un piccolo algoritmo in pascal:
devo creare un array di numeri inseribili dall'utente , devoprendere ogni singolo numero dell'array , lo devo dividere per 2 e lo devo sostituire al suo valore intero.



Aiutatemi vi prego!!!!

Sarò lieto di potervi offrire una birra a tutti se supero questo quesito!!!

[cso]

per me una lemon-soda:

program array_1;
uses crt;
const n=100;
type vettore=array[1..n] of integer;
var i,elementi:integer;
    a:vettore;

begin
clrscr;
repeat
write('Di quanti elementi deve essere formato l''array? ');
readln(elementi);
until (elementi<=n) and (elementi>=0);
writeln;
for i:=1 to elementi do
                     begin
                     write('Elemento ',i,'= ');
                     readln(a[i]);
                     end;
writeln;
for i:=1 to elementi do
                     begin
                     a[i]:=a[i] div 2;
                     writeln(a[i]);
                     end;
readln;
end.

[Colino]

grazie 1000! se supero l'esame te ne offro 2 di lemon soda!!

ma che sono quei comandi:

uses crt;

clrscr;



?????

[andrea_NET-_DSL]

Originariamente inviato da cso

repeat
write('Di quanti elementi deve essere formato l''array? ');
readln(elementi);
until (elementi<=n) and (elementi>=0);

io farei cosi'

repeat
...
....
until (elementi > n) or (elementi < 0)

come hai scritto tu faresti ripetere la lettura del numero degli elementi dell'array quando il valore è compreso tra 0 e n: cioè propio quando andrebbe bene!

[ladyBlu]

Colino il linguaggio e la versione DEVONO essere specificati nel titolo della discussione: Leggi_Regolamento

[LeleFT]

Originariamente inviato da Colino
grazie 1000! se supero l'esame te ne offro 2 di lemon soda!!

ma che sono quei comandi:

uses crt;

clrscr;



?????

Ma non si parlava di BIRRE e non di Lemon Soda?

Comunque...

Uses CRT;

Serve ad importare la libreria CRT, che offre funzioni per la manipolazione del monitor e altre utilità.

clrscr;

è una delle funzioni messe a disposizione della libreria CRT e pulisce lo schermo (effettua l'equivalente di un CLS di DOS).

Ciao.

[cso]

Originariamente inviato da andrea_NET-_DSL
io farei cosi'

repeat
...
....
until (elementi > n) or (elementi < 0)

come hai scritto tu faresti ripetere la lettura del numero degli elementi dell'array quando il valore è compreso tra 0 e n: cioè propio quando andrebbe bene!

ma così accetta pure valori maggiori di quelli allocato nella memoria per gli array!!!!!
Facendo così sfondi l'array...se fosse java ti direbbe array out of bounds...ma pascal non ti fa vedere nessun messaggio di errore ma ciò non è meno grave, anzi!!!!

Naturalmente scherzavo per la lemon-soda
una ombra di vino va più che bene

[andrea_NET-_DSL]

Originariamente inviato da cso
ma così accetta pure valori maggiori di quelli allocato nella memoria per gli array!!!!!
Facendo così sfondi l'array...se fosse java ti direbbe array out of bounds...ma pascal non ti fa vedere nessun messaggio di errore ma ciò non è meno grave, anzi!!!!

Naturalmente scherzavo per la lemon-soda
una ombra di vino va più che bene

???

do

....

while ( (elementi > n) or (elementi < 0) )

esegue il corpo del do-while quando elementi è minore di 0 o maggiore del numero massimo consentito di valori che puo' contenere l'array : quindi permette di rileggere il valore di elementi nel caso non fosse valido!

Posto che il ciclo iterativo repeat-until è come un do-while fai le tue considerazione...!

[cso]

l'ho eseguito col mio bel TP e mi accetta solo valori esternia a 0 e N...quindi o "crei" lo spazio per un array che ha elementi meno dello 0 (cioè niente) o accetta valori che sfondano l'array!!!

Ti sto dicendo per quando riguarda questo codice:

program array_1;
uses crt;
const n=100;
type vettore=array[1..n] of integer;
var i,elementi:integer;
    a:vettore;

begin
clrscr;
repeat
write('Di quanti elementi deve essere formato l''array? ');
readln(elementi);
until (elementi>n) or (elementi<0);
writeln;
for i:=1 to elementi do
                     begin
                     write('Elemento ',i,'= ');
                     readln(a[i]);
                     end;
writeln;
for i:=1 to elementi do
                     begin
                     a[i]:=a[i] div 2;
                     writeln(a[i]);
                     end;
readln;
end.

CHE E' SBAGLIATO
era giusto il codice che ho postato prima!!!

O il mio compilatore è scemo oppure ti stai confondendo tra il while e il repeat (capita a tutti...è difficile ragionare al contrario)

Prova a eseguire il codice che ho postato (2° post)...

[andrea_NET-_DSL]

Originariamente inviato da cso
l'ho eseguito col mio bel TP e mi accetta solo valori esternia a 0 e N...quindi o "crei" lo spazio per un array che ha elementi meno dello 0 (cioè niente) o accetta valori che sfondano l'array!!!

Ti sto dicendo per quando riguarda questo codice:

program array_1;
uses crt;
const n=100;
type vettore=array[1..n] of integer;
var i,elementi:integer;
    a:vettore;

begin
clrscr;
repeat
write('Di quanti elementi deve essere formato l''array? ');
readln(elementi);
until (elementi>n) or (elementi<0);
writeln;
for i:=1 to elementi do
                     begin
                     write('Elemento ',i,'= ');
                     readln(a[i]);
                     end;
writeln;
for i:=1 to elementi do
                     begin
                     a[i]:=a[i] div 2;
                     writeln(a[i]);
                     end;
readln;
end.

CHE E' SBAGLIATO
era giusto il codice che ho postato prima!!!

bè si perchè il repeat until non è che come il do-while....


Il do-while(o while-do) esegue il blocco di istruzione MENTRE la condizione e' FALSA...quando diventa VERA ESCE....mentre il repetat until fà il CONTRARIO!


Quindi và bene la PRIMA tua soluzione O la mia che pero' usa il do-while...NON IL REPEAT UNTIL!

http://www.taoyue.com/tutorials/pascal/pas3dc.html qua la frase che ti ho evidenziato spiega propio cio' di cui noi stiamo discutendo

In a repeat loop, compound statements are built-in -- you don't need to use begin-end. Also, the loop continues until the Boolean expression is TRUE, whereas the while loop continues until the Boolean expression is FALSE.