Pokaż wyniki 1 do 5 z 5

Temat: Kalkulator

  1. #1
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie Kalkulator

    Ach ta nuda Naspisałem taki prosciutki kalkulatorek z zaokragleniem do 4 liczby po przecinku :P

    Kod:
    ##############################################################
    #!/usr/bin/perl                                              #
    #By Hardiel                                                  #
    #Kalkulator 1.0                                              #
    #Program uruchamiamy z argumentami np. C:/kalkulator.pl 2 2  #
    #Pozdro for mtbs                                             #
    ##############################################################
    print "Program zaokragla liczby do 4 miejsca po przecinku procz dodawania i odejmowania\r\n";
    print "Wybierz dzialanie :)\r\n";
    print "Jezeli chcesz mnozyc wpisz '1'\r\n";
    print "Jezeli chcesz odejmowac wpisz '2'\r\n";
    print "Jezeli chcesz dodawac wpisz '3'\r\n";
    print "Jezeli chcesz dzielic wpisz '4'\r\n";
    print "Jezeli chcesz potegowac wpisz '5'\r\n";
    $dzialanie = <STDIN>;
    if ($dzialanie==1) {
    print "Wybrales mnozenie\r\n";
    $ab = $ARGV[0];
    $ac = $ARGV[1];
    $wynik1 = $ab * $ac;
    $wynik1=sprintf "%.4f",$wynik1;
    print "Wynik to: $wynik1\r\n";
    }
    elsif ($dzialanie==2) {
    print "Wybrales odejmowanie\r\n";
    $dc = $ARGV[0];
    $dd = $ARGV[1];
    $wynik2 = $dc - $dd;
    print "Wynik to: $wynik2\r\n";
    }
    elsif ($dzialanie==3) {
    print "Wybrales dodawanie\r\n";
    $xc = $ARGV[0];
    $xd = $ARGV[1];
    $wynik3 = $xc + $xd;
    print "Wynik to: $wynik3\r\n";
    }
    elsif ($dzialanie==4) {
    print "Wybrales dzielenie\r\n";
    $mm = $ARGV[0];
    $md = $ARGV[1];
    $wynik4 = $mm / $md;
    $wynik4=sprintf "%.4f",$wynik4;
    print "Wynik to: $wynik4\r\n";
    }
    elsif ($dzialanie==5) {
    print "Wybrales potegowanie\r\n";
    $ww = $ARGV[0];
    $wx = $ARGV[1];
    $wynik5 = $ww ** $wx;
    $wynik5=sprintf "%.4f",$wynik5;
    print "Wynik to: $wynik5\r\n";
    }

  2. #2
    Zarejestrowany
    Dec 2007
    Postów
    136

    Domyślnie

    Hehe elegancko, dorzucil bym pierwiastkowanie i obliczanie procentow bo duuuzo ludzi(w tym ja ) ma z tym problem :>. kiedys pisalem program do wyliczania funkcji kwadratowej, zreszta chyba byl na forum, jak znajde to wrzuce, przyda sie moze uczniom pamietam ze w szkole wszyscy poza mna(chociaz za matma nie przepadalem) funkcji nie znosili!

  3. #3
    Avatar Nikow
    Nikow jest offline -=[ZRP]=-
    Zarejestrowany
    Sep 2007
    Skąd
    Różne zakątki sieci.
    Postów
    995

    Domyślnie

    Na pierwiastkowanie też bym się skusił Procenty? Dam Ci pewną radę, często jest wzór przekształcany do postaci a/b*100, jednak większą precyzje da Ci a*100/b
    http://nikowek.blogspot.com/
    Zbrojne Ramię Pingwina!
    -----BEGIN GEEK CODE BLOCK-----
    Version: 3.12
    GCS d- s++:++ a--- C+++ UL+++ P L+++ E--- W++ N++ o K- w--
    O M- V- PS PE Y PGP++ t+ 5 X+ R tv- b++ DI- D-
    G+ e- h! r% y?
    ------END GEEK CODE BLOCK------

  4. #4
    Avatar Hardiel
    Hardiel jest offline Damian
    Zarejestrowany
    May 2008
    Skąd
    Kielce
    Postów
    121

    Domyślnie

    Szczerze mowiac nie uczylem sie procentow i pierwiastkowania ;-) moze kiedyś sie skusze

  5. #5
    Zarejestrowany
    May 2007
    Postów
    34

    Domyślnie

    no gratuluje skomplikowanie algorytmów jest ...
    rozbiłeś mnie na drobne poprostu. Weź sobie visiuala jakiegoś to może coś z okienkami wytworzysz

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52