Tipo real

Tipo real: ejemplo 1

algoritmo longitudCircunferencia

{ Lee de teclado el radio de una circunferencia y escribe por pantalla su longitud}

constantes

     pi=3.1416;

variables

     radio:real;

principio

     escribirCadena (pantalla. "Escriba el radio de la circunferencia");

     leerReal (teclado, radio);

     escribirCadena(pantalla, "La longitud de la circunferencia es:");

     escribirReal(pantalla,2*pi*radio);

fin

Tiporeal: ejemplo2

algoritmo ecuacionSegundoGrado

{Resuleve la ecuación ax2+bx+c=0 y escribe el resultado por pantalla}

variables

     a,b,c:real;

     discriminante:real;

     termino1,termino2:real;

principio

     escribirCadena("vamos a resolver la ecuación de segundo grado si nos da a, b y c");

     ecribirCadena("introduce a:");

     leerReal(teclado,a);

     escibirCadena("introduce b:");

     leerReal(teclado,b);

     escibirCadena("introduce c:");

     leerReal(teclado,c);

     dicriminante:=b**b-4.0*a*c;

     termino1:=-b/(2.0*a);

     termino2:=sqrt(abs(discriminante))/(2.0*a);

     si discriminante>=0

          entonces {las dos raíces son reales}

               escribirCadena(pantalla,"Primera raíz:");

               escribirReal(pantalla, termino1+termino2);

               acabarLinea(pantalla);

               escribirCadena(pantalla, "Segunda raíz");

               escribirReal(pantalla, termino1-termino2);

               acabarLinea(pantalla);

     si no {Las dos raíces son complejas conjugadas}

          escribirCadena(pantalla, "Primera raíz.Parte real:");

          escribirReal(pantalla,termino1);

          escribirCadena(pantalla,"Parte imaginaria;");

          escribirReal(pantalla, termino2);

          acabarLinea(pantalla);

          escribirCadena(pantalla,"Segunda raíz,Parte real:");

          escribirReal(pantalla,termino1);

          escribirCadena(pantalla,"Parte imaginaria:");

          escribirReal(pantalla,-termino2);

          acabarLinea(pantalla);

    fsi

final

    

Tipo real: ejemplo 3

algoritmo elevar

{imprime por pantalla el valor de xn}

variables

     resultado, x: real;

     inidice, n: entero;

principio

    escribirCadena(pantalla,"Introduce el valor de x:");

    leerReal(teclado,x);

    escribirCadena(pantalla,"Introduce el valor de n:");

    leerEntero(teclado,n);

    resultado=1.0; {reultado=x0}

    indice=1;

    mientras que indice <= abs(n) hacer

         resultado=resultado*x;

         indice:=indice+1;

    fmq

{resultado=xabs/n}

si n<0 entonces resultado:=1.0/resultado; fsi

escribirCadena(pantalla,"El resultado es:");

escribirReal(pantaña,resultado);

fin

Tipo real: ejemplo 4

...

Este ultimo ejemplo no lo copio que no lo veo bien. Y ayer el dolor de cabeza me duro ... espera, aun no se ha ido :/