| V I S U A L I Z Z A D I S C U S S I O N E |
| xgeneralex |
Inserito il - 26/06/2005 : 11:09:13
Qualcuno conosce l'ultima traccia di laboratorio di programmazione del 21-06-05? |
| 1 U L T I M E R I S P O S T E (in alto le più recenti) |
| Chilavert |
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. |
|
|
