Pascal/Turbo Pascal - como unir dos digitos y luego multiplicar por una cantidad determinada de eros

   
Vista:

como unir dos digitos y luego multiplicar por una cantidad determinada de eros

Publicado por oswaldo (11 intervenciones) el 30/12/2012 17:50:07
Como puedo hacer lo siguiente en Dev Pascal, dado dos digitos; 3, 7 y luego 100,000 ó 10,000,000,ó 1000,000,000; priemero unir 37 y luego agregarles el numero de ceros de la última cifra, ejemplo una vez unido 37 le agrgaria 5 ceros o sea, 3,700,000, el otro caso 37,000,000 posteriormente
370,000,000, falta uno 37,000,000,000 y asi sucesivamente, esto lo necesito hacer en Dev Pascal para programar una calculadora de resistividad.
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 dos digitos y luego multiplicar por una cantidad determinada de eros

Publicado por ramon (2072 intervenciones) el 31/12/2012 13:35:39
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
{Mira a ver  si esto es lo que quieres pero ten en cuenta la longitud del numero 1000,000,000 esto
podría fallarte por es ceso de longitud}
 
program prueva;
 {$N+}
 uses
    crt;
  const
     mult : array[1..3] of longint = (
     100000,10000000,100000000);
 
  var
     dato : string[2];
     nume : extended;
    error : integer;
       tc : char;
 
 
  procedure entrada;
  var
    limpia : string[2];
    t, h : integer;
  begin
      clrscr;
      t := 1;
      write('   Entre Digitos : ');
      readln(limpia);
      for h := 1 to length(limpia) do
      if limpia[h] in['0'..'9'] then
      begin
      dato[t] := limpia[h];
      dato[0] := chr(t);
      t := t + 1;
      end;
      val(dato,nume,error);
      if error <> 0 then
      begin
         delete(dato,error,1);
         val(dato,nume,error);
      end;
  end;
 
  begin
      entrada;
      writeln;
 write('  Multiplicar Por [ 1=100.000 ] [ 2=10.000.000 ] [ 3=1000.000.000 ]');
 repeat
     tc := readkey;
 until tc in['1','2','3'];
 writeln;
 writeln('  El Resultado Es : ',nume * mult[ord(tc) - 48]:16:0);
 writeln;
 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

como unir dos digitos y luego multiplicar por una cantidad determinada de eros

Publicado por Oswaldo Suarez (6 intervenciones) el 03/01/2013 20:20:02
Gracias por la respuesta, pero no se porque razon la lineas de código se pegan de forma horizontal, estoy tratando de resolver eso.

Saludos
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 dos digitos y luego multiplicar por una cantidad determinada de eros

Publicado por ramon (2072 intervenciones) el 04/01/2013 23:21:26
Mira selecciona todo copia y pega en el bloc de notas después dale guardar donde quieras
con el nombre que quieras y la extensión pas ejemplo : c:\tp\miprogam.pas ten en cuenta
que no debe de tener mas de 12 caracteres 8 nombre punto 3 extensión.
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