...pcs en el cine....

[kinobi]

Empezado por marcoszorrilla

No ha habido ni habrá editor de texto como el EDLIN, que cantidad de comandos, que complicación, y todo para nada.

Es que no es un editor de texto... es un EDitor de LÍNeas

Saludos.

[marcoszorrilla]

Muy cierto y tienes toda la razón, a las 23h19 y tras 12h de actividad sin contar los descansos se fué ligeramente la onda.

Goto 220
Goto 300
Gosub 5000
Goto 3000
..........
cls
Locate 12,30 Print "Un Saludo"

[Jure]

Empezado por marcoszorrilla

....

Goto 220
Goto 300
Gosub 5000
Goto 3000
..........
cls
Locate 12,30 Print "Un Saludo"

.... guao esto se ha convertido hilo de volver al pasado ....

[kinobi]

Estando en un portal sobre Delphi...

El Santo Oficio en acción

Empezado por marcoszorrilla

Goto 220

--> Herejía

Empezado por marcoszorrilla

Goto 300

--> Herejía

Empezado por marcoszorrilla

Gosub 5000

--> Lo tomamos como sustituto de función o procedimiento --> NO herejía

Empezado por marcoszorrilla

Goto 3000

--> Herejía

Penitencia: A la cama a disfrutar de ocho horas de descanso reparador

Un saludo, y buenas noches.

P.S. Al ver los gotos, no lo pude resistir

[roman]

Bueno, bueno, no olvidemos que Pascal (y Delphi) también tienen su goto y a decir verdad break y continue no son más que gotos disfrazados.

Y ya que andamos en la nostalgia comentaré que la primera pc que usé (no mía, pues mi primer ordenador lo obtuve mucho después) era un xt. Programábamos en un editor cualquiera que venía incluido en el disquette de 51/4 que contenía el sistema operativo. Nada de Ctrl+F9 por supuesto, había que programar a "ciegas" y llegado el momento le pedíamos al encargado el disquete con el compilador, mismo que compilaba más lento que lo que tardábamos en imprimir nuestro glorioso listado:

program Imprime(Input, Output);

var
	N: Integer;

procedure ImprimeMensaje(N: Byte);
var
	I: Byte;

begin
	for I := 1 to N do
		WriteLn('Hola');
end;

(* Programa principal*)
begin
	WriteLn('Escribe el número de veces');
	ReadLn(N);
	if N <= 1 then
		WriteLn('Debe ser un número mayor que 1')
	else
		ImprimeMensaje(N);
end.

No juzguen por las apariencias, el programa, si son observadores, abarca muchos tópicos: control de flujo, bucles, entrada y salida de datos y hasta uso de comentarios.

Y no se enojen mis unixeros pero entre el edlin y el vi...

// Saludos

[kinobi]

Hola,

Empezado por roman

Bueno, bueno, no olvidemos que Pascal (y Delphi) también tienen su goto y a decir verdad break y continue no son más que gotos disfrazados.

Cierto, pero no olvidemos tampoco que goto es la puerta hacia la desestructuración (la palabra maldita hace unos años).

Recuerdo el primer examen de programación (Pascal) de la carrera, cuando el profesor nos aviso por adelantado que el uso de goto era pasaporte seguro para el suspenso.

Saludos.

[roman]

Sin embargo creo que es un poco como todo; el uso del goto puede ser origen de código tremendamente confuso pero no necesariamente. Alguna vez en que me puse a estudiar un poquito de ensamblador (donde los jmp están a la orden del día) vi código muy bien estructurado y prolijo. Por otra parte he visto código sin ningún goto pero terriblemente mal organizado.

Ahora (quizá una falacia), una de las grandes objeciones al uso goto es la dificultad en poder seguir el flujo de un programa pero, ¿han tratado de seguir el flujo en la VCL desde la llegada de un mensaje a WndProc hasta el correspondiente evento de una componente?

// Saludos

[marcoszorrilla]

donde los jmp están a la orden del día
y los:
jl
lg
je

l=lower
g=greater
e=equal.

Mov, ah,09h
Mov, dx,'Hola'
Int 21h

Un Saludo.

[andres1569]

Vaya, para ser el foro de Humor sí que está divertido esto (

Empezado por roman

Sin embargo creo que es un poco como todo; el uso del goto puede ser origen de código tremendamente confuso pero no necesariamente. Alguna vez en que me puse a estudiar un poquito de ensamblador (donde los jmp están a la orden del día) vi código muy bien estructurado y prolijo. Por otra parte he visto código sin ningún goto pero terriblemente mal organizado.

Es como todo, eso depende del programador. Ciertamente alguna vez he echado en falta el usar el Goto en determinados casos donde hubiera venido de perillas, y alguno dirá que por qué no los he usado: pues lo que decía Kinobi, tal se me quedó en la cabeza aquello de que usar un Goto era suspenso seguro que mi subconsciente me impide hacer uso de ellos ... , como lo oís.

Empezado por roman

Ahora (quizá una falacia), una de las grandes objeciones al uso goto es la dificultad en poder seguir el flujo de un programa pero, ¿han tratado de seguir el flujo en la VCL desde la llegada de un mensaje a WndProc hasta el correspondiente evento de una componente?

Pues sí, la programación orientada a eventos puede generar quebraderos de cabeza mayores aún, e incluso se producen situaciones recursivas difíciles de descubrir, en mis primeros años con Delphi sufrí de lo lindo con ese tema dándole al F7 y F8 y perdiéndome en la inmensidad del océano del código para ver dónde la fastidiaba, si bien los Gotos se mueven dentro de una misma rutina para saltarse un trozo, con los eventos hay veces que no sabes muy bien a dónde te llevan a parar ...

Saludos

[<Sergio>]

Volviendo al tema de las pc en el cine. ¿Notan que cuanto mayor es el presupuesto de la película la distorción también es mayor?

P.D.

Empezado por kinobi

...el uso de goto era pasaporte seguro para el suspenso...
HEREJIA!
HEREJIA!
HEREJIA!

Se ponian bastante violentos con el tema...

Y que tal programar con este estilo:

Código Delphi [-]
 const
   mskTrans=$7BDE
 ;type
   Tlinea=array[0..0] of word
 ;function bltAlpha50(BitmapDes:Tbitmap;XDes,YDes,Ancho,Alto:integer;BitmapOrg:Tbitmap;XOrg,YOrg:integer):boole  an
 ;var linea:^Tlinea
      ;lineao:^Tlinea
      ;i,j,ajuste:integer
 ;begin
   result:=EstaEnInterior(XDes,YDes,Ancho,Alto,XOrg,YOrg,LimitesPantalla)
   ;if not result then exit
   ;dec(Ancho)
   ;Ajuste:=XDes-XOrg
   ;for j:=0 to Alto-1 do
   begin
     lineao:=BitmapOrg.scanline[j+YOrg]
     ;linea:=BitmapDes.scanline[j+YDes]
     ;for i:=XOrg to Ancho+XOrg do
       if lineao[i]<>$0 then
         linea[i+Ajuste]:=((linea[i+Ajuste] and MskTrans)+(lineao[i] and MskTrans)) shr 1
   ;end
 ;end
 ;

Estoy seguro que se rasgarian las vestiduras y me acusarían de hereje por poner los ";" al inicio.

[kinobi]

Hola,

Empezado por <Sergio>

Estoy seguro que se rasgarian las vestiduras y me acusarían de hereje por poner los ";" al inicio.

No estés tan seguro. Cualquiera que haya estudiado o construido un traductor (intérprete, compilador, preprocesador...) le será prácticamente indiferente. Además, si tú lo encuentras cómodo de esa forma, la sintaxis Pascal no te fuerza a colocar determinados tokens en determinadas columnas, al contrario que otros lenguajes como COBOL, RPG, FORTRAN...

Saludos.

[marcoszorrilla]

Quizás todos estos códigos inveterados, ancianos y porque no obsoletos vayan a parar al Museo del código "Aquellos programadores con sus viejos cacharros".

echo off
cls
echo *****Pulse una tecla para continuar******
pause >nul
cls
echo *****Cargando MS-DOS 1.0

un Saludo.

[Jure]

Empezado por kinobi

... es un EDitor de LÍNeas ....

.... usted no lo ha dicho mejor compa'e kinobi...