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.
    Commenti da Blogger
    Commenti da Facebook