Radice Quadrata in VBS

Non so se v'è mai capitato di dover calcolare la radice quadrata di un numero... e spero di si altrimenti viene lecito pensare che non fate i compiti... :-D 
Con le calcolatrice semplicissime o di vecchia generazione o quella di windows (vecchia versione) che si trova in Start - Tutti i programmi - Accessori - Calcolatrice non è semplice, ovvero non ci sta la funzione, almeno io non l'ho trovata e per poter calcolare la radice quadrata devo elevare un numero per 0,5... faccio un esempio facile:
Per calcolare la radice quad. di 4 devo prima scrivere il 4 e poi cliccare su x^y e scrivere 0,5.
Infatti x^y significa eleva un numero x ad un esponente y.
Radice quadr. di un numero significa elevare un numero x a 1/2 e quindi 1/2 fa 0,5 per cui x^0,5.
Per tale motivo ho scritto uno script che fa tutto da solo.... si deve solo imputare il numero da cui ricavarne la radice.
Ecco il codice:

a = inputbox("Radice Quardrata di")
b = int(a)^0.5
MsgBox "Tot.= " & b


Copiate il codice nel blocco note di windows e poi salvate con nome aggiungendo l'estensione .vbs
Così facendo abbiamo creato il file che calcolerà la radice quadrata.
Condividi su Google Plus

Info su Giovanni Di Mauro

Questa è una breve descrizione nel blocco dell'autore sull'autore. Lo modifichi inserendo il testo su "Informazioni biografiche" nel pannello di amministrazione dell'utente.
    Blogger Comment
    Facebook Comment

2 commenti :

  1. Ciao! Ho fatto una stringa anche per indici di radice superiori al 2 se servisse:

    a = inputbox ("Radicando")
    b = inputbox ("Indice")
    msgbox "Radice " & b & " di " & a & " = " & a^(1/b)

    Ciao!

    RispondiElimina
    Risposte
    1. Grazie, ottimo!!
      Come riferimento il sito ufficiale:
      http://www.giovannidimauro.it

      Elimina