7"C ** KESZITETTE: FABIAN IMRE , 1984 **[C** EROSARAMU SZAKKOZEPISKOLA BUDAPEST,1037 **.D 4,9,5,5,9,19,4,6,19,28,5,5,28,38,4,6,38,47,5,5,47,57,4,6,57,61,5,5,61,66,5,5,66,76,4,6,76,80,5,5,80,85,5,5,85,95,4,6,95,104,5,5,6,6,5,17,61,61,5,14,6,28,14,14,28,38,13,15,38,61,14,14,80,80,5,17,6,66,17,17D( 66,76,16,18,76,80,17,17,6,28,5,5,28,38,4,6,38,61,5,5,6,6,5,14,6,47,5,5,47,57,4,6,57,80,5,5,6,47,5,5,47,57,4,6,57,104,5,5E2 2,6,3,3,7,15,1,4,16,21,3,3,22,26,3,3,27,35,1,4,36,39,3,3,40,42,3,3,43,51,1,4,52,55,3,3,55,55,3,9,53,57,10,16,55,55,16,20,2,21,20,20,22,39,20,20,40,42,20,20,43,51,19,22,51,55,20,20,39,39,3,9,37,41,10,16,39,39,16,20E< 21,21,3,9,19,23,10,16,21,21,16,20,40,55,3,3,40,55,20,20,22,39,3,3,2,21,3,3jFFS1$"100 + 200 + 300 = 600 OHM":S2$"( 600 X 200 ) = 150 OHM":S3$" 150 + 50 = 200 OHM":S4$"( 200 X 50 ) = 40 OHM":S5$" 40 + 20 = 60 OHM"FP 6,15,25,34,44,207,290,132,142,150,262,271,285,342FZ 100,200,300,50,20,200,50,20,50,100,50,200,200,300Gd A(59,4),X(59,4),B(14),C$(14),R(11) Gn3Gx@85,"*****************************";]G@149," EREDO ELLENALLAS SZAMITASA ";G@213,"*****************************";G2520G2H:" A PROGRAM AZONOS KAPCSOLAST KETFELEKEPPEN TUD KIRAJZOLNI. A KULONBOZO ELRENDEZESEKET MEGFELELO BILLENTYUKKEL(1 VAGY 2) VALASZTHATOD KI."H" TOVABBA ELDONTHETED ,HOGY AZ 1. SZAMU KAPCSOLAST A GEP ALTAL MEGHATAROZOTT ADATOKKAL DEMONSTRACIOS (D) CELRA VAGY ALTALAD MEGADOTT ERTEKEKKEL GYAKORLASRA (G) VESZED IGENYBE."qI" AZ UTOBBI ESETBEN NEKED IS MEG KELL HATAROZNOD AZ EREDO ELLEN-ALLAS ERTEKET,AMIT A GEP A SAJAT EREDMENYEVEL OSSZEHASONLIT."ISZ$"A JELZETT AG ELLENALLASA:":ZS$" ":ST$" "J:RAJZHOZ SZUKSEGES ADATOK BEOLVASASA / A(S,O);B(S);C$(S) /(JS159: O1 4: A:A(S,O)A:O:SAJS114:B:B(S)B:S]JS114:C$:C$(S)C$:SlJQ0: 2520J:@130,"MELYIK KAPCSOLAST VALASZTOD (1,2)?"JV$: V$"1" V1 : V$"2" V2 : 270J"A ";V;". KAPCSOLAST VALASZTOTTAD"K" V2 330FK,@260,"DEMONSTRACIOS VAGY GYAKORLO LEGYEN A PROGRAM (D,G)?"K6VV$: VV$"D" VV$"DEMONSTRACIOS" : VV$"G" VV$"GYAKORLO" : 310K@"A PROGRAM JELLEGE:";VV$KJ 2520KT V1 350 : 1440K^ (VV$)68 360 : 930Kh2200 LrQ900:2520!L|S11:S26:26807LS125:S225:2680ML@458,SZ$;: S1$;]LQ900:2520lL@458,ZS$;LS11:S26:2420LS125:S225:2420L@6,ST$;:@15,ST$;:@25,ST$;LS123:S225: 2770LS11:S21:2770L@15,"600";:Q900: 2520MS123:S225:2680+MS126:S226:2680AMS116:S218:2680WMS115:S215:2680sM@522,SZ$;:S2$;: 2520MS123:S225:2420M&S126:S226:2420M0S116:S218:2420M:S115:S215:2420MD@522,ZS$;:@207,ST$;:@15,ST$;NNS126:S226:2770NXS123:S225:2770+Nb@15,"150";5Nl2520KNvS123:S225:2680aNS18::S210:2680}N@586,SZ$;:S3$;: 2520N@15,ST$;:@34,ST$;NS123:S225:2420NS17:S210:2420NS127:S229:2770N@586,ZS$;:@25,"200";:2520 OS127:S229:2680#OS114:S214:26809OS120:S222:2680OOS119:S219:2680jO@650,SZ$;:S4$;:2520OS127:S229:2420OS114:S214:2420O S120:S222:2420OS119:S219:2420O @25,ST$;:@290,ST$;O*S127:S229:2770P4@650,ZS$;:@25,"40";:2520'P>S127:S229:2680=PHS111:S213:2680XPR@714,SZ$;:S5$;:2520{P\@714,ZS$;:@25,ST$;:@44,ST$;PfS127:S229:2420PpS111:S213:2420PzS130:S232:2770P@25,"60";Q@266,"EZ LETT A KAPCSOLAS EREDO ELLENALLASA";:2520Q: 2080MQ:1.KAPCSOLAS GYAKORLO ******************************BR:" AZ EGYES ELLENALLASOK ERTEKET A **? UTAN KELL MEGADNOD ( 0 < R < 1000 ,EGESZ ).": " AZ ADATOK BEIRASANAL VIGYAZZ A GEPELESSEL, MERT AKATALANUL IS ELRONTHATOD A FELADATOT ! EZERT -- NEW LINE -- BILLENTYU LENYOMASA ELOTT ELLENORIZD ";\R" A BEIRAST .":2520hR:2200rR2970RS11:S26:2680RS125:S225:2680R@586,SZ$;:"R1+R2+R3=";RER(1)R(2)R(3):Q620: 2850R@620,E:R(8)E:S11:S26:2420SS125:S225:2420WS@6,ST$;:@15,ST$;:@25,ST$;:@586,"";:(31);:S11:S21:2770mSS123:S225:2770S$@15,"RS1";:@241,"RS1=";E;" OHM";S.2520S8S123:S226:2680SBS116:S218:2680SLS115:S215:2680*TVE1(1R(8)1R(6)):R(9)E:@586,SZ$;"RP1=( RS1 X R6 )=";:Q628:2850@T`S123:S226:2420VTjS116:S218:2420lTtS115:S215:2420T~@586,"";:(31);:@305,"RP1=";R(9);:@314,"OHM";T@15,ST$;:@207,ST$;:S126:S226:2770TS123:S225:2770T@15,"RP1";: 2520US123:S225:2680%US18:S210:2680=UER(9)R(4):R(10)E_U@586,SZ$;"RS2=";:Q614:2850U@15,ST$;:@34,ST$;:S123:S225:2420US18:S210:2420U@586,"";:(31);:@369,"RS2=";R(10);:@378,"OHM";:S127:S229:2770U@25,"RS2";:2520VS127:S229:2680)VS114:S214:2680?V S119:S222:2680~VE1(1R(10)1R(7)):R(11)E:@586,SZ$;"RP2=";:Q614:2850V@25,ST$;:@290,ST$;:S127:S229:2420V(S114:S214:2420V2S119:S222:2420 W<@586,"";:(31);:@433,"RP2=";R(11);:@442,"OHM";"WFS127:S229:27708WP@25,"RP2";:2520NWZS127:S229:2680dWdS111:S213:2680WnER(11)R(5):R(0)E:@586,SZ$;"RS3=";:Q614:2850Wx@586,(31);:@25,ST$;:@44,ST$;:S127:S229:2420WS111:S213:2420WS130:S232:27702X@25,"RS3";:@497,"RS3=";R(0);:@507,"OHM";:910kX **************************************************X **************** 2. KAPCSOLAS ******************X **************************************************XQ955:2200YS139:S244:2680YS147:S249:2680@Y@515,SZ$;:@579,"RS1=";S1$;:2520VYS139:S244:2420Y@150,ST$;:@285,ST$;:@342,ST$;:@515,ZS$;:S147:S249:2420YS156:S257:2770YS142:S244:2770Y@285,"600";:@579,"";:(31);Z@515,"RS1=";S1$;:2520Z"S156:S257:2680/Z,S142:S244:2680EZ6S150:S252:2680lZ@@579,SZ$;:@643,"RP1=";S2$;:2520ZJS156:S257:2420ZTS142:S244:2420Z^S150:S252:2420Zh@285,ST$;:@271,ST$;:@579,ZS$;ZrS150:S252:2770 [|@271,"150";:@643,"";:(31);([@579,"RP1=";S2$;:2520>[S136:S238:2680T[S150:S252:2680j[S146:S246:2680[@643,SZ$;:@707,"RS2=";S3$;:2520[S136:S238:2420[S150:S252:2420[S146:S246:2420[@142,ST$;:@271,ST$;:@643,ZS$;\S158:S258:2770$\S150:S252:2770:\S146:S246:2770u\@271,"200";:@707,"";:(31);:@643,"RS2=";S3$;:2520\S158:S258:2680\S150:S252:2680\S146:S246:2680\&S153:S255:2680\0@707,SZ$;:@771,"RP2=";S4$;:2520 ]:S158:S258:2420 ]DS150:S252:24206]NS146:S246:2420L]XS153:S255:2420q]b@262,ST$;:@271,ST$;:@707,ZS$;]lS153:S255:2770]v@262,"40";:@771,"";:(31);:@707,"RP2=";S4$;:2520]S133:S235:2680]S153:S255:2680^S145:S245:2680*^@771,SZ$;:@835,"RS3=";S5$;:2520@^S133:S235:2420V^S153:S255:2420l^S145:S245:2420^@132,ST$;:@262,ST$;:@771,ZS$;^S159:S259:2770^S153:S255:2770^S145:S245:2770 _@262,"60";:@835,"";:(31);:@771,"RS3=";S5$;:2520I_@515,"";:(31);:@517,"EZ A KAPCSOLAS EREDOJE";:2520S_2240_ @517," EREDO ELLENALLAS R=60 OHM";:2520_@515,"";:(31);:@705,"";_ :@515,"";_*"DOLGOZZUNK TOVABB(I,N)";I$_4 I$"I" 260_> I$"N" 2080`H:4`R ------------------------------------------:`\@`fF`pL`zR`` ------------------------------------------`:******************************************`:** KAPCSOLAS KIRAJZOLASA **a:******************************************Fa@730,"TURELEM , MINDJART KEZDEK RAJZOLNI";ca V1 VK1:VG32:2260saVK33:VG59aSVKVGaO14aX(S,O)A(S,O)aOaSa a V1 VG22 :VK1a V2 VG55:VK33a$ SVKVG!b. X1X(S,1):X2X(S,2):Y1X(S,3):Y2X(S,4):2600(b8 SDbB VV$"GYAKORLO" 2410_bL V1 VK1:VG7:ST1vbV V2 VK8:VG14b` XVK VG :@B(X),C$(X);:Xbj : ---------------------------------------bt **************************************!c~ ** SZAMOLT RESZ TORLESE **Nc **************************************[c SS1S2c X1A(S,1):X2A(S,2):Y1A(S,3):Y2A(S,4)c XX1X2c YY1Y2:(X,Y):Yc Xc Sc : ---------------------------------------d :**************************************Cd ** INKEY$ VIZSGALAT **pd **************************************d @962,"NYOMJ MEG EGY BILLENTYUT";d Q$:Q$""d Q$: Q$"" 2570 : 2580d @Q6,(31);e : ---------------------------------------3e( **************************************`e2 ** RESZ HALOZATOK RAJZOLASA **e< **************************************eF XX1X2:(X,Y1):XeP YY1Y2:(X2,Y):YeZ XX1X2:(X,Y2):Xed YY1Y2:(X1,Y):Yfn : --------------------------------------Jfx ***************************************xf ** SZAMOLT AGAK JELZESE **f ***************************************f SS1S2f X1A(S,1):X2A(S,2):Y1A(S,3):Y2A(S,4)g XX1X22:(X,Y1):(X,Y2):X#g YY1Y22:(X1,Y):(X2,Y):Y*g SVg : -----------------------------------g ******************************************g ** ADAT BEOLVASAS A 2580 SZUBRUTINHOZ **g ******************************************g SS1S2"h X1A(S,1):X2A(S,2):Y1A(S,3):Y2A(S,4)-h 26004h S`h : -----------------------------------h" **************************************h, ** SZAMITAS ELLENORZESE **h6 **************************************h@ I0iJ @640,"*";:" A TE EREDMENYED";XHiT X.95E X1.05E "JOL SZAMOLTAL.";:2950`i^ II1: I2 2940ih "NEM JO AZ EREDMENYED.SZAMOLD KI MEG EGYSZER!":P100(XE100):"A SZAMITASOD PONTATLANSAGA:";P;" % .";ir 2520:@640,(31);:2890 j| "MOST SEM JO AZ EREDMENYED"; j @Q1,E;:2520Kj : ----------------------------------uj ***********************************j ** ELLENALLAS ERTEKEK BEOLVASASA **j ***********************************k @513,"";:(31);:@971,"ELLENALLASOK ERTEKE ----> 1<= R =< 999 OHM"; k I172k @B(I),"R";I;Jk @513,"* *";: R(I)`k R(I)999 3030tk R(I)1 3030k R(I)(R(I)) @513," ";: 3030k @B(I),R(I);k @513," ";k Ik @513,(31);l& : -----------------------------------