Array reali

Materie:Appunti
Categoria:Informatica
Download:56
Data:09.04.2001
Numero di pagine:2
Formato di file:.doc (Microsoft Word)
Download   Anteprima
array-reali_1.zip (Dimensione: 5.78 Kb)
trucheck.it_array-reali.doc     31.5 Kb
readme.txt     59 Bytes


Testo

1. Testo:
Dopo aver caricato in memoria un array di numeri reali con dimensione data in imput non superiore a 20 , scrivere gli elementi dell’array con l’indicazione del posto occupato da ciascun elemento.
2. Comprensione del testo:
• Cosa si vuole ottenere:
Si vuole ottenere il seguente programma: dato un array caricato con 20 numeri reali, visualizzare in uscita il posto occupato da ciascun numero.
• Come ottenerlo:
si prende un array di numeri reali non superiore a 20 caselle, si fa scorrere il vettore riempiendo le caselle e si smette il riempimento quando si sono inseriti 20 elementi.
Infine,riempito l’array, si devono rendere noti gli elementi del vettore e la posizione che essi occupano all’interno dell’array stesso facendo effettuare la loro scrittura sul video, cioè scrivendo i risultati in output.

1
2
3
4
5



20
1. Invece di leggere le caselle come casella 1,2,3….20 vengono lette tutte come caselle V[I]
2. All’inizio si pone I=0
3. si avvia un iterazione
4. Poi si effettua un incremento di I con la formula: I=I+1
5. si pone un valore di I pari a N per il quale si debba uscire dall’iterazione
6. in fine si può notare che facendo variare I sempre di uno ci si sposta sul vettore da destra a sinistra di una casella alla volta, fino a che non si giunge I=20
3. Analisi dei dati:
• Dati di imput:
Numero da inserire (N); Contatore (I);
• Dati di output:
Numeri inseriti (v[I]); Posizione dei numeri inseriti (I)
• Variabili di lavoro:
Contatore (I); Vettore (v[I]);

DIAGRAMMA A BLOCCHI

Inizio
I:=0
I:=I+1
Writeln(‘Inserisci il ’,I,’’’ Numero’)
Readln V[I]

I >20
I:=0
I:=I+1
V[I] Mod 2 = 0
Writeln(I)

I >20
End

CODIFICA IN PASCAL
Program esercizio_6_pagina_422;
uses crt;
const
n=20;
type
vettore=array[1..n] of real;
var
i:integer;
v:vettore;
begin
clrscr;
for i:=1 to n do
begin
write('Inserisci il ',i,' ° valore ==> ');
readln(v[i]);
end;
writeln;
for i:=1 to n do
begin
write('Il numero ==> ',v[i]:4:0); writeln(' è nella posizione ',i);
end;
readln;
end.

Esempio