buenas amigos tengo que hacer un programa aunque me se todos los comandos y todo creo que estoy pensando mal en la logica del programa....
el programa se trata de:
TEngo que crear un programa que va a terminar cuando Consiga un *, cada linea tiene un maximo de 60 caracteres y se encuentra un mensaje Escondido..(todo eso ya va a estar en un archivo .TXT guardado que tendremos que abrir para leerlo.
para decifrar el mensaje...
las palabras que pertencen al mensaje estan escondida en una pared que va a ser un numero ese va indicar cuatos carcteres vamos a tomar el mensaje que obtenga sera colocado en un texto diferente creado por mi, y no puede pener mas de 20 carcteres por linea.
Este mi algoritmo..
Program Cadena;
uses crt;
var
cadena60:string[60];
cadena20:string[20];
cadenaux:string[20];
arch1,arch2:text;i,long,num:integer;
begin
clrscr;
i:=1;
assign(arch1,'C:\Documents and Settings\Administrador\Mis documentos\Funboy\Programas\sample.txt');
reset(arch1);
assign(arch2,'C:\Documents and Settings\Administrador\Mis documentos\Funboy\Programas\saliente.txt');
readln(arch1,cadena60);
while (not(EOF(arch1))) do
long:=length(cadena60);
For i:=1 to long do
while cadena60 <> '*' do
num:=ord(cadena60) - 48;
if (num >= 1) and (num <=9) then
cadenaux:=cadenaux + copy(cadena60,i+1,num);
end.
no pido que me digan nada solo expliquenme bien la logica del programa y que estoy haciendo mal
... :S
Saludos y Gracias de antemano.
Mostrar Mensajes
