31 lines
757 B
QBasic
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
|
||
|
|
|