Concetti Chiave
- Il programma richiede di inserire il numero di sportivi e i set giocati e vinti per ciascuno.
- Viene utilizzato un ciclo FOR per contare quanti sportivi hanno vinto più di 5 set.
- Esiste una versione alternativa del codice che utilizza il ciclo WHILE per ottenere lo stesso risultato.
- Un'ulteriore variazione del codice adotta il ciclo REPEAT per contare le vittorie superiori a 5 set.
- La logica principale è contare e visualizzare quanti sportivi hanno superato le 5 vittorie di set.
Con ciclo FOR:
program tennis;
uses crt;
var setvinti,setgiocati,nsportivi,conta,conta2,i:integer;
nome:string;
begin
clrscr;
writeln('numero sportivi partecipanti');
readln(nsportivi);
conta:=0;
conta2:=0;
for i:=1 to nsportivi do
begin
writeln('nome');
readln(nome);
writeln('set giocati');
readln(setgiocati);
writeln('set vinti');
readln(setvinti);
conta:=conta+1;
if (setvinti>=5) then
conta2:=conta2+1;
end;
writeln('gli sportivi che hanno vinto pi— di 5 set sono ' , conta2);
readln;
end.
Con ciclo WHILE:
program tennis;
uses crt;
var setvinti,setgiocati,nsportivi,conta,conta2:integer;
nome:string;
begin
clrscr;
writeln('numero sportivi partecipanti');
readln(nsportivi);
conta:=0;
conta2:=0;
while (conta
writeln('nome');
readln(nome);
writeln('set giocati');
readln(setgiocati);
writeln('set vinti');
readln(setvinti);
conta:=conta+1;
if (setvinti>=5) then
conta2:=conta2+1;
end;
writeln('gli sportivi che hanno vinto pi— di 5 set sono ' , conta2);
readln;
end.
Con ciclo REPEAT:
program tennis;
uses crt;
var setvinti,setgiocati,nsportivi,conta,conta2:integer;
nome:string;
begin
clrscr;
writeln('numero sportivi partecipanti');
readln(nsportivi);
conta:=0;
conta2:=0;
repeat
writeln('nome');
readln(nome);
writeln('set giocati');
readln(setgiocati);
writeln('set vinti');
readln(setvinti);
conta:=conta+1;
if (setvinti>=5) then
conta2:=conta2+1;
until (conta>=nsportivi);
writeln('gli sportivi che hanno vinto pi— di 5 set sono ' , conta2);
readln;
end.
Accedi a tutti gli appunti
Tutor AI: studia meglio e in meno tempo
