Ahora  haremos un programa endonde se conviertan pesos mexicanos a dólares, como en el ejemplo anteriorrealizaremos primero el Pseudocódigo, en este caso yo lo eh redactado así:

*Begin
*Ingresa la cantidad en Pesos Mexicanos que deseas convertir a Dólares:
*Leer pesos Mexicanos (a)
*Realizar operaciones (total=a/13.06)
*Imprimir el resultado en pantalla
*End

Donde:
a= Es lacantidad de pesos
total = esel valor en dólares

Ahorateniendo el Pseudocódigo podemos realizar el programa con mayor facilidad.Tomaremos de nuevo en cuenta la estructura básica de un programa:

PROGRAMNOMBRE_DEL_PROGRAMA;
USES
   CRT;
CONSTANTES
VARIABLES
BEGIN
CLRSCR;
INSTRUCCIONES;
END.

Bien,entonces con la estructura básica podemos realizar el programa:

{Esteprograma convierte de Pesos a Dólares}

ProgramConversor_Unidades;          {Nombre delprograma}
Uses
   crt;
var           {Declaración de variables}
    a,total:real;
Begin   {Aqui inician las instrucciones}
clrscr;
writeln('Ingresa la cantidad en Pesos Mexicanos que deseas convertir a Dolares:');  
readln (a);
total:=(a/13.06);
writeln ('Lacantidad en dolares es de ',total:0:2);
readln;
end.
Código Fuente

Programa en Funcionamiento

Nota: Laspalabras que están dentro de {} son comentarios que el programador puede hacer,por ejemplo para describir que es lo que hace su programa en cada paso. Estaslíneas son ignoradas totalmente por el IDE, y no afectan en el programa.

Recuerdencolocar “:0:2” después de la variable para que el resultado salga con dosdecimales.

edit post

Comments

0 Response to '4.- Otro ejemplo [PASCAL]'

Publicar un comentario