Ominide 30 punti

Pascal - Risultati Sportivi

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:
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<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 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.

Registrati via email