Basic/data/FUNCT2.BAS

31 lines
757 B
QBasic

4 COL 0,250,0
5 CLS :POS 7,2
10 PRINT "FUNC A(X,Y)=[1/(1/x+1/y)]
15 FUNC a(x,y)=[1/(1/x+1/y)]
20 a=270:b=180
30 c=FUNC a(a,b)
40 POS 1,5
50 PRINT "Parallelschaltung von 2 Widerstaenden"
55 y=10
60 FOR i=1 TO 3
70 FOR d=1 TO 8
74 x=10
75 IF i=2 THEN x=9
80 READ f
85 IF d>6 AND i=2 THEN x=11
90 POS x+d,y:PRINT CHR$ (f);
100 NEXT d
110 y=y+2:NEXT i
112 POS 14,8:PRINT "R1";TAB (22);"R1=";a;" ";CHR$ (19)
113 POS 14,12:PRINT "R2";TAB (22);"R2=";b;" ";CHR$ (19)
115 POS 9,18
120 PRINT "Rges=";c;" ";CHR$ (19)
122 PRINT " "
130 INPUT "Neuer Wert fuer R1:";a
135 INPUT "Neuer Wert fuer R2:";b
140 RESTORE 1000:BOX 250,0, 8,39,29,0:GOTO 30
1000 DATA 159,144,143,139,139,140,144,158
1100 DATA 144,152,32,32,32,32,153,144
1200 DATA 157,144,143,139,139,140,144,156