Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > C/C++
You last visited: Today at 15:10

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Taschenrechner Perl --> C

Discussion on Taschenrechner Perl --> C within the C/C++ forum part of the Coders Den category.

Reply
 
Old   #1
 
DonPadrio's Avatar
 
elite*gold: 70
Join Date: Apr 2013
Posts: 365
Received Thanks: 60
Taschenrechner Perl --> C

Hay,
hab da ein kleines Problem. Ich hab vor kurzem einen Taschenrechner in Perl mit Punkt vor Strich rechnung geschrieben. Nun möchte mein Chef das ich das gleiche in C mache, komme da aber derzeit nicht weiter.
So sieht mein derzeitiger C-Code aus:
Code:
#include<stdio.h>

int main() {
        float a, b, c, d, e;
        printf("Taschenrechner\n");                             //Variabel bestimmung
        printf("\nGeben sie die 1. Zahl ein: ");                //und scanen 
        scanf("%f", &a);                                        //oder auslesen 
        printf("\nGeben sie die rechenart ein: ");              //der eingegebenen zahlen
        scanf("%f", &b);                                        //oder zeichen
        printf("\nGeben sie die 2. Zahl ein: ");                //
        scanf("%f", &c);                                        //
        printf("\nGeben sie die rechenart ein: ");              //
        scanf("%f", &d);                                        //
        printf("\nGeben sie die 3. Zahl ein: ");                //
        scanf("%f", &e);                                        //
Und so sieht das ganze in Perl aus:
Code:
#!/usr/bin/perl
# Taschenrechner by Hax!
print "Bitte Zahl eingeben: ";
my $zahl1 = <STDIN>;
chop ($zahl1);
print "Rechenart eingeben (+,-,/,*)";
my $rechenart1 = <STDIN>;
chop($rechenart1);
print "Zweite Zahl eingeben: ";
my $zahl2 = <STDIN>;
chop($zahl2);
print "Rechenart eingeben (+,-,/,*)";		 
my $rechenart2 = <STDIN>;
chop($rechenart2);				 
print "Dritte Zahl eingeben: ";			
my $zahl3 = <STDIN>;
chop($zahl3);								                         
						 
sub addition {
($_[0] + $_[1]);
}
sub subtraktion {
($_[0] - $_[1]);
}
sub multi {
($_[0] * $_[1]);
}
sub division {
($_[0] / $_[1]);
}

if ($rechenart2 eq '*' || $rechenart2 eq '/') {

        if($rechenart2 eq '+') {			 
        print "\nAddition wird durchgefuehrt.\n";	 
        $ergebnis = &addition($zahl2, $zahl3);		 
        }						 
        elsif($rechenart2 eq '-') {			 
        print "\nSubtraktion wird durchgeführt.\n";	 
        $ergebnis = &subtraktion($zahl2, $zahl3);	
        }						 
        elsif($rechenart2 eq '*') {			 
        print "\nMultiplikation wird durchgeführt.\n";	 
        $ergebnis = &multi($zahl2, $zahl3);		 
        }					 
        elsif($rechenart2 eq '/') {			 
        print "\nDivision wird durchgeführt.\n";	
        $ergebnis = &division($zahl2, $zahl3);		 
        }

        if($rechenart1 eq '+') {                          
        print "\nAddition wird durchgefuehrt.\n";         
        $ergebnis1 = &addition($ergebnis, $zahl1);            
        }                                                 
        elsif($rechenart1 eq '-') {                       
        print "\nSubtraktion wird durchgeführt.\n";       
        $ergebnis1 = &subtraktion($ergebnis, $zahl1);        
        }                                                 
        elsif($rechenart1 eq '*') {                       
        print "\nMultiplikation wird durchgeführt.\n";    
        $ergebnis1 = &multi($ergebnis, $zahl1);               
        }                                                 
        elsif($rechenart1 eq '/') {                       
        print "\nDivision wird durchgeführt.\n";         
        $ergebnis1 = &division($ergebnis, $zahl1);            
        }

}  
else {

        if($rechenart1 eq '+') {			 
        print "\nAddition wird durchgefuehrt.\n";	 
        $ergebnis = &addition($zahl1, $zahl2);		 
        }						 
        elsif($rechenart1 eq '-') {			 
        print "\nSubtraktion wird durchgeführt.\n";	 
        $ergebnis = &subtraktion($zahl1, $zahl2);	
        }						 
        elsif($rechenart1 eq '*') {			 
        print "\nMultiplikation wird durchgeführt.\n";	 
        $ergebnis = &multi($zahl1, $zahl2);		 
        }						 
        elsif($rechenart1 eq '/') {			 
        print "\nDivision wird durchgeführt.\n";	
        $ergebnis = &division($zahl1, $zahl2);		 
        }
        
        if($rechenart2 eq '+') {
        print "\nAddition wird durchgefuehrt.\n";
        $ergebnis1 = &addition($ergebnis, $zahl3);
        }
        elsif($rechenart2 eq '-') {
        print "\nSubtraktion wird durchgeführt.\n";
        $ergebnis1 = &subtraktion($ergebnis, $zahl3);
        }
        elsif($rechenart2 eq '*') {
        print "\nMultiplikation wird durchgeführt.\n";
        $ergebnis1 = &multi($ergebnis, $zahl3);
        }
        elsif($rechenart2 eq '/') {
        print "\nDivision wird durchgeführt.\n";
        $ergebnis1 = &division($ergebnis, $zahl3);
        }

}

print "Das Ergebnis Ihrer Rechnung: " . $ergebnis1 . "!!!\n";
Komme da in C einfach nicht weiter als bis zur Variabelnbestimmung. Kann mir da jemand helfen?
DonPadrio is offline  
Reply

Tags
anfänger, cc, perl, taschenrechner


Similar Threads Similar Threads
Perl Taschenrechner
01/03/2014 - General Coding - 5 Replies
Hay, ich soll einen Taschenrechner in perl mit punkt vor strichrechnung coden, komme da allerdings nicht weiter wäre nett wenn jemand eine lösung hätte. :) Script: #!/usr/bin/perl< # Taschenrechner by Justin! print "Bitte Zahl eingeben: "; chomp($zahl1 = ); print "Rechenart eingeben (+,-,/,*)"; chomp($rechenart1 = ); print "Zweite Zahl eingeben: ";
C Taschenrechner
11/20/2013 - C/C++ - 2 Replies
Hallo undzwar hab ich folgendes Problem immer bevor er nachfrägt ob man weiterrechnen will schließt sich dass programm danke der wos gemacht hat bekommt ne kleine spende :) kompletter code bitte #include <stdio.h> //Information zur Standard-Ein / Ausgabe-Bibliothek einfuegen #include <math.h> int main(void) //Anweisungen von Main stehen in geschweiften Klammern { double num1, num2, ergebnis; // double= Gleichpunktwert mit doppelter genauigkeit, num1, num2, ergebnis = die Namen die...
Wie installiere ich Perl / .pl ?
04/06/2012 - Technical Support - 0 Replies
Ich hab mir schon ActivePerl geholt, aber wenn ich meine .pl datei öffne schließt es sich immer (Ja ich weiß ich hab das schon mal gefragt aber dachte hier können mir mehr helfen)
[HELP]Taschenrechner
03/09/2011 - AutoIt - 2 Replies
Also ich wollte nen kleinen Taschenrechner Skripten. Hab jz ein Problem. Undzwar soll in die hinterste Inputbox der Zeile das Ergebnis angezeigt werden. Wie kann ich das machen? #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= ;------------------------------------------------ ----GUI---------------------------------------
Perl 5.6.1
05/10/2007 - Main - 4 Replies
Moin , ich wollte fragen ob einer einer eine Perl 5.1.6 für xp hat und die event. uppen könnte, oder einer eine Seite kennt wo man das downloaden kann, Danke schonmal im vorraus, icch hoffe der Thread ist richtig hier :bandit:



All times are GMT +1. The time now is 15:13.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.