2&C *******************************************************eC * *C * Program: DARAZS *C( * Szerzo: Turcsanyine Szabo Marta *"D2 * ELTE azonosito: HT-11/8.1 *aD< * Datum: 1983 szeptember *DF * *DP ********************************************************wEZ: 191,131,148,160,165,128,191,131,148,160,165,129,131,171,133,182,131,132,191,176,133,150,131,148,191,139,144,190,131,148,188,177,144,164,179,132Ed@66434, (144)En I%0 17: A%: @76423I%, (A%);: I%Ex I%0 17: A%: @86423I%, (A%);: I%F Z%(5,15)/F 88,2,0,0,0,0,100,198,31,16,16,21,0,8,0,0\F 88,2,0,0,0,0,100,198,31,0,0,21,0,8,0,0F 88,2,0,0,0,0,100,198,31,0,0,18,0,8,0,0F 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0F 100,0,0,0,0,0,0,254,15,0,0,0,0,0,0,0G 208,7,0,0,0,0,0,254,15,0,0,0,0,0,0,0%G I1%0 5: I2%0 15AG Z%(I1%,I2%):I2%:I1%lG@14645,"Kersz tajekoztatot (I,N) ?"GA$: A$"" 230G A$"N" 640G A$"I" 230G: 30)"DARAZS" H:@264,"A PROGRAMMAL KISERLETET LEHET VEGEZNI A VELETLEN JELENSEGEK"#H "SZEMLELTETESERE."iH" "Adott ket doboz, a dobozokban osszesen maximalisan 15 darazs."H, "AZ ELOFORDULO VELETLEN JELENSEGEK:"H6 10) "-melyik darazs repuljon at a masik dobozba"H@ 10) "-melyik ures helyre repuljon"1IJ 10) "-a kozepso sor eseten melyik iranyba repuljon"[IT 12) "ki- es berepulesnel (kulon)."I^ "A kiserlet soran megfigyelheto, hogy a darazsak szama a ket"Ih "dobozban a legtobb esetben kevessel ter el egymastol."$Jr "Hosszu ido alatt elofordulhat az is, hogy az elteres igen nagy,WJ| "peldaul, az osszes darazs egy dobozban van.J@1464,"HA ELOLVASTAD NYOMJ MEG EGY TETSZOLEGES BILLENTYUT!"J "" 400J: 30) "DARAZS"K: "A megfigyeles segitese erdekeben grafikon is kerheto."GK "A grafikon azt jelzi, hogy a bal oldali dobozban hanyszor volt"dK "0,1,2,... db darazs."K "A PROGRAM KET UZEMMODBAN DOLGOZHAT:"K: 5) "L- LEPESENKENTI UZEMMOD- lepesenkent lathato"K 30) "egy roptetes.""L 5) "C- CSENDES UZEMMOD- csak a kiserletet vegezzuk,"?L 25) "repules nelkul."L "A PROGRAM AZ UZEMMODOK KEZDOBETUIVEL, ILL. A G-grafikon,"L "V-vege BILLENTYUKKEL VEZERELHETO."L@1464,"HA ELOLVASTAD NYOMJ MEG EGY TETSZOLEGES BILLENTYUT!"L "" 530)M: "A tovabbiakban egy ilyen darazsat"N&128,128,128,128,128,128,128,128,152,163,134,131,148,128,128,128,152,140,144,152,172,156,174,156,129,160,190,156,144,128,140,181,129,154,144,170,149,170,151,171,151,170,149,154,140,128,130,131,128,130,139,179,131,131,139,179,131,131,128,1286N0ZI%0: 2480: HANGUN: I1%0 3 : I2%0 14yND A%: @(6I1%)6425I2%,(A%)NNI2%: I1%: I%0 2000: I%NX:(66,24):@1364, "egy ilyen ponttal abrazolunk."NbZI%1: 2480:HANGOl I%0 2000: I%OvZI%3: 2480: HANG1O: DARAZSAK SZAMAvO DR%(1,2,4),M%(1),P1%(3),P3%(3),P2%(3),DD%(14,2),I1%(2),L0%(15)O 2530O "HANY DARAZS LEGYEN OSSZESEN:";SO%O SO%0 740O ZI%4: 2480: HANGO "AKKOR KI FOG ROPKODNI ?"P I%1 1000:I%(PZI%3: 2480: HANG2P 670NP SO%0 SO%16 800hP ZI%4: 2480: HANGP "NINCS ENNYI DARAZS"P I%1 1000:I%P ZI%3: 2480: HANGP 670P  "EBBOL HANY DARAZS LEGYEN AZ 1. DOBOZBAN:";SZ%P* 0Q4 SZ%1 SZ%SO%1 8805Q> ZI%4: 2480: HANGpQH SO%;"-BOL NEM LEHET ";SZ%;" DARAZS AZ 1. DOBOZBAN !"QRI%1 1000:I%Q\ZI%3: 2480: HANGQf 800QpM%(0)SZ%:M%(1)SO%SZ%:KK%0QzL0%(M%(0))1Q 2370: DOBOZOK KIRAJZOLASA$R DR% INCIDENCIA MATRIX KINULLAZASANR I1%0 1: I2%0 2: I3%0 4uRDR%(I1%,I2%,I3%)0: I3%:I2%:I1%R DARAZSAK BERAJZOLASA AZ 1. DOBOZBARZI%1: 2480: HANGR M%(0)0 1060R I%0 M%(0)1RSS%(3)1SOO%(5)1 S DR%(0,SS%,OO%)1 9805SDR%(0,SS%,OO%)1aSDD%(I%,0)0:DD%(I%,1)SS%:DD%(I%,2)OO%|S(22OO%8%,4SS%12%)S I%S DARAZSAK BERAJZOLASA A 2. DOBOZBAS$ M%(1)0 1150S. I%M%(0) SO%1S8SS%(3)1SBOO%(5)1TL DR%(1,SS%,OO%)1 1080*TVDR%(1,SS%,OO%)1VT`DD%(I%,0)1:DD%(I%,1)SS%:DD%(I%,2)OO%rTj(106OO%8%,4SS%12%){Tt I%T~ FONTOS ADATOK KIIRASAT@126418,M%(0):@126430,KK%:@126441,M%(1)TA$: A$"" 1170U A$"C" 1810: CSENDES%U A$"L" 1230 : LEPESENKENT@U A$"V" 2450: VEGE`U A$"G" 1970: GRAFIKONlU 1170U MELYIK DARAZS HONNAN HOVA MENJENUZI%1: 2480: HANGUKK%KK%1:FF%(SO%)1:D1%DD%(FF%,0):D2%1D1%!VM%(D1%)M%(D1%)1:M%(D2%)M%(D2%)1:L0%(M%(0))L0%(M%(0))1VVS1%DD%(FF%,1):O1%DD%(FF%,2):DR%(D1%,S1%,O1%)0iVO1%DD%(FF%,2)V DR%(D1%,S1%,O1%)0VS2%(3)1:O2%(5)1V DR%(D2%,S2%,O2%)1 1300V(DR%(D2%,S2%,O2%)1:DD%(FF%,0)D2%:DD%(FF%,1)S2%:DD%(FF%,2)O2%!W2R1%((0)0.1):H1%(D1%0.4)QW<I1%(0)0:I1%(1)1R1%:I1%(2)3:I1%I1%(S1%)xWFQ1%64H1%(42O1%8):G1%64H1%7WPP2%(0)10:P2%(1)22:P2%(2)10:P2%(3)22:P2%P2%(I1%)WZQ3%64H1%4Wd MASIK DOBOZWnR2%((0)0.1)WxH2%H1%XR2%((0)0.1):H2%H1%BXK1%(0)0:K1%(1)1R2%:K1%(2)3:K1%K1%(S2%)nX P0%4S1%12:V0%4S2%12:V2%P2%(K1%)XW1%64H2%(42O2%8):W3%64H2%7X EGY ROPTETESX K1%K1%22 1480XU2%1: 1490XU2%1X I1%I1%22 1510 YU1%1: 1357YU1%1.YZI%2: 2480: HANG>Y (Q1%,P0%)\Y O1%4 S1%1 1580{Y I%Q1% Q3% H1%Y(I%,16):(I%,16): I%Y" 1640Y, I%P0% P2% (I1%1.4)Y6(Q1%,I%):(Q1%,I%): I%Z@ I%Q1% Q3% H1% ZJ(I%,P2%):(I%,P2%): I% KICSINYITES`HK(T%34)1`RB%(SO%422)2+`\@264B%,30K;?`f@564B%,20K;T`p @864B%,10K;h`z@1164B%,2K;` ERTEKEK ABRAZOLASA` I1%0 SO%` L0%(I1%)0 2240` I2%34 34L0%(I1%)K 1`(I1%414,I2%) :(I1%415,I2%)` I2%a I1%a UZEMMODOKQa@1464,"L(epesenkent) C(sendes) G(rafikon) V(ege)"jaA$: A$"" 2270a A$"C" 2330 : CSENDESa A$"L" 2350 : LEPESENKENTa A$"G" 1970 : GRAFIKONa A$"V" 2450 : VEGEa 2270 b 2370 : BOBOZ RAJZ"b$ 1810: CSENDES;b. 2370 : DOBOZ RAJZTb8 910 : LEPESENKENTpbB : DOBOZOK KIRAJZOLASAbL I%18 110 :(I%,0) :(I%,32) : I%bV I%1 31 :(18,I%) :(110,I%) : I%b` I%1 31 :(64,I%) : I%cj I%13 19 :(64,I%) : I%Ict @116416,"DARAZS":@116428,"KISERLET":@116439,"DARAZS"c~ @146410, "L(epesenkenti) C(sendes) G(rafikon) V(ege)"c c ZI%3: 2480: HANGc :@76428,"VISZONTLATASRA"c c HANGc I%0 15 d 31,I%: 30,Z%(ZI%,I%)d I%d 1d ZI%5: 2480: HANGQd @146420, "NE HULYESKEDJ"hd I%1 1000: I%d ZI%3: 2480: HANGd d 670