Pascal/Turbo Pascal - Necesito ayuda de 2 programas

   
Vista:

Necesito ayuda de 2 programas

Publicado por kristian (2 intervenciones) el 14/11/2012 21:01:02
El primero necesito: Escriba un programa que pida al usuario una cadena de caracteres y los pase a valores numericos de ascii o viceversa. A continuación, pase dicha cadena de caracteres a una tabla con los enteros correspondientes a cada carácter. Finalmente el programa mostrará al usuario la tabla de enteros obtenida.
La parte de escribir la cadena de caracteres ya la tengo, pero necesito añadir la otra parte del enunciado, que el resultado se muestre en una tabla.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program valores;
var
		letra:char;
		numero:integer;
		valornumerico:integer;
		valorcaracter:char;
begin
		writeln('Introduzca una letra: ');
		readln(letra);
		valornumerico:=ord(letra);
		writeln('El valor numerico de su letra es: ',valornumerico);
		writeln('Introduzca un numero: ');
		readln(numero);
		valorcaracter:=Chr(numero);
		writeln('Su numero corresponde al caracter: ',valorcaracter);
end.


Y el segundo ejercicio seria:

Escribir un programa que pida al usuario 10 números y los meta en una tabla (esto se hará en un procedimiento). A continuación, pida al usuario un número multiplicador y multiplique cada número de la tabla por ese número (esto se realizará en otro procedimiento). Finalmente mostrará el resultado por pantalla (en un tercer procedimiento).
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

Necesito ayuda de 2 programas

Publicado por ramon (2072 intervenciones) el 15/11/2012 21:15:48
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
{Es esto lo que pides}
 
program numeros;
  uses
     crt;
   var
     tabla : array[1..10] of integer;
     mul : integer;
 
   procedure rellenatabla;
   var
     i : integer;
   begin
       for i := 1 to 10 do
       begin
       clrscr;
       write(' Entre Numero [ ',i,' ] : ');
       readln(tabla[i]);
       end;
   end;
 
   procedure multiplica;
   var
     mm : integer;
   begin
      clrscr;
      write(' Entre Multiplicador : ');
      readln(mul);
      for mm := 1 to 10 do
      tabla[mm] := tabla[mm] * mul;
   end;
 
  procedure presentaresultados;
  var
    re : integer;
  begin
      for re := 1 to 10 do
      write('  ',tabla[re]);
  end;
 
   begin
       rellenatabla;
       multiplica;
       clrscr;
       presentaresultados;
       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
1
Comentar

Necesito ayuda de 2 programas

Publicado por kristian (2 intervenciones) el 15/11/2012 21:22:38
Gracias ramon! Te lo agradezco, es que ando estudiando por mi cuenta y asi tengo ejemplos para poder estudiarlos y aprender mas de la programacion por mi cuenta.
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

Necesito ayuda de 2 programas

Publicado por ramon (2072 intervenciones) el 15/11/2012 22:51:47
Me parece bien suerte
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