Concetti Chiave
- Il programma gestisce l'inserimento di dati per un numero definito di automobili, inclusi modello, cilindrata, colore e prezzo.
- Calcola l'incasso totale sommando i prezzi di tutte le auto inserite.
- Conta specificamente quante Alfa 147 verdi sono presenti nel catalogo.
- Determina il numero di auto con cilindrata maggiore o uguale a 1800.
- Utilizza un ciclo ripetitivo per raccogliere e analizzare i dati di ogni auto fino a completare il numero specificato di automezzi.
Di n auto inserire modello, cilindrata, colore e prezzo. Stampare l’incasso totale, il numero di auto Alfa 147 verdi e il numero di auto con cilindrata maggiore a 1800.
program es;
uses crt;
var nauto,cilindrata,conta,conta2,auto:integer;
modello,colore:string;
prezzo,incassotot: real;
begin
clrscr;
writeln('numero auto da catalogare');
readln(nauto);
conta:=0;
incassotot:=0;
conta2:=0;
auto:=1;
repeat
writeln('modello');
readln(modello);
writeln('cilindrata');
readln(cilindrata);
writeln('colore');
readln(colore);
writeln('prezzo');
readln(prezzo);
incassotot:=incassotot+prezzo;
if (colore='verde') and (modello='alfa 147') then
conta:=conta+1;
if(cilindrata>=1800) then
conta2:=conta2+1;
auto:=auto+1;
until (nauto>auto);
incassotot:=incassotot;
writeln('l''incasso totale Š ' , incassotot);
writeln('le auto alfa 147 verdi sono ' , conta);
writeln('le auto con cilindrata maggiore o uguale a 1800 sono' , conta2);
readln;
end.
Accedi a tutti gli appunti
Tutor AI: studia meglio e in meno tempo
