Lieber Besucher, herzlich willkommen bei: EDV-Dompteur/Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Opt("MustDeclareVars", 1) ;# Zwingt den Programmierer, Variablen ordentlich zu deklarieren, vor der ersten Benutzung. global $iRa=0.2 ; Widerstand jedes einzelnen Leitungssements global $iRb=100 ; Widerstand jeder einzelnen Lampe global $in=240 ; Anzahl der Glieder der Lichterkette global $iRGalt ; Der vor dem aktuellen Schleifendurchlauf berechnete Gesamtwiderstand global $iRGneu ; Der aktuell berechnete Gesamtwiderstand ConsoleWrite(@CRLF & "Berechnung des Gesamtwiderstands einer Lichterkette mit n Gliedern:" & @CRLF) $iRGalt = $iRa+$iRb ; Gesamtwiderstand des letzten Gliedes in der Kette berechnen. ConsoleWrite("n = 1 RG = " & $iRGalt & @CRLF) for $i = 2 to $in $iRGneu = $iRGalt*$iRb / ($iRGalt+$iRb) ; Zuerst die Parallelschaltung berechnen, aus vorherigem Gesamtwiderstand (RGalt) und Rb $iRGneu = $iRGneu+$iRa ; Dann noch die Reihenschaltung mit Ra berechnen ConsoleWrite("n = " & $i & " RG = " & $iRGneu & @CRLF) $iRGalt = $iRGneu ; Vorbereitung für nächsten Schleifendurchlauf Next ConsoleWrite(@CRLF) |
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
Berechnung des Gesamtwiderstands einer Lichterkette mit n Gliedern: n = 1 RG = 100.2 n = 2 RG = 50.2499500499501 n = 3 RG = 33.6442374411736 n = 4 RG = 25.3744767191948 n = 5 RG = 20.4389492528266 n = 6 RG = 17.170381574752 n = 7 RG = 14.8541995886543 n = 8 RG = 13.1330922524854 n = 9 RG = 11.8085329155288 n = 10 RG = 10.7613879438434 n = 11 RG = 9.91582980641184 n = 12 RG = 9.22129367887774 n = 13 RG = 8.64276181711354 n = 14 RG = 8.15521180846134 n = 15 RG = 7.74028555082847 n = 16 RG = 7.38420738468978 n = 17 RG = 7.07643701483667 n = 18 RG = 6.80877146468382 n = 19 RG = 6.57473062494229 n = 20 RG = 6.36912713397332 n = 21 RG = 6.1877591417586 n = 22 RG = 6.02718685446414 n = 23 RG = 5.88456735793361 n = 24 RG = 5.75753071931752 n = 25 RG = 5.64408580661562 n = 26 RG = 5.54254782321395 n = 27 RG = 5.45148192603597 n = 28 RG = 5.36965890518225 n = 29 RG = 5.29602001275735 n = 30 RG = 5.22964880544935 |
Forensoftware: Burning Board® 3.1.7, entwickelt von WoltLab® GmbH