Código de Pascal/Turbo Pascal - Verificar si algún numero existe en otro número mayor

Imágen de perfil
Val: 20
Ha disminuido 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Verificar si algún numero existe en otro número mayorgráfica de visualizaciones


Pascal/Turbo Pascal

Publicado el 1 de Mayo del 2017 por Kip
1.605 visualizaciones desde el 1 de Mayo del 2017
Introduccir dos numeros uno menor a 4 digitos y uno mayor, y que el programa pueda decirme si algun digito del primer numero se encuentra en el de mayor cantidad....

Requerimientos

...

1.0

Actualizado el 3 de Julio del 2017 (Publicado el 1 de Mayo del 2017)gráfica de visualizaciones de la versión: 1.0
1.606 visualizaciones desde el 1 de Mayo del 2017
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

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
Program NumComparison(output);
uses sysutils;
var
    num1, num2, nums : string;
    i, snum1, snum2 : integer;
begin
    writeln('Ingresa el primer número');
    readln(num1);
    writeln('Ingresa el segundo número');
    readln(num2);
    (* Obtengo la longitud de ambas cadenas para poder evaluarlas *)
    snum1:=length(num1);
    snum2:=length(num2);
    (* Evaluo que cada número corresponda a lo dicho en el enunciado *)
    if (StrToInt(num1) < StrToInt(num2)) and (snum1 < 4) and (snum2 >= 4) then
        begin
        nums:='';
        for i:=1 to snum2 do
            begin
                (* Si un número esta en el otro y no existe ya en los encontrados *)
                if(pos(num2[i], num1) > 0) and (pos(num2[i], nums) = 0) then
                    (* Concatenamos lo almacenado con el nuevo número encontrado *)
                    nums:=nums + num2[i];
            end;
        writeln('Números en común : ');
        writeln(nums);
        end
    else
        begin
        writeln('Asegurese de ingresar los valores correctos');
        end;
end.



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s3968