Pascal/Turbo Pascal - numeron repetidos

   
Vista:

numeron repetidos

Publicado por luisina aletti (18 intervenciones) el 27/04/2012 21:23:22
como hago para resolver esto? como hacer ya que los numeros puede ser que no seanseguidos...
Se lee una secuencia de números enteros mayores que cero. Informar:
La cantidad de números que tienen dígitos pares repetidos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

numeron repetidos

Publicado por ramon (2072 intervenciones) el 27/04/2012 22:21:09
{No conozco tu nivel de programación pero a ver si esto te ayuda algo}

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
program digipars;
 uses
   crt;
  var
    cadena : string[20];
    tecla : char;
    n : integer;
 
  procedure entranumero;
  var
    cont, r, err : integer;
  begin
      gotoxy(10,2);write('Entre Numero : ');
      gotoxy(25,2);
      n := 1;
     repeat
        tecla := readkey;
        if tecla in[#47..#57] then
        begin
        cadena[n] := tecla;
        cadena[0] := chr(n);
        gotoxy(25,2);write(cadena);
        n := n + 1;
        if n > 20 then
        n := 20;
        end;
        if tecla = #8 then
        begin
           n := n - 1;
           if n < 1 then
           n := 1;
           cadena[n] := ' ';
           cadena[0] := chr(n);
           gotoxy(25,2);write(cadena);
        end;
     until tecla = #13;
     clrscr;
     cont := 0;
     for n := 1 to length(cadena) do
     begin
     val(cadena[n],r,err);
     if r mod 2 = 0 then
     begin
     writeln('Numero Par = ',r);
     cont := cont + 1;
     end;
   end;
     writeln;
     writeln('Los Numeros Pares Son : ',cont);
  end;
 
 
  begin
      clrscr;
      entranumero;
      readln;
  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

numeron repetidos

Publicado por luisina aletti (18 intervenciones) el 27/04/2012 22:28:01
nuestro nivel es mui basico recien estamos empesando,, y me olvide de comentar q no puedo usar procesos :/
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

numeron repetidos

Publicado por ramon (2072 intervenciones) el 28/04/2012 00:01:47
{Esto es lo mínimo que puedo darte para poder comparar un numero se tiene que convertir
a cadena y des pues de uno en uno a numero para su comprobación de par o impar}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program pares;
 uses
   crt;
   var
   erro, i, t, p, nume : integer;
   cad : string;
   begin
      write('Entre Numero : ');
      readln(nume);
      str(nume,cad);
      clrscr;
      for i := 1 to length(cad) do
      begin
      val(cad[i],p,erro);
      if p mod 2 = 0 then
      begin
      writeln(p);
      t := t + 1;
      end;
      end;
      writeln('Los numeros Pares Son : ', t);
       readln;
    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

numeron repetidos

Publicado por luisina (18 intervenciones) el 28/04/2012 05:07:37
gracias,, el
uses
crt;
pARA que serviria?
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

numeron repetidos

Publicado por ramon (2072 intervenciones) el 28/04/2012 16:06:18
Te comento uses en pascal es para indicarle a utilización de alguna unidad en este caso
la unidad crt encargada de entre otras cosas del clrscr borrado de pantalla o gotoxy(x,y)
posicionado del cursor en pantalla o lo que es lo mismo manejo de pantalla y teclado.
otras unidades como las [dos , printer, system, window overlay,graph] nos ayudan en la
programación.[ La clausula use se encarga de informar al compilador de esta inserción
de procedures y funciones que usaremos en nuestro programa.
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