Pascal/Turbo Pascal - Como unir 2 digitos en pascal?

   
Vista:

Como unir 2 digitos en pascal?

Publicado por Santiago (6 intervenciones) el 03/05/2015 04:28:11
Hola, quisiera saber si es posible que por ejemplo en este programa, suponiendo que numA es 1 y numB es 3, es posible hacer que numX sea numA y numB? osea que numX=13?, tengo esa duda y me seria bastante util para terminar de resolver un ejercicio.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program ej10AP4;
 
var numex, numx, numA, numB, n, m:integer;
 
begin
 
  writeln('Ingrese dos numeros');readln(n,m);
  numx:=0;
  for numA:=1 to 9
  do for numB:=0 to 9
     do begin
        numex:=                                       //aca es donde quiero juntar los valores de numa y numb, no sumar, juntarlos
        if (numex mod n)=0
        then
        numx:=numx+1;
        writeln(numx,': ',numa,numb,numa,numb)
     end;readln;
  end.

Saludos!
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

Como unir 2 digitos en pascal?

Publicado por Rene Gar (58 intervenciones) el 03/05/2015 05:21:04
espero te sirva saludos...

1
2
3
4
5
6
7
8
9
10
11
12
var
i,j,num:integer;
begin
   for I := 1 to 9  do
     for j := 0 to 9 do
     begin
       num:=strtoint(inttostr(i)+inttostr(j));
       writeln(num);
     end;
 
   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

asd

Publicado por Santiago (6 intervenciones) el 03/05/2015 05:27:23
Olvide mencionar es free pascal, creo que los identificadores esos no estan, al menos a mi me tira error
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

asd

Publicado por David (144 intervenciones) el 03/05/2015 11:11:34
Si los tiene, pero tendrás que utilizar la Units Sysutils. Mira esto

1
2
3
4
5
6
7
8
9
10
11
12
uses CRT,sysutils;
 
var i,num,j:integer;
begin
	clrscr;
	for i:= 1 to 9 do
	for j:=0 to 9 do
		begin
		num:=strtoint(concat(inttostr(i),inttostr(j)));
		writeln(num);
		end;
	readln;
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

Como unir 2 digitos en pascal?

Publicado por ramon (2072 intervenciones) el 03/05/2015 12:22:42
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{Mira Esto a ver si sirve}
 
 
 program numeros;
   uses
      crt;
   var
      ee, num1, num2, num3 : integer;
      numero : string[2];
    begin
       num1 := 1;
       num2 := 3;
       numero[1] := chr(ord(num1) + 48);
       numero[2] := chr(ord(num2) + 48);
       numero[0] := chr(2);
       clrscr;
       val(numero,num3,ee);
       write(num3);
       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
Imágen de perfil de Melvin

Como unir 2 digitos en pascal?

Publicado por Melvin (15 intervenciones) el 07/05/2015 04:03:59
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
{Aquí te dejo algo mas sencillo que lo puedes ver como unirlos, y es cualquier numero ya que es el numero que indiques tu}
program unirdigito;
 
   var
     num1, num2: integer;
    begin
 
       writeln('ingrese primer digito: ');   {te pide el primer digito}
       readln(num1); {lee el primer digito}
       writeln('ingrese segundo digito: '); {te pide el segundo digito}
       readln(num2); {lee el segundo digito}
       writeln;  {salto de linea}
 
       writeln(num1,num2); {imprime el primer y segundo digito unidos}
    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