Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program somma_array;
- uses crt, math;
- var
- a:array[1..5] of integer;
- i,s:integer;
- begin
- clrscr;
- for i:=1 to 5 do
- begin
- randomize;
- a[i]:=random(100);
- end;
- s:=0;
- for i:=1 to 5 do
- begin
- s:=s+a[i];
- end;
- writeln(s);
- end.
- { In una gara di tuffi il punteggio finale di un concorrente viene calcolato come media dei voti espressi dalla giuria,
- dopo aver eliminato il voto più alto e il più basso.
- Realizzare un programma che stampi il punteggio finale di un concorrente prendendo in input i voti degli N giurati (max 10) }
- program gara_di_tuffi;
- uses crt, math;
- var
- _punteggi: array [1..10] of integer;
- i:integer;
- min:integer;
- max:integer;
- somma:integer;
- punteggiofinale:integer;
- begin
- clrscr;
- {riempie l'array con numeri casuali}
- for i:=1 to 10 do
- begin
- randomize;
- _punteggi[i]:=random(10);
- end;
- {calcola il valore minimo dell'array}
- for i:=1 to 10 do
- begin
- min:=_punteggi[1];
- if min>_punteggi[i] then min:=_punteggi[i];
- end;
- {calcola il valore massimo dell'array}
- for i:=1 to 10 do
- begin
- max:=_punteggi[1];
- if max<_punteggi[i] then max:=_punteggi[i];
- end;
- {calcola la somma}
- somma:=0;
- for i:= 1 to 10 do
- begin
- somma:=somma+_punteggi[i];
- end;
- {toglie min e max e calcola la media finale}
- punteggiofinale:= (somma-(min+max)) div 8;
- writeln('il punteggio e'' ' , punteggiofinale);
- end.
- Si abbiano in input 3 vettori paralleli contenenti i dati relativi ai libri di una biblioteca:
- TIT Titolo libro
- AUT Autore
- NCOPIE Numero di copie disponibili
- Scrivere un programma che preveda le seguenti richieste.
- a) Gestione prestito: dato un titolo in input se il numero di copie è maggiore di zero si effettua il prestito decrementando di 1 il numero di copie. Se il numero di copie è uguale a zero, si stampa un messaggio per libro non disponibile.
- b) Gestione restituzione: dato in input il titolo si incrementa di 1 il numero di copie disponibili.
- c)Stampa di tutti i libri di un determinato autore fonito in input nella forma:
- LIBRO SCRITTO DA .................
- TITOLO ........................................
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement