X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=math%2Flogar.bas;fp=math%2Flogar.bas;h=0000000000000000000000000000000000000000;hp=3bc211e16e9c6c42d315ea2cd7dd7f15b4475030;hb=08a50b7a860f6aa39f58108a07e2fc13e46260b9;hpb=68c9ea9c1b1c03a3d38bd585f0bdeee6371cb05b diff --git a/math/logar.bas b/math/logar.bas deleted file mode 100755 index 3bc211e..0000000 --- a/math/logar.bas +++ /dev/null @@ -1,11 +0,0 @@ -DECLARE FUNCTION loga! (a!, b!) -CLS - -v = 10 ^ (2 * loga(10, 7) + loga(10, 2)) - -PRINT v - -FUNCTION loga (a, b) -loga = LOG(b) / LOG(a) -END FUNCTION -