Concetti Chiave
- Il programma consente di inserire il numero di studenti partecipanti e registra il tempo di ciascuno.
- Calcola quanti studenti hanno completato la gara in meno di 10 minuti.
- Tre cicli differenti vengono utilizzati per il calcolo: REPEAT, FOR e WHILE.
- Ogni ciclo incrementa il contatore degli studenti e quello degli studenti con tempo sotto i 10 minuti.
- Il risultato finale mostra il numero di studenti che hanno gareggiato sotto i 10 minuti.
Con ciclo REPEAT:
program gara;
Uses crt;
Var ns,contastudenti,contastudenti10min:integer;
Var tempo:real;
Begin
clrscr;
contastudenti:=0;
contastudenti10min:=0;
Writeln('inserisci il numero degli studenti partecipanti');
Readln(ns);
Repeat
Writeln('inserisci il tempo dello studente');
Readln(tempo);
contastudenti:=contastudenti+1;
If (tempo
contastudenti10min:=contastudenti10min+1;
Until (contastudenti>=ns);
Writeln('il num studenti ke hanno fto - di 10 min sono ' , contastudenti10min);
Readln;
end.
Con ciclo FOR:
program gara;
Uses crt;
Var ns,contastudenti,contastudenti10min,i:integer;
Var tempo:real;
Begin
clrscr;
contastudenti:=0;
contastudenti10min:=0;
Writeln('inserisci il numero degli studenti partecipanti');
Readln(ns);
For i:=1 to ns do
begin
Writeln('inserisci il tempo dello studente');
Readln(tempo);
contastudenti:=contastudenti+1;
If (tempo
contastudenti10min:=contastudenti10min+1;
end;
Writeln('il num studenti ke hanno fto - di 10 min sono ' , contastudenti10min);
Readln;
end.
Con ciclo WHILE:
program gara;
Uses crt;
Var ns,contastudenti,contastudenti10min:integer;
Var tempo:real;
Begin
clrscr;
contastudenti:=0;
contastudenti10min:=0;
Writeln('inserisci il numero degli studenti partecipanti');
Readln(ns);
While(contastudenti
Readln(tempo);
contastudenti:=contastudenti+1;
If (tempo
contastudenti10min:=contastudenti10min+1;
end;
Writeln('il num studenti ke hanno fto - di 10 min sono ' , contastudenti10min);
Readln;
end.
Accedi a tutti gli appunti
Tutor AI: studia meglio e in meno tempo
