Mi primer programa
Terminé la universidad hace ya unos cuantos años… y desde que empecé casi podría decir
que no ha pasado un día sin tirar una línea de código. Después de años de experiencia
en el mundo de la programación, me ha venido una idea a la cabeza… recuperar el primer programa “serio”
que hice en la universidad. Por supuesto, el lenguaje de programación era PASCAL:
FUNCTION siprimo (VAR tratonumero:integer):BOOLEAN ; VAR (*Declaración de variables locales*) REST,operador : integer; BEGIN operador:=tratonumero; rest:=1; (*Inicialización de la variable*) (*Blucle que determina si un número es primo o no*) WHILE (operador>2) AND (rest<>0) DO begin operador:=operador-1; rest:=tratonumero MOD operador end ; IF rest <> 0 THEN SIPRIMO := TRUE ELSE SIPRIMO:=FALSE; END;
Que limpio es el código programado en PASCAL!.