Pascal/Turbo Pascal - duda :$

 
Vista:

duda :$

Publicado por chelitosincero1 (1 intervención) el 19/10/2011 18:30:30
hola QUERIA SABER SI ME PODRIAN BRINDAR UN AYUDA PUES TENGO QUE DESARROLLAR UNA TAREA EN FREE PASCAL QUE CONSTA EN CREAR UN DICCIONARIO PREDICTIVO T9 COMO EL DE LOS CELULARES CONMUNMENTE USADOS Y SE DEBE REALIZAR LA INTRODUCCION DE PALABRAS MEDIANTE EL TECLADO NUMERICO DE UN TECLADO COMUN DE UNA COMPUTADORA
QUERIA SABER BASICAMENTE ALGUNOS PROCEDIMIENTOS Y FUNCIONES QUE ME AYUDEN A CREAR UN DICCIONARIO SI ES POSIBLE NECESITARIA EL MOTOR NADA MAS ALGUNAS IDEASDownload: eType1.com/f .php?FFeNHG
MUCHAS GRACIAS :)
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

duda :$

Publicado por Ramon (2158 intervenciones) el 20/10/2011 16:12:08
{Como podras apreciar se deve de tener un archivo de datos o sea el diccionario}
{para poder presentar las palabras que creamos que pueden ser las que sevan a}
{escribir antes de terminar la escritura tomando las letras insertadas como vase.}
{Ejemplo seria si pulsa la tecla 3 y tiene asignada la letra 'D' presentamos 'Dador'}
{si a continuacion pulsamos la tecla 4 y tenemos asignada la letra 'E' presentamos}
{'Delicia' si a continuacion pulsamos la tecla 6 y tenemos asignada la letra 'G' presentamos}
{'Degollar' si a continuacion pulsamos la tecla 4 y tenemos asignada la letra 'E' presentamos}
{'Degenerar' o otras frases que concuerden con las letras pulsadas.}
{Dando la opcion de tomar dicha palabra o otras que pusieramos como opciones}
{como veras supone un proceso vastante cuidadoso a la hora de elejir las frases a presentar.}
{Y el programa requiere un procedimiento de archivos de busqueda de frases que puedan tener}
{como vase las letras que se pulsan.}
{El ejemplo se vasda en unas constantes como prueva para la (funcion numero) o sea tecla numerica}
{pulsada.}



program predict;
uses
crt;
const
diccionario : array[0..9] of string[20] = (
'Abaca','Babia','Cabala','Dador','Ebonita','Fabada','Gaban',
'Habano','Ibero','Jabali');
var
tecla : char;

function numero : integer;
var
n, error : integer;
num : string[1];
begin
repeat
tecla := readkey;
until (tecla in[#48..#57]) or (tecla = #27);
if tecla <> #27 then
begin
num[1] := tecla;
num[0] := chr(1);
val(num,n,error);
numero := n;
end;
end;


begin
clrscr;
writeln('Pulse Teclas del [0..9] o [ESC] Para Salir');
writeln;
repeat
case numero of
0 : begin
writeln('El numero pulsado Es : 0 = ',diccionario[0]);
end;
1 : begin
writeln('El numero pulsado Es : 1 = ',diccionario[1]);
end;
2 : begin
writeln('El numero pulsado Es : 2 = ',diccionario[2]);
end;
3 : begin
writeln('El numero pulsado Es : 3 = ',diccionario[3]);
end;
4 : begin
writeln('El numero pulsado Es : 4 = ',diccionario[4]);
end;
5 : begin
writeln('El numero pulsado Es : 5 = ',diccionario[5]);
end;
6 : begin
writeln('El numero pulsado Es : 6 = ',diccionario[6]);
end;
7 : begin
writeln('El numero pulsado Es : 7 = ',diccionario[7]);
end;
8 : begin
writeln('El numero pulsado Es : 8 = ',diccionario[8]);
end;
9 : begin
writeln('El numero pulsado Es : 9 = ',diccionario[9]);
end;
end;
until tecla = #27;
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

duda :$

Publicado por Hernán (1 intervención) el 21/10/2011 06:16:36
Perdon que me meta pero creo que chelito tiene la misma tarea que yo y si es asi no nos dejan usar uses, string, ctr, readkey, crlscr, gotoxy, break...si tenes alguna otra idea te agradeceria que la compartas...a nosotros nos van a dar el diccionario...gracias
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

duda :$

Publicado por ramon (2158 intervenciones) el 24/10/2011 19:30:35
program predict;

const
diccionario : array[0..9] of string[20] = (
'Abaca','Babia','Cabala','Dador','Ebonita','Fabada','Gaban',
'Habano','Ibero','Jabali');
var
tecla : char;

function numero : integer;
begin
readln(tecla);
case tecla of
'0' : numero := 0;
'1' : numero := 1;
'2' : numero := 2;
'3' : numero := 3;
'4' : numero := 4;
'5' : numero := 5;
'6' : numero := 6;
'7' : numero := 7;
'8' : numero := 8;
'9' : numero := 9;
end;
end;

begin
case numero of
0 : begin
writeln('El numero pulsado Es : 0 = ',diccionario[0]);
end;
1 : begin
writeln('El numero pulsado Es : 1 = ',diccionario[1]);
end;
2 : begin
writeln('El numero pulsado Es : 2 = ',diccionario[2]);
end;
3 : begin
writeln('El numero pulsado Es : 3 = ',diccionario[3]);
end;
4 : begin
writeln('El numero pulsado Es : 4 = ',diccionario[4]);
end;
5 : begin
writeln('El numero pulsado Es : 5 = ',diccionario[5]);
end;
6 : begin
writeln('El numero pulsado Es : 6 = ',diccionario[6]);
end;
7 : begin
writeln('El numero pulsado Es : 7 = ',diccionario[7]);
end;
8 : begin
writeln('El numero pulsado Es : 8 = ',diccionario[8]);
end;
9 : begin
writeln('El numero pulsado Es : 9 = ',diccionario[9]);
end;
end;
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