Kalkulator

[Hardiel]

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

##############################################################
#!/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";
}

[mtbs]

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!

[Nikow]

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

[Hardiel]

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

[kmieciu2003]

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