Concetti Chiave
- Il programma in Pascal calcola e visualizza i numeri dispari tra due valori forniti dall'utente.
- Utilizza funzioni di base come input/output e gestione della console, come gotoxy per la posizione del cursore.
- Implementa un ciclo che determina i numeri dispari a partire dal valore più vicino a 'n'.
- Conta e visualizza il totale dei numeri dispari trovati, offrendo un feedback chiaro all'utente.
- Il programma include messaggi personalizzati e un riconoscimento dell'autore alla fine dell'esecuzione.
Qui di seguito c'è un programma scritto in Pascal che, inseriti due numeri n e m, calcola, scrive e conta i numeri dispari compresi tra n e m, loro inclusi.
program numeri-dispari;
uses crt;
var n,m,c,r,d:integer;
begin
textbackground(1);
clrscr;
textcolor(10);
gotoxy(2,2);
writeln('Questo programma trova tutti i numeri dispari compresi tra due da te scelti!');
gotoxy(2,4);
Input dei numeri
writeln('Inserisci ora i numeri da cui vuoi partire: ');
repeat
gotoxy(2,6);
write('n= ');
readln(n);
gotoxy(2,7);
write('m= ');
readln(m);
until n
c:=0;
r:=n MOD 2;
if r=0 then d:=n+1
else d:=n;
writeln;
writeln(' I numeri dispari trovati sono: ');
writeln;
while d
write(d:5);
c:=c+1;
d:=d+2;
end;
writeln;
writeln;
write(' I numeri dispari sono in totale: ',c);
textcolor(11+16);
gotoxy(2,49);
writeln('Programma realizzato da SuperGaara');
readln;
end.
Domande da interrogazione
- Qual è lo scopo del programma scritto in Pascal?
- Come vengono gestiti i numeri inseriti dall'utente?
- Qual è il metodo utilizzato per trovare i numeri dispari?
Il programma ha lo scopo di calcolare, scrivere e contare i numeri dispari compresi tra due numeri scelti dall'utente, n e m.
Il programma richiede all'utente di inserire i numeri n e m in un ciclo ripetuto fino a quando n è minore di m, assicurando che i valori siano validi per il calcolo.
Il programma determina il primo numero dispari partendo da n e poi utilizza un ciclo per incrementare di 2, scrivendo ogni numero dispari trovato fino a raggiungere m.