Kalkulator w Basicu.

[slonek25]

 Napisalem  taki  oto  kalkulator.    
  5        REM  ***  Kalkulator  ***  
  6        PRINT  \'PODAJ  PIERWSZA  LICZBE  \'  
  10  INPUT  A1  
  15  PRINT  \'PODAJ  DRUGA  LICZBE\'  
  20  INPUT  A2  
  25            PRINT  \'WYBIERZ  CYFRE  Z  WYBRANYM  DZIALANIEM\'  
  26            PRINT  \'1)  DODAWANIE\'  :  
                  PRINT  \'2)  ODEJMOWANIE  \':  
                  PRINT  \'3)  MNOZENIE\'  :  
                  PRINT  \'4)  DZIELENIE\'  :  
                  PRINT  \'5)  POTEGOWANIE\'  
  30  INPUT  K  
  40  ON  K  GOSUB  100,200,300,400,500  
  50  PRINT  A;  
  60  GOTO  5  
  100  REM  DODAWANIE  
  110  A=A1+A2  
  120  RETURN  
  200  REM  ODEJMOWANIE  
  210  A=A1-A2  
  220  RETURN  
  300  REM  MNOZENIE  
  310  A=A1*A2  
  320  RETURN  
  400  REM  DZIELENIE  
  410  A=A1/A2  
  420  RETURN  
  500  REM  POTEGOWANIE  
  510  A=A1^A2  
  520  RETURN  
   
  Jestem  początkujacy  w  Basicu  moze  ktos  zna  sie  lepiej  i  pomoze  mi  ulepszyc  ten  kalkulator.  Z  gory  dziekuje  za  odpowiedz.

[Kekesuw]

 W  basicu  mozna  pierwiastkowac  jeszcze.  Poszukaj  na  stronie  glownej  w  dziale  programowanie  ,  tam  bedzie  gdzies  wzor  na  wyciagniecie  pierwiastka.

[Kekesuw]

 Ulatwie  ci:  
  Komenda  na  pierwiastkowanie  to:  
  np.  
  10  Print  sqr(a)

[Mikra_Lbn]

 Albo  tak:  
  10  INPUT  \'Pierwiastek  z  liczby\';  a  
  20  INPUT  \'Stopień  pierwiastka\';  b  
  30  wynik=a^(1/b)