DIAGRAMMA A BLOCCHI

informatica

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.

Comprensione del testo:

Cosa si vuole ottenere:

Si vuole ottenere il seguente programma: dato un array caricato con 20 numeri reali, visualizz 757f56h are 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.

	I= indice array

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

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.