Jatkoa "Läksyjen tarkistaminen" -sarjaan tuo tämä ohjelma, joka laskee liuoslaskun. Liuoslaskuja tullee vastaan yläasteen loppupuolella. Esimerkkinä on eräs liuoslasku omista koulutehtävistäni.
DECLARE FUNCTION LaskeLiuos# (p1#, p2#, m#) DECLARE FUNCTION Pyorista# (luku#, des%) CLS PRINT "8. Kuinka paljon vettä on sekoitettava kahteen kilogrammaan" PRINT " 96-prosenttista teollisuusalkoholia, kun halutaan laimen-" PRINT " taa se" PRINT PRINT " a) 35-prosenttiseksi" PRINT " b) 25-prosenttiseksi" PRINT PRINT " a)"; Pyorista(LaskeLiuos(96, 35, 2), 2); "kg" PRINT " b)"; Pyorista(LaskeLiuos(96, 25, 2), 2); "kg" FUNCTION LaskeLiuos# (p1#, p2#, m#) LaskeLiuos = p1# * m# / p2# - m# END FUNCTION FUNCTION Pyorista# (luku#, des%) Pyorista = INT(luku# * 10 ^ des%) / 10 ^ des% END FUNCTION
Aihe on jo aika vanha, joten et voi enää vastata siihen.