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.
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).
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
0