Ominide 30 punti

Pascal - Campionato

Siamo in un campionato studentesco. Inseriamo il numero degli studenti partecipanti e il tempo di ogni studente. Contiamo il numero degli studenti che hanno fatto la gara in meno di 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<10) then
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<10) then
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<ns) do begin
Writeln('inserisci il tempo dello studente');
Readln(tempo);
contastudenti:=contastudenti+1;
If (tempo<10) then
contastudenti10min:=contastudenti10min+1;
end;
Writeln('il num studenti ke hanno fto - di 10 min sono ' , contastudenti10min);
Readln;
end.

Registrati via email