Pascal 08 - Instalación y uso básico de Lazarus

[@PastorPalaciosMartinez]

Saludos cordiales desde Venezuela, altamente agradecido por compartir sus conocimientos con nosotros, sus explicaciones me resultan muy claras y amenas, es un gusto aprender de alguien con dominio total del tema y que además lo explique de forma accesible para quienes buscamos aprender.

[@santiagojuarez510]

Sos un jefe gracias por tu contenido. Saludos desde Argentina

[@TrilogiaExitosa]

HOLA PROFE, PRIMERO QUE TODO AGRADEZCO TUS INSTRUCCIONES SON MUY PRACTICAS PARA ALGUIEN COMO YO QUE SE ESTA INDUCIENDO EN EL MUNDO DE LA PROGRAMACION; AHORA VIENDO LA TAREA QUE HAS PUESTO, LO HE HECHO DE ESTA MANERA, AGRADEZCO SUS RECOMENDACIONES Program aprendiendo; var n1 : integer; n2 : integer; begin writeln('dame un primer numero'); readln(n1); writeln('dame un segundo numero'); readln(n2); begin if (n1 mod 5=0) then writeln('es mulptiplo de 5') else writeln('no es multiplo de 5') end; begin if (n2 mod 5=0) then writeln('es multiplo de 5') else writeln('no es multiplo de 5') end; readln; end.

[@Nacho_Cabanes]

Está bastante bien, pero lo que se pide es decir "cuántos", para que te veas obligado a jugar con "and" y con "or".

[@NestorMonsalve18]

Extrairdinario

[@danielperezbustillos1589]

buenas amigo. tengo un problema. no me aparece el ejecutable make... no se que hacer alli en ese caso... muchas gracias de antemano por la ayuda que me pueda prestar

[@Ericksystem]

un gusto saludarlo sr nacho cabanes

[@manuelgarciagarcia2501]

Muy buen tutorial.

[@rodrigonunez9423]

program Ejemplo; var n:integer; cant:integer; begin write ('Ingrese dos numeros: '); cant := 0; read (n); if (n MOD 5 = 0) then cant := cant+1; read (n); if (n MOD 5 = 0) then cant := cant+1; write ('Los numeros multiplos de 5 son: ', cant); end.

[@Nacho_Cabanes]

Una solución interesante, pero demasiado avanzada, porque usa conceptos que vemos en la entrega 9. Subo otra solución como "oficial" a GitHub.

[@eliasvargas9681]

Gracias por tucurso, me dió otra manera de ver la programación, pregunta: ¿lazarus tambien soporta la libreria graph? quise correr uno de tus codigos en embarcadero y no pude

[@Nacho_Cabanes]

Con Lazarus (Free Pascal), al menos con las primeras versiones, sí se incluía "graph". Es muy probable que Embarcadero Delphi no la traiga, porque es algo bastante obsoleto.

[@golo7162]

Hola, primero que nada, gracias por compartir sus conocimientos sobre programación. Y tengo una duda, para trabajar con pascal en terminal de Linux (yo actualmente uso Linux mint), qué paquetes hace falta instalar??

[@Nacho_Cabanes]

En Synaptic o tu gestor de paquetes deberías tener alguno cuyo nombre empiece por "fpc" y que fuera el binario listo para utilizar.

[@golo7162]

@@Nacho_Cabanes Gracias! Ya instalé el compilador fpc, sí funcionó :)

[@lautarocravero3405]

gracias todo me funciono muy bien excepto que al poner READLN no me queda la pestaña abierta. hay alguna forma de solucionar esto? ya intente escribiendo READLN; READ; READLN ( ) READ ( ) y no funciona de ninguna manera

[@Nacho_Cabanes]

Es raro. ¿Qué compilador o entorno utilizas y en qué sistema operativo?

[@santivilleres]

program lazarus; uses crt; var n,m:integer; begin clrscr; writeln('dime un numero'); readln(n); writeln('dime otro numero'); readln(m); begin if (n mod 5=0) and (m mod 5=0) then writeln('los dos numeros son multiplos de 5') else if (n mod 5=0) or (m mod 5=0) then writeln('un numero es multiplo de 5') else writeln('ningun numero es multiplo de 5'); end; readkey; end. mi duda es si esta de más ese begin end, ya que aún no entiendo cuando van y cuando no.

[@Nacho_Cabanes]

La propuesta es casi perfecta. No necesitas el "begin" y el "end". Sólo hacen falta cuando el "if" o el "else" van a dar más de un paso. Por lo general, también sobrará el "readkey",

[@Sami-cv3wh]

Buenas, estos vídeos son de mucha utilidad, principalmente porque siguiendo otros se me originaron problemas con el debugger que no permitían ejecutar Lazarus luego de reiniciar la PC. A pesar de eso, tengo una molestia que comparto con cmd, y es el "cursor" parpadeante al escribir el código. En la versión más reciente de Lazarus aparece este rectángulo parpadeante en vez del típico al momento de escribir, y el problema que tiene este es que al querer corregir un error en el principio del código debemos de reescribir todo, porque no escribe entre los caracteres ya existentes, sino que escribe sobre ellos. ¿Conoces alguna forma de desactivarlo? He buscado en foro y nadie lo ha comentado, siquiera en inglés. Desde ya, muchas graciass

[@Sami-cv3wh]

Olvídalo, no existe dicha opción en ajustes, creo. Pero un reinicio fue suficiente.

[@hictorjesus1530]

program ejemplo; var n1 : integer; n2 : integer; begin writeln('Dime un numero'); readln(n1); writeln('Dime otro numero'); readln(n2); begin if (n1 mod 5=0) and (n2 mod 5=0) then writeln('Los dos son multiplos de 5') else if(n1 mod 5=0) Or not (n2 mod 5=0) then writeln('Solo el primero es multiplo de 5') else if not(n1 mod 5=0) Or (n2 mod 5=0) then writeln('Solo el segundo es multiplo de 5') else writeln('Ninguno es multiplo de 5') end; readln; end.

[@Nacho_Cabanes]

Tu planteamiento se acerca mucho, pero se complica un poco más de lo necesario, al decir qué número cumple, en vez de cuantos. También te sobra un bloque begin-end y el readln final. Lo tomo como base para una solución "oficial" y la subo, para que la puedas comprobar. 🙂

[@totoovied]

(*Crea un programa que pida al usuario dos numeros y que responda cuantos de ellos son multiplos de 5..*) program ejemplo; var n1:integer; n2:integer; begin writeln('Dime un primer numero'); readln(n1); writeln('Dime un segundo numero'); readln(n2); if (n1 mod 5=0) and (n2 mod 5=0) then writeln('Los dos son multiplos de 5') else if (n1 mod 5=0) and (n2 mod 50) then writeln('El primero solo es multiplo de 5') else if (n2 mod 50) and (n2 mod 5=0) then writeln('El segundo solo es multiplo de 5') else writeln('Ninguno es multiplo de 5'); readln; end.