. .
pragmaMx Support Forum 25 Mai 2012, 23:27:11 *
Willkommen Gast. Bitte einloggen oder registrieren.


Einloggen mit Benutzername und Passwort
News:
Brauchen Sie Hilfe? Bitte nutzen Sie unsere Suchfunktion bevor Sie Beiträge oder Fragen ins Board schreiben! Viele Fragen wurden bereits gestellt und beantwortet. Danke!
 
Übersicht Hilfe Forenregeln / Boardrules
 
Suche
Seiten: [1]   Nach unten
Drucken
Autor Thema: Euro Umrechner als Konsolenprogramm  (Gelesen 1793 mal)
0 Mitglieder und 1 Gast betrachten dieses Thema.
Gruenschnabel
neu hier
*
Offline Offline

Beiträge: 18


« am: 06 August 2002, 14:08:49 »

So hallo zusammen
Ich sitze gerade vor einem Euro Umrechner und komme nicht weiter!  
Vielleicht kann jemand helfen!?
Das Problem ist die ifels Anweisung.
Das Umrechnen von DM nach Euro klappt  
Aber umgekehrt gibt's Probleme.  


Hier ist der Quelltext:

#!G:\FoxServ\perl\bin\perl.exe -w
#Euro Umrechner
#Ablauf:(Ablaufbeispiel für DM nach EURO)
#Geben Sie den umzurechnenden Betrag ein:
#112,12
#DM <=> Euro (1)?
#Euro <=> DM (2)?
#Ihre Wahl? :
#1
#112.12 DM sind 57.33 Euro
###########################
#Ablauf:(Ablaufbeispiel für EURO nach DM)
#Geben Sie den umzurechnenden Betrag ein:
#112,12
#DM <=> Euro (1)?
#Euro <=> DM (2)?
#Ihre Wahl? :
#2
#112.12 Euro sind 219.29 DM
############################
#Ablauf:(Ablaufbeispiel für die Angaben einer nicht existierenden Option)
#Geben Sie den umzurechnenden Betrag ein:
#112,12
#DM <=> Euro (1)?
#Euro <=> DM (2)?
#Ihre Wahl? :
#3
#Die Wahlmoeglichkeit existiert nicht !
########################################
#Hinweis: Für die Kursumrechnung legen Sie folgende Werte zu Gruende:
# 1 Euro = 1,95583 DM
# 1 DEM  = 0,51129 Euro
########################
print "Umrechner von DM nach Euro. \n";
print "Geben Sie den gewuenschnten Betrag ein und waehlen Sie 1 fuer Euro und 2 fuer DM: \n";
$input = <STDIN>;
chomp($input);
$Euroausw = 1;
$DMausw = 2;
$Euro_1 =($input/1.95583);  
$DM_2 =($input*0.51129);
$Euro = <STDIN>;
if ($FORM{$Euroausw}='1')
{
$Euro = ($input / $Euro_1);
$Euro_1 = sprintf("%.2f" , "$Euro_1");  
print qq|
$input = DM sind $Euro_1 Euro \n";
|;
}
elsif ($FORM{$DMausw}='2')
{
$input = <STDIN>;
$DM_2 = ($input / $DM_2);
$DM_2 = sprintf("%.2f" , "$DM_2");  
print qq|
$input = Euro sind $DM_2. \n";
|;
exit;
}

[Editiert am 6/8/2002 von Gruenschnabel]
Gespeichert
Seiten: [1]   Nach oben
Drucken
 
Gehe zu:  

Powered by SMF 1.1.16 | SMF © 2011, Simple Machines
design by hENNE, layout based on YAML