Concetti Chiave
- Il programma permette di inserire il nome e il numero di set vinti da ogni sportivo partecipante.
- Utilizza diversi tipi di cicli (FOR, WHILE, REPEAT) per contare il numero di sportivi con più di 5 vittorie.
- Per ogni sportivo, viene richiesta l'immissione del nome, dei set giocati e dei set vinti.
- Il conteggio degli sportivi con più di 5 set vinti viene mostrato alla fine del programma.
- Il codice utilizza la libreria CRT per gestire l'interfaccia della console e pulire lo schermo.
Di n sportivi inserire il nome e il numero di set vinti in una gara. Contare e visualizzare il numero di sportivi che hanno ottenuto più di 5 vittorie.
Con ciclo FOR:
Ciclo FOR per conteggio
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
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 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.
Domande da interrogazione
- Qual è il metodo per contare gli sportivi che hanno vinto più di 5 set in una gara?
- Come viene gestito l'input degli sportivi nel programma?
- Qual è la differenza principale tra i cicli utilizzati nel programma?
Si possono utilizzare diversi cicli, come FOR, WHILE o REPEAT, per contare gli sportivi che hanno vinto più di 5 set, incrementando un contatore ogni volta che un giocatore soddisfa il criterio (setvinti >= 5).
Il programma richiede il numero di sportivi partecipanti e, per ciascuno, il nome, il numero di set giocati e il numero di set vinti, utilizzando cicli per elaborare queste informazioni.
Il ciclo FOR itera un numero definito di volte, il ciclo WHILE continua finché una condizione è vera, mentre il ciclo REPEAT esegue il blocco di codice almeno una volta prima di controllare la condizione di continuazione.