Haciendo click en amor.zip
Descomprimiendo el archivo encontrarás "algoritmo de amor" desarrollado :
{*******************************************
* Un algoritmo de Amor *
* * *****************************************}
uses
crt;
var {variables}
Sinlimite,contador,numero:integer;
begin
ClrScr;
{ Es difícil escribir pero cuando pienso en ti y lo que siento, solo pienso que no puedo dejar de hacerlo}
Write('Numero: ');Readln(numero); Sinlimite:=numero;
for contador:=1 to Sinlimite do
begin {Inicio}
write('Te amaré');
write('Te cuidaré');
write('Te protegeré');
write('A tu lado estaré');
write('Te apoyaré');
write('Tu mano siempre tomaré');
end; {fin}
end.
Kusiñahui 07/11/2010 ... solo pensando
como lo descargo se ve interesante
ResponderEliminarYo también quisiera saber como descargarlo y ejecutarlo, parece que la variable "sin limites" que coloqué funciona tan bien, que por mas que le haya colocado el END parece que el proceso del For no acaba y sigue procesando jejeje ...
ResponderEliminar