Pascal/Turbo Pascal - Me pueden hacer un programa de numero primos

   
Vista:
Imágen de perfil de Luis

Me pueden hacer un programa de numero primos

Publicado por Luis Anezluis09@gmail.com (1 intervención) el 05/02/2016 22:43:03
Me pieden hacrr un programa de numero primos porfa
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-1
Responder

Me pueden hacer un programa de numero primos

Publicado por crack81 (58 intervenciones) el 06/02/2016 04:58:44
Basta con buscar en google hay montones de codigos respecto a eso
inclusive basta con revisar otros post realizandos en esta misma web como este http://www.lawebdelprogramador.com/codigo/Pascal-Turbo-Pascal/260-Calculo-de-un-numero-primo.html
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Me pueden hacer un programa de numero primos

Publicado por ramon (2072 intervenciones) el 07/02/2016 12:38:12
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
{Mira esto}
 
program numeros;
 uses
    crt;
 type
   string20 = string[20];
 var
   can, entro : integer;
   p, prim : integer;
 
  function esprimo(nu : integer) : string20;
  var
    c, cont : integer;
    noloes : boolean;
  begin
     cont := round(sqrt(nu));
     c := cont;
     noloes := false;
  repeat
  prim := nu mod c;
  if prim = 0 then
  begin
      esprimo := 'No Es Primo';
      noloes := true;
      break;
  end;
  c := c + 1;
  until c = nu;
  if noloes = false then
  esprimo := 'Es Primo';
  end;
 
  begin
     clrscr;
      writeln('   ***** Estos Numeros Son Primos Del [1 al 1000] ******');
      writeln;
      p := 1;
      can := 0;
      write('   1');
      for entro := 1 to 1000 do
      if esprimo(entro) = 'Es Primo' then
      begin
      write('  ',entro);
      p := p + 1;
      can := can + 1;
      if p > 14 then
      begin
      writeln;
      writeln;
      p := 1;
      end;
      end;
      writeln;
      writeln;
      writeln('   Entre el 1 y el 1000 Tenemos ',can,' Numeros primos');
     readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Me pueden hacer un programa de numero primos

Publicado por Jesús (2 intervenciones) el 17/06/2016 17:56:09
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Program Numprimo;
Uses CRT;
 
Var max, numero, divisor, cont: Integer;
 
BEGIN
   ClrScr;
   WriteLn('Cálculo de números primos del 1 hasta un valor dado');
   Write('Teclea valor máximo: ');
   ReadLn(max);
   WriteLn('');
   WriteLn('Los números primos del 1 al ', max, ' son:');
   WriteLn('');
   numero:=1;
   Write(numero, ' ');
   While numero<=max Do
   Begin
      For divisor:=1 to max Do
      Begin
         If numero Mod divisor = 0 then
            cont:=cont + 1;
      End;
      If cont=2 then
         Write(numero,' ');
      cont:=0;
      numero:=numero+1;
   End;
   ReadKey;
END.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar