Ominide 30 punti

Pascal - Concessionario auto
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.

Registrati via email