Programa escrito por el autor del documento «OVNI» y del post: El arca de Noé y el OVNI de José

Pascal lo practico ahora como aficionado, programo como en los viejos tiempos, como en los 90’s, en los tiempos de las computadoras XT y AT286, tiempos de los diskettes de 51/4 y 3!/2 pulgadas donde apenas cabian 360kg y 1.44MB respectivamente, donde una PC con una HD de 600 MB y pantalla SVGA era valorado. Programación retro, cuando había que programar más detalles. En 1992 estudié unos ciclos de computación e informática en Cibertec donde llevé el curso de Pascal, Código: CI 9211315, luego estudié en Computronic Tech y finalmente en IDAT, ejercí mi carrera como programador poco más de 6 meses, solo hasta mediados de 1997, repasar Pascal es como un pasatiempo. Soy José Galindo el autor del blog de contenido lógico: http://www.ai20.me -Entender su mensaje es un asunto de lógica, como lo es este programa generador de escaleras que he creado y que voy a explicar. Código fuente de este programa https://dontmissit665019001.files.wordpress.com/2022/03/programa-generacion-de-escalera-v-01-lenguaje-pascal.txt

{programa que genera una escalera,
se especifca el nro de gradas, velocidad de creacion y color de lineas,
programado por el autor del blog http://www.ai20.me,
Jose Carlos Galindo Hinostroza,
fecha de creacion: 21/03/2022,
programado en Turbo Pascal}
Program escalera;
Uses Crt;
Type
numero = integer;
Var
tmil,velo, vx,vy,gradas, colorg, cg,cg2,xp : numero;
Begin
clrscr;
repeat
gotoxy(1,1);
write(‘Indica el # de gradas para la escalera (1-25):’);
readln(gradas);
until ((gradas>0) and (gradas<26));
repeat
gotoxy(1,2);
write(‘Indica la velocidad de formación de cada grada (ms)(1= 60,2=120,3=240):’);
readln(velo);
until ((velo>0) and (velo<4));
repeat
gotoxy(1,3);
write(‘Especifica el color de la grada:’);
textcolor(lightblue);write(‘1 ‘);
textcolor(lightgreen);write(‘2 ‘);
textcolor(yellow);write(‘3 ‘);
textcolor(lightred);write(‘4 ‘);
textcolor(cyan);write(‘5 ‘);
textcolor(blue);write(‘6 ‘);
textcolor(white);write(‘7 :’);
clreol;
readln(colorg);
until ((colorg>0) and (colorg<8));
clrscr;
case colorg of
1: textcolor(lightblue);
2: textcolor(lightgreen);
3: textcolor(yellow);
4: textcolor(lightred);
5: textcolor(cyan);
6: textcolor(blue);
7: textcolor(white);
End;
case velo of
1: tmil:=30;
2: tmil:=60;
3: tmil:=120;
End;
vy:=25;
vx:=1;
for cg:=0 to (gradas-1) do
begin
gotoxy(vx+(cg*3),vy-cg);
xp:=vx+(cg*3);
write(‘┌’);delay(tmil);write(‘──’);delay(tmil);write(‘┘’);
end;
xp:=xp+2;
for cg2:=1 to (gradas) do
begin
if cg2=(gradas) then
begin
gotoxy(xp,26-cg2);write(‘─┐’);
end
else
begin
gotoxy(xp,26-cg2);write(‘ │’);
end;
end;
readkey;
end.

 

// – 14/03/2022

Programa en Turbo Pascal para mover texto N número de veces a una velocidad específica mientras cambia el color del texto.

Programa escrito por el autor del documento «OVNI» – https://dontmissit665019001.files.wordpress.com/2022/03/ovni.docx

y del post: El arca de Noé y el OVNI de José

#pascal #turbopascal «Programa en Turbo Pascal para crear un texto en movimiento horizontal con cambio de color» #programador #programacion

El 9 de Marzo escribí un post en el que indiqué mi intención de crear un programa en lenguaje Pascal que me ayude a generar unos banners básicos: Lo conseguí, el texto ingresado por el usuario aparece luego en movimiento mientras cambia el color del texto en cada movimiento, el usuario ingresa la fila, la velocidad en milisegundos, el texto y el numero de ciclos de deslizamiento.

La pantalla de ingreso y salida de datos es de 80 columnas por 25 filas, como en la pantalla para el sistema operativo DOS de los años 90, la misma pantalla del programa emulador para programar en Pascal que me descargué de la Internet.

Program movimiento;
Uses Crt;
Type
numero = integer;
cadena = string;
Var
c, f, i,i2, l,ci, ve, cpc, nved : numero;
palabra : cadena;
t : char;
Begin
clrscr;
c:=1;
cpc:=0;
repeat
writeln(‘Fila para el texto (1-25):’);
readln(f);
until ((f>0) and (f<26));
repeat
writeln(‘Velocidad de desplazamiento en milisegundos (1-1000):’);
readln(ve);
until ((ve>0) and (ve<1001));
writeln(‘Texto a procesar:’);
readln(palabra);
repeat
writeln(‘Numero de veces a deslizar (1-11):’);
readln(nved);
until ((nved>0) and (nved<12));
l:=length(palabra);
ci:=80-l;
for i2:=1 to nved do
begin
for i:=1 to (ci) do
begin
clrscr;
gotoxy(ci-i+1,f);
Write(palabra);
gotoxy(1,f);
write(‘              ‘);
c:=c+1;
cpc:=cpc+1;
delay(ve);
case cpc of
1: textcolor(lightgreen);
2: textcolor(lightblue);
3: textcolor(cyan);
4: textcolor(yellow);
End;
If cpc=4 then
cpc:=0
end;
clrscr;
end;
end.

Este es un GIF basado en la filmación de un video en mi televisor (conectado via cable HDMI con mi laptop) de este programa en funcionamiento, el brillo que rodea el texto no lo he programado, es el reflejo especial de la luz de la pantalla registrado por la cámara de mi celular, pero se ve bien.

+ https://dontmissit665019001.files.wordpress.com/2022/03/programa-movimientos-1-version-lenguaje-pascal.txt

+ https://dontmissit665019001.files.wordpress.com/2022/03/programa-movimientos-1ra-rev-lenguaje-pascal.txt

+ https://dontmissit665019001.files.wordpress.com/2022/03/programa-movimientos-2da-revision-lenguaje-pascal.txt

// mensaje del 9 de Marzo con algunas actualizaciones //

Yo me formé como programador de computadoras desde 1992, estudié en tres institutos en Cibertec, en Computronic y en IDAT, la última vez que hice un programa en Pascal fue en Computronic, en IDAT me especialicé en AS/400 – RPG, empecé bien mi profesión que solo pude ejercerla en dos empresas, aunque me faltaba el título, solo fuí egresado del instituto, una serie de eventos me llevaron por otro rumbo y aquí estoy buscando ayudar a otros seres lógicos: mis semejantes.

Me distingo de muchos otros en que yo denuncio mentiras en la Biblia procurando rescatar de ella y de los apócrifos el mayor número de verdades posible, dicho esto me enfocaré en este mensaje que lo considero fiel:

San Pablo escribió: 1 Corintios 11:1 Sed imitadores de mí, así como yo de Cristo.
Pablo = Cristo (Pablo imita a Cristo, PA=San Pablo, CR=Cristo)
1 Corintios 11:13 Juzgad vosotros mismos: ¿Es propio que la mujer ore a Dios sin cubrirse la cabeza? 14 La naturaleza misma ¿no os enseña que al varón le es deshonroso dejarse crecer el cabello?

(Conclusión: Se desaprueba que el varón ore a Dios con la cabeza cubierta)

1 Corintios 11:15 Por el contrario, a la mujer dejarse crecer el cabello le es honroso; porque en lugar de velo le es dado el cabello.

Pablo rechaza que el varón use el cabello largo a manera de velo, pero acepta que sí lo usen las mujeres, entonces Pablo llevaba su cabello corto.
Pablo : Usa cabello corto. (PA = CC)

Si Pablo imitaba a Cristo entonces Cristo también usaba su cabello corto, ¿cómo podría Pablo imitar a un Cristo de cabello largo a modo de velo y al mismo tiempo decir que eso es una deshonra para un hombre?, eso sería ilógico, ¿Cómo podría Pablo tener ese concepto y al mismo tiempo el mismo llevar su propio cabello largo a modo de velo?.

1 Corintios 11:16 Con todo eso, si alguno quiere ser contencioso, nosotros no tenemos tal costumbre, ni las iglesias de Dios.

Es claro, ni Pablo tiene esa costumbre ni tampoco los demás cristianos o discípulos de Cristo, es decir, ningún varón en los físicamente distantes grupos de los primeros cristianos, es decir «las iglesias de Dios» de las que el habla, ninguno de esos hombres usaba el cabello largo a modo de velo sobre su cabeza, ni ninguno de esos varones oraba a Dios con velos puestos en sus cabezas; así mismo, ninguna de las mujeres en esas iglesias llevaba el cabello corto.

Estas imagenes sintetizan mis brillantes conclusiones:

https://dontmissit665019001.files.wordpress.com/2022/03/la-solucion-final.docx

(Nota: Satanás es igual a calumniador, es decir: un injusto, un malvado, un inicuo, un impío, como un tal Pablo Soliz:

).
«¿Para qué pierdes tu tiempo estudiando «Filosofía y Lógica», Satanás, si eres una bestia y siempre lo serás?, no tienes lógica, tus actos son incoherentes con respecto a quién tú afirmas ser. (Pablo Solis, tú dijiste: «todos somos la piedra que los edificadores desecharon», yo te digo: «¿acaso en un edificio todas las piedras son angulares?, para que haya piedra que sea la «piedra angular» tienen que existir otras que no lo sean, ¿acaso no dice Salmos 118 que solo los justos pasan por las puertas de la justicia porque ellos son esa piedra angular?, ¿acaso todos somos justos?, si todos somos justos o esa piedra angular, ¿por qué hay personas tenidas por enemigos y otras por amigos en la profecía del juicio en Salmos 110?, ¿tan estúpido eres que no entiendes?»)»


«Satanás eres una bestia…:»
Proverbios 17:16 ¿De qué sirve el precio en la mano del necio para comprar sabiduría cuando no tiene entendimiento?


«Y siempre serás una bestia…:»
Daniel 12:10 … los impíos procederán impíamente, y ninguno de los impíos entenderá …
«Por eso lloras y crujes tus dientes, sabes que no me entiendes, y te das por aludido (o aludida


Salmos 112:10 Lo verá el impío y se irritará; Crujirá los dientes, y se consumirá.
El deseo de los impíos perecerá.

https://dontmissit665019001.files.wordpress.com/2022/03/daniel-7-26-el-tribunal-se-sento-y-la-cuarta-bestia-fue-destruida.docx

PD.

Por cierto, hace pocos día encontré lo que por muchos años había intentado encontrar si éxito, un emulador de Turbo Pascal, este es el modesto algoritmo con el que estoy retomando la programación en Pascal, encontré un compilador que emula el entorno de DOS, lo hicieron en Vietnam!

Lo incorporo en mi blog porque siempre pienso en aumentar las posibilidades de que más gente encuentre mi blog al navegar por la internet.

Program suma;
Uses Crt;
Const
Resultadodelasuma = ‘El resultado de la suma es ‘;
Type
numero = integer;
Var
Resultado, Primernumero, Segundonumero : numero;
Begin
Clrscr;
Writeln(‘Primer Nro: ‘);
Readln(Primernumero);
Writeln(‘Segundo Nro: ‘);
Readln(Segundonumero);
Resultado:=Primernumero+Segundonumero;
Writeln(Resultadodelasuma,Resultado);
Readln;
End.

Mis habilidades se mantienen después de 28 años!

Se agradece!

«Mi próxima meta es programar unos generadores de banners básicos que deslizen y cambien de color a un pequeño texto que yo digite a fin de usarlos en mis videos, tengo que repasar los comandos porque francamente me he olvidado de la mayoría de los comandos.»

Para entender las genuinas profecías se necesita más lógica que memoria, por eso yo he logrado lo que otros no han logrado:

+ https://videos.files.wordpress.com/Uzjnj9kS/la-resurreccion-y-el-juicio-final.mp4

 

Etiquetas:

¿Quién es Lucifer?, ¿Cómo era Jesús?, ¿Que significa 666?, ¿Quién es la bestia y el Anticristo?,
https://ai20.me/2019/04/21/cristo-utilizo-el-cabello-corto/
¿Hay una sola bestia?, ¿Hay muchos anticristos?.
Las respuestas a todas estas preguntas las puedes encontrar sí eres analítico y después de ver de principio a fin este video y sus mensajes en las imagenes didácticas.
Un aficionado a la programación de computadoras lo ha escrito, todo esto se trata de pura lógica.

+ https://videos.files.wordpress.com/Rk9zHhwc/como-era-jesus-y-quien-es-lucifer.mp4

 

Nota:

+ https://dontmissit665019001.files.wordpress.com/2022/02/creo-en-la-resurreccion-de-los-muertos-y-en-la-vida-eterna-reencarnacion-e-inmortalidad-en-la-gloria-verdadera.xlsx

+ https://videos.files.wordpress.com/Uzjnj9kS/la-resurreccion-y-el-juicio-final.mp4

Sí, me refiero a ese Diablo que vende cruces o que predica la Biblia, y que creó la expresión con la que el trató de disimular su satanismo: «El diablo vendiendo cruces!» o «El Diablo odia la Biblia». (el negocio del Diablo es vender cruces y otros objetos para que sean tratados como ídolos, su negio es la idolatría).

x

Y como dije antes, Oseas 6: 1-4 es una profecía en plural. Entonces, esto se refiere a muchas personas que volverán a vivir después de 2 días, digamos después de 2000 años, porque en el contexto de Jehová, un día es como 1000 años (Salmos 90: 4, 2 Pedro 3: 8).

Después de 2000 años desde el día de la muerte de Jesús en la cruz, en el tercer milenio, en la era de Internet, porque solo a través de la existencia de Internet se puede completar la profecía de Isaías 42: 1-17, en ese momento. los elegidos volverán a vivir y volverán a encontrar la verdad que conocían antes (Daniel 12: 1-3).

Para desarrollar mi humilde video, no tenía el costoso software, ni siquiera un equipo de personas como ayudantes, lo hice todo yo mismo, yo solo, pero puedes comparar mi contenido con el de los demás y reconocer quién miente y quién no.

vs.

¿Dónde esta vuestra inteligencia?, ¿Qué más puedo comentar sobre vuestro equipo de trabajo ?:

Salmos 2: 7 4 El que está en el trono del cielo se ríe;
el Señor se burla de ellos .: – jajaja –
Proverbios 17:16 «¿Por qué hay precio en la mano del necio para comprar sabiduría, si no tiene entendimiento?».

» https://ai20.me/2021/02/08/damien-you-dont-need-a-couple-of-mirrows-to-confirm-your-fears-revelation-1813-here-is-wisdom-let-him-that-hath-understanding-count-the-number-of-the-beast-for-it-is-the-number-of-a-man/

x

 

 

Daniel 7:25 Y él hablará palabras contra el Altísimo, y á los santos del Altísimo quebrantará, y pensará en mudar los tiempos y la ley: y entregados serán en su mano hasta tiempo, y tiempos, y el medio de un tiempo. 26 Empero se sentará el juez, y quitaránle su señorío, para que sea destruído y arruinado hasta el extremo; &#8211; Ya se sentó el Juez!.

¿crees que un dios así que parece que le pide sexo oral a su adorador va a mover un dedo para detener de verdad (con la pena de muerte) a otros que les piden lo mismo a los niños? , no, por eso él y todo su ejército de falsos profetas van al infierno.

 

x

//