EJERCICIOS RESUELTOS: SLE(PARTE1)

---

LISTAR NUMERO

---

programa lsitado_numeros

var

n:numerico

inicio

cls();

n=0

desde n=0 hasta 100

{

imprimir("\n",n)

}

fin

---

CUADRADOS DE NUMEROS Y ANTERIORES

---

programa cuadradonnumeros

var

n,cuad :numerico
inicio
cls();
imprimir("ingresar numero")
leer(n)



cuad=1
desde cuad=1 hasta n
{
imprimir("\n",cuad,"\t",cuad^2)


}
fin

---

SUMA DE NUMEROS IMPARES

---

programa sumadeimpares


var
n,num,suma:numerico


inicio
cls();
imprimir("ingrsa numeero")
leer(n)
num=1

repetir

num=(n*(n+1))/2

hasta (n>0)

imprimir("la suma es   :",num)
fin

---

DESDE - HASTA

---

programa numeros

var

n:numerico

inicio

cls();

n=1

repetir

imprimir("\n",n)

n=n+2 

    

hasta(n>40)

fin

---

PROMEDIO

---

programa numeros

var

n:numerico

i:numerico

promedio:numerico

inicio

cls();

n=30

i=0

repetir

imprimir("\n",n)

i=i+n

n=n+1

hasta(n>80)

promedio=i/50

imprimir("\n",i)

imprimir("\n el promedio es  :",n)

fin

---

SUMA 100 PRIMEROS NUMEROS

---

programa hallar
var
num,n:numerico
inicio
cls();
imprimir("la suma de los 100 primeros numeros es  :")

n=(100*(100+1))/2

imprimir("\n",n)
fin

---

ENTRADA Y SALIDA

---

/*
 * Ejemplo de uso de leer().
 */
var
   año_nac  = 0
   nombre_completo = ""
inicio
   imprimir ("\nIngrese su nombre completo y el año de su nacimiento (aaaa):")
   leer (nombre_completo, año_nac)
   imprimir ("\nBuenos días ", nombre_completo, ".\n")
   si ( año_nac > 1985 ) {
      imprimir ("Adelante! Hay mucho camino por andar.")
   sino
      imprimir ("Descansa un poco; mucho ya has caminado.")
   }
fin

---

SUMA DE FRACCIONES

---

calculr_fraccion

var
i,n,suma,fact:numerico

inicio
cls();
imprimir("\ningrese numero")
leer(n)
i=1;

mientras(i<=n)
{
imprimir("\n",1/i)
suma =suma+1/i
i=i+1
fact=suma*i
}
imprimir("\nla suma es ",fact)
fin