benvenuti su tutto e di più


SCOPRI SU TUTTOEDIPIU IL METEO DI OGGI

Sei Appassionato di Minecraft? Visita il mio nuovo sito Wiki Minecraft ITALIA !!!




mercoledì 14 novembre 2012

Algorimo e codice pascal per trovare se un numero è primo

Oggi vediamo come creare un programma per verificare se un numero è primo o no.
i numeri primi sono divisibili solo per 1 e per se stessi e per verificare se un numero è primo o no basta vedere se il resto della divisione tra il numero e 2 e il numero e 3 è uguale a 0 se almeno uno dei casi è vero allora il numero non è primo.
ecco il codice in pascal:
program Numeriprimi;
uses crt;
var
n:longint;
c:char;
begin
repeat
 clrscr;
 gotoxy(33,1);
 textcolor(black+blink);
 textbackground(10);
 write(' NUMERI PRIMI ');
 gotoxy(1,3);
 textcolor(10);
 textbackground(black);
 write('Verifica se un numero è primo');
 delay(500);
 gotoxy(1,5);
 write('Scrivi il numero che vuoi verificare: ');
 read(n);
 if( n= 2) or (n= 1) or (n=3) then
                     begin
                     gotoxy(1,7);
                     textcolor(12);
                     write('Il numero ',n,' è PRIMO');
                     end
                     else
                     if n mod 2 = 0 then
                                    begin
                                    gotoxy(1,7);
                                    textcolor(12);
                                    write('Il numero ',n,' NON è PRIMO');
                                    end
                                    else
                                    begin
                                    if n mod 3 = 0 then
                                                   begin
                                                   gotoxy(1,7);
                                                   textcolor(12);
                                                   write('Il numero ',n,' NON è PRIMO');
                                                   end
                                                   else
                                                   begin
                                                   gotoxy(1,7);
                                                   textcolor(12);
                                                   write('Il numero ',n,' è PRIMO');
                                                   end;
                                    end;
  gotoxy(1,9);
  textcolor(10);
  write('Vuoi verificare un altro numero (y/n)? ');
  c:= readkey;
  until  c <> 'y';
  gotoxy(1,11);
  write('USCITA!');
  delay(1000)
end.

Nessun commento:

Posta un commento