10 C=12.01115 20 H=1.00797 30 O=15.9994 40 N=14.0067 50 P=30.9738 60 S=32.064 70 CL=35.453 80 F=18.9984 90 I=126.904 100 NA=22.9898 110 MG=24.312 120 K=39.102 130 CA=40.08 200 PRINT:PRINT"ANZAHL C";:INPUT X:M=X*C 210 PRINT:PRINT"ANZAHL H";:INPUT X:M=M+X*H 220 PRINT:PRINT"ANZAHL O";:INPUT X:M=M+X*O 230 PRINT:PRINT"ANZAHL N";:INPUT X:M=M+X*N 240 PRINT:PRINT"ANZAHL P";:INPUT X:M=M+X*P 250 PRINT:PRINT"ANZAHL S";:INPUT X:M=M+X*S 260 PRINT:PRINT"ANZAHL Cl";:INPUT X:M=M+X*CL 270 REM FLUOR 280 REM IOD 290 PRINT:PRINT"ANZAHL Na";:INPUT X:M=M+X*NA 300 REM MAGNESIUM 310 PRINT:PRINT"ANZAHL K";:INPUT X:M=M+X*K 320 PRINT:PRINT"ANZAHL Ca";:INPUT X:M=M+X*CA 330 PRINT:PRINT:PRINT"Die Molmasse der Sub-":PRINT"stanz ist";M;"g" 340 PRINT:PRINT:PRINT"MENGE IN ml";:INPUT V 350 PRINT:PRINT"GEWICHT IN g";:INPUT G 360 C0=(G/M)/(V/1000) 370 PRINT:PRINT:PRINT"Die Konzentration ist":PRINTC0;"M" 380 PRINT:PRINT:PRINT"pKHB";:INPUT PK 390 PRINT:PRINT"SAEURE/BASE";:INPUT A$ 400 IF LEFT$(A$,1)="B" THEN 450 410 PH=LOG(C0)/LOG(10) 420 PH=(PK-PH)/2 430 IF PH>7 THEN PRINT:PRINT"pH>7???":GOTO 390 440 GOTO 500 450 PH=LOG(C0)/LOG(10) 460 PH=((14-PK)-PH)/2 470 PH=14-PH 480 IF PH=>7 THEN 500 490 PRINT:PRINT"PH<7???":GOTO 390 500 PRINT:PRINT:PRINT"Der pH-Wert ist":PRINTPH:PRINT:PRINT:PRINT OK