Ver Mensaje Individual
  #16  
Antiguo 20-10-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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:

Código:
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
Responder Con Cita