|
Chilavert
admin
Regione: Puglia
Prov.: BA
Città: Bari
|
 Inserito il - 26/06/2005 : 11:57:08
|
Svolgimento del laboratorio programmazione del 21/06:  esame.zip
Questo è lo svolgimento (per svogliati):
(* Scrivere un programma Pascal in grado di:
- Chiedere in input un numero intero N
- Caricare da tastiera un file di interi e fermarsi quando la somma dei
numeri inseriti è superiore o uguale ad N
- Visualizzare il contenuto del file e la media dei valori presenti al suo
interno
E' preferibile la definzione di sottoprogrammi parametrici per l'implemen-
tazione delle diverse funzionalità
ESEMPIO: N = 15 Elementi del file = [3, 5, 6, 2] Media = 4 *)
program esame;
uses wincrt;
type
___fileint = file of integer;
var
___f: fileint;
___mednumeri: real;
procedure inserisci(var f: fileint);
var i, m, n, somma: integer;
begin
___write('Inserisci un numero intero: ');
___readln(n);
___somma:= 0;
___i:= 0;
___rewrite(f);
___while (somma < n) do
______begin
______i:= i + 1;
______write('Inserisci ', i, '^ numero: ');
______readln(m);
______write(f, m);
______somma:= somma + m;
______end;
___close(f)
end;
function media(var f: fileint): real;
var m, n, somma: integer;
begin
___somma:= 0;
___n:= 0;
___reset(f);
___while not (eof(f)) do
______begin
______n:= n + 1;
______read(f, m);
______somma:= somma + m;
______end;
___close(f);
___media:= somma / n;
end;
procedure stampa(var f: fileint);
var n: integer;
begin
___reset(f);
___writeln;
___write('[ ');
___while not (eof(f)) do
______begin
______read(f, n);
______write(n, ' ');
______end;
___writeln(']')
end;
begin
___assign(f, 'C:f.txt');
___inserisci(f);
___stampa(f);
___mednumeri:= media(f);
___writeln;
___writeln('La media e'' ', mednumeri:2:3);
___readln;
end. |
E' un bene per il Prof. Xxxxxxx che sappia con chi ha a che fare.
Pensa a studiare e non agli esempi, o ad altre strade per così dire,
che questa volta mi sa che non attacca. [cit.]
Tutti professori dall'esterno, e poi parlano persone che per prendere un voto decente
ripetono l'esame 30 volte e poi fanno i sapientoni con chi segue la prima volta vedi chilavert [cit.] |
 |
|
Domanda!
