miércoles, 24 de enero de 2007

CONVERSOR OUROS-EUROS

El codigo está en Pascal. Mas adelante se implementará en más lenguages y con un entorno de ventanas para que sea mas amigable al usuario. Podeis descargaroslo sin mas (menos tu Gordo-Cabrón!!).


program conversor_ouros;

var
euros, ouros: real;
fin: boolean;

function conversor(entrada:real):real;
const
cambio_ouro=1.0386;
begin
conversor:= entrada*cambio_ouro;
end;

begin
writeln('Conversor de ouros a euros');
writeln('Introduzca una cantidad negativa para terminar...');
writeln;
fin:=false;
while not fin do
begin
writeln('Cantidad de ouros a convertir');
readln(ouros);
if ouros<0 ouros =" ',">

4 comentarios:

Lupy dijo...

eres un ñu!!! la gente no freak q no tiene pascal como hace... q pocas miras a la expansion de la pagina...jaja

Mr.Jobs dijo...

Joder!
eso es solo el nucleo, "ma tarder" iremos añadiendo funcionalidades hasta llegar a tener un sistema operativo que no se cuelgue!

He dicho.

Mr.Jobs dijo...

Por cierto, voy a cambiar el nombre... El Equipo Trompas!

Ruben G.(de Guapo)
Lupy(intercooloer, de tuning)
Capitan Trompas (en tiemos de Hernan Cortes era conocido como "Gran Bebedor Levantate")

tantantan tantantaaantaaaaaan tantararaannn tantantarara tantararaaaaan tantan taranta taraaraaaraaaaaa! El Equipo Trompas!!

QUE OS PARECE??

Unknown dijo...

jaja! ay q joderse!!!! tu eres el puto ñu! que es eso de guapo joer! Pero si, la idea está bien, no mejor, esta de pm!!! Q bueno lo de Gran Bebedor Levante!! Quién será Mr T??