Estoy buscando un entorno libre para dar clases de Pascal, pero el de toda la vida, sin clases, sin objetos. Es decir, el Pascal llano y sencillo vease:
program raiz(input, output);
(*
Obtener la raíz cuadrada de un número real x cualquiera.
*)
var x, y: real;
respuesta: string;
begin
writeln('** Calcular la raíz cuadrada de x **');
writeln('Entrar x (> 0): ');
readln(x);
y := sqrt(abs(x)); (* Raíz cuadrada del valor absoluto de x para evitar raíces imaginarias *)
writeln;
if (x<0) then (* Si x es negativo, el resultado se notifica como imaginario *)
writeln('La raíz cuadrada de ', x, ' es el número imaginario ', y,'i');
else
writeln('La raíz cuadrada de ', x, ' es ', y);
writeln;
writeln('** Fin **');
readln; (* Espera a que el usuario pulse enter para salir del programa *)
end.
He visto programas como el Lazarus que están muy bien pero necesito algo más simple. Tampoco busco un simple compilador, me basta con que el entorno en cuestión pueda distinguir palabras con colores y punto. Emacs tampoco me sirve xD
Gracias.
