f)C *********************************************************iC * *C * Egyenes vonalu egyenletesen gyorsulo mozg}s 1. *C * *)D * K`szitette: Papp Andr}s *iD * *D * Szeksz}rd, 1984. szeptember *D * *)E *********************************************************/E F@ 192, "Ez a program a 0 kezd|sebess`g~, egyenes vonalu egyenletesen gyorsulo mozg}s tanul}s}hoz nyujt segits`get. \t gyakorlo fel- adatot kapsz. Ha ezeket megoldottad, a dsz}mitogep`p `rt`keli a ";F "munk}dat!"{F(: "Vigy}zz az adatok beir}s}n}l! A sz}mitog`p tizedesvessz| helyetttizedesponttal dolgozik."F2: " A feladatot a f~zetedben oldd meg!"F<: " Ha elolvastad, nyomj meg egy billenty~t!"GF 1700GPB1$(31): B2$(30)pGZ: T(7)8: A(402(10))10: V(10AT)10: S(5VT)10: V1(360V)100/Hd: "1. Rep~l|g`p"; S; "m hosszu kifutop}ly}n `r el a felsz}ll}s}hoz": "sz~ks`ges"; V1; "km/h sebess`get. hat}rozd meg a rep~l|g`p ": "gyorsul}s}t `s a felsz}ll}shoz sz~ks`ges id|t!"9Hn 310?HxHT(5)2: A(102(4))10: V(10AT)10: S(5VT)10: V1(360V)100CI "2. Versenybobot a versenyz|k indul}skor"; S; "m-es uton gyorsit-": "j}k fel"; V1; "km/h sebess`gre. Hat}rozd meg a bob gyorsul}s}t": "`s a gyorsit}shoz sz~ks`ges id|t!"MI 310IT(4)4: A(302(10))10: V(10AT)10: S(5VT)10: V1(360V)100IVJ " 3. Motorker`kp}r indul}skor"; S; "m-es uton gyorsul fel": V1; "km/h"; " sebess`gre. Hat}rozd meg a motorker`kp}r gyorsul}-": " s}t `s a gyorsit}shoz sz~ks`ges id|t!"`J 310JT(3)5: A(202(10))10: V(10AT)10: S(5VT)10: V1(360V)100JaK " 4. Domboldalon legurulo labda"; S; "m-es uton gyorsul fel": V1; "km/h sebess`gre. Hat}rozd meg a labda gyorsul}s}t `s az": " ut megt`tel`hez sz~ks`ges id|t!"kK 310KT(9)11: A(142(7))10: V(10AT)10: S(5VT)10: V1(360V)100KDL " 5. Szem`lyg`pkocsi indul}skor"; S; "m-es uton gyorsul fel": V1; "km/h sebess`gre. Hat}rozd meg a szem`lyg`pkocsi gyor-"wL " sul}s}t `s a gy|rsit}shoz sz~ks`ges id|t!"L 310L"@ 640, B1$L,L6F10: F20: A10L@@ 325, "Meg tudod oldani a feladatot, vagy segitsek? (M/S)LJ 1700NMT A$"M" 2250: 2340: F1A F2T ʑ 780: : F1A F2T 420 : 360jM^ A$"S" 1760: 330[Nh@ 320, B1$; "Az al}bbi mennyis`gek k|z~l melyek szerepelnek a feladatban ismeretlenk`nt? 1. gyorsul}s, v`gsebess`g 2. ut, id| 3. gyorsul}s, id| 4. v`gsebess`g, id| ";Or "5. gyorsul}s, ut 6. ut, v`gsebess`g Nyomd meg a megfelel| mennyis`gek el|tt }llo sz}m billenty~j`t!"O| 1700\O A$"1" A$"2" A$"3" A$"4" A$"5" A$"6" 410 : 1760fO 380O A$"3" 420 : 1800: 380P F2T @ 320, B1$: @ 344, "Mi az id| jele?": 1810: 1860: @ 320, B1$; "Igazad van. Az id| jele a 't'": 1940P F1A @ 320, B1$: @ 341, "Mi a gyorsul}s jele?": 1810: 1900: @ 320, B1$; "Igazad van. a gyorsul}s jele az 'a'": 1940P@ 320, B1$; "s = ";(((S)),32); " m": @ 534, "Ird be az adatokat!": @ 324, "";: 2180: FS 1690Q@ 323, S; "m"; B2$pQ "v = "; (((V1)),32); " km/h": @ 388, "";: 2180: FV1 1690:@ 355, B2$;Q@ 387, V1; "km/h ="; (((V)),32); " m/s"Q@ 394((V1)),"";: 2180: FV 1690: A1A11 : 500Q A12 550"R@ 394((V1)), V; "m/s"; B2$: @ 355, B2$;SR@ 448, "------------": "a = ?": "t = ?"sR F1A @ 515, A; "m/s2";R F2T @ 579, T; "s";R 610cS&@ 640, "Milyen |sszef~gg`s van a km/h `s a m/s m`rt`kegys`gek k|z|tt? 1. km/h-bol m/s-ba v}ltunk }t, szorzunk 3,6-del. 2. km/h-bol m/s-ba v}ltunk }t, osztunk 3,6-del."nS0 1980S: A$"2" @ 640, B1$: 480nTD@ 640, B1$; "Ejnye, ejnye! Km/h-bol ugy sz}mitunk }t m/s-ba, hogy a km/h-ban megadott mert`kegys`g m`r|sz}m}t elosztjuk 3,6-del. V`gezd el azoszt}st, majd nyomd le az egyik billenty~t, ut}na ird be az eredm`nyt!"yTN 1700TX 480Tb@ 410, B2$;: @ 640, B1$;Tl 1950Tv A$"I" 2250: 2340%U F1A F2T 730 : @ 640, B1$; "Melyik ismeretlent akarod el|sz|r meghat}rozni?"WU "1. id| 2. gyorsul}s"bU 1790mU 1980yUK(A$)U K1 2310 : 2330U K1 (A$) 2080, 830, 2110, 2110 : (A$) 1360, 2080, 2110, 2110 V F1A F2T 700 : 2070V@ 463, "Most meghat}rozzuk a m}sik ismeretlent!";: 1940: @ 463, B2$;: @ 660, "";: 1950: A$"I" F1A 2410 : 2380V F1A F2T 780 : F1A 2310 : 2330V F1A F2T (A$) 2080, 830, 990, 1140W F1A F2T 740HW F2T F1A (A$) 1360, 2080, 1490, 1520aW F2T F1A 760rW @ 640, B1$;W@ 660, "Megoldottad a feladatot."W @ 714, "Ha folytathatjuk, nyomj meg egy billenty~t!"W* 1700W4DX> 2140: 1960: A$"I" 960: A$"3" 2320: 840 : 2250: 2410: F2T : 940!YH 2070: @ 640, " v Szorozd meg az egyenlet mindk`tSegitek! s = - * t /*2 oldal}t 2-vel! Ha elk`sz~lt`l, 2 nyomj meg egy billenty~t": 1700{YR 2070: @ 704, B1$; "Mit kapt}l? 1. 2*s = v*2*t 2. 2*s = v*t 3. s = v*t"Y\ 2280Yf A$"2" 1800: 860Yp 2070: @ 659, "";: 1950Yz A$"I" 2250: 2410: F2T yZ@ 640, B1$; "Osszd el a 2*s = v*t egyenlet mindk`t oldal}t v-vel! Ha elk`sz~lt`l, nyomj meg egy billenty~t!": 1700-[@ 640, B1$; " 2 * s Ugye ezt kaptad? t = ----- v"E[@ 744, "";: 1950o[ A$"I" 2150: 2410: F2T \@ 640, B1$: @ 660, " 2 *"; S;: @ 704, "Ejnye! Ejnye! t = ";(((S))3,45);" ="; T; "s";: @ 788((S))22((V))2, V: 2230: @ 579, T; "s": F2T: @ 640, B1$$\\ 2070: @ 640, " v s 2*s Mit kapt}l? 1. t = --- 2. t = --- 3. t = --- 2*s 2*v v"] 2280 ]l] 2140: 1960: A$"I" 1110: A$"1" 2320: 1000 : 2250: 2410: F2T : 1090D^ 2070: @ 640, " v Szorozd meg az egyenlet mindk`t Segitek! a = - /*t oldal}t t-vel! Ha elk`sz~lt`l, t nyomj meg egy billenty~t!": 1700^ 2070: @ 704, B1$; "Mit kapt}l? 1. a*t = v 2. a = v*t 3. a*v = t"^ 2280^ A$ "1" 1800: 1020 _ 2070: @ 659, "";: 1950: A$"I" 2250: 2410: F2T _@ 640, B1$; "Osszd el a t*a = v egyenlet mindk`t oldal}t a-val! Ha elk`sz~lt`l, nyomj meg egy billenty~t!": 1700N`$@ 640, B1$; " v Ugye ezt kaptad? t = - a"f`.@ 744, "";: 1950`8 A$"I" 2150: 2410: F2T 4aB@ 640, B1$: @ 660, V;: @ 704, "Ejnye! Ejnye! t = ";(((V))1,45); " = "; T; "s": @ 788((V))2((A))2, A: 2230: @ 579, T; "s": F2T: @ 640, B1$:aLaV 2070: @ 640, " v a Mit kapt}l? 1. t = - 2. t = - 3. t = v*a a v"b` 2280bjpbt 2140: 1960: A$"I" 1260: A$"1" 2320: 1150 : 2250: 2410: F2T : 1230{b~ 1300b 2070: @ 659, "": 1950b A$"I" 2250: 2410: F2T c@ 640, B1$; " 2 Osszd el a 2*s = a*t egyenlet mindk`t oldal}t a-val! Ha elk `sz~lt`l, nyomj meg egy billenty~t!": 1700Qd@ 640, B1$; " 2 2*s Ugye ezt kaptad? t = --- Tudod folytatni? (I/N) a": 1960yd A$"I" 2250: 2410: F2T d 2070: G16: H41:J2: 1340: 1350: @ 794, "";: 1950d A$"I" 2150: 2410: F2T e 2070: G16: J2: 1340: 1350: G16: 1340: 1350: @ 789,"=";: G45: J((S)): 1340: @ 732,"2 *";S;: @796,(((S))3,45);" =";T;"s";: @ 861(((S))((A)))2,A: J0e@ 960, "";: 2230: @ 579, T; "s": @ 640, B1$: F2Te-f 2070: @ 600, "Melyiket kaptad?": G16: 1340: G60: 1340: G104: 1340f@ 770, "1.";: 1350: @ 792, "2. t =";: @804, "-----";: @ 742,"s";: @ 868, "2 * a";:@ 814, "3. t =";: @ 764, "a";: @ 826, "-----";: @ 890, "2 * s";f 2280f g 2070: @ 640, " a 2 Szorozd meg az egyenlet mindk`tSegitek! s = - * t /*2 oldal}t 2-vel! Ha elk`sz~lt`l, 2 nyomj meg egy billenty~t!": 1700Nh 2070: @ 640, " 2 2 2Mit kapt}l? 1. s = a*t 2. 2*s = 2*a*t 3. 2*s = a*t"sh( 2280: A$"3" 1800: 1320yh2h< I0 9: (GI2,32I): (G4I2,41I): : I0 82J: (G9I,31): : iF@ 718, "2 * s";: @ 773, "t =";: @ 782, "-----";: @ 848, "a";: yiP 2140: 1960: A$"I" 1450: A$"1" 2320: 1370 : 2250: 2380: F1A : 1430iZ 1650id 2070: @ 659, "";: 1950in A$"I" 2250: 2380: F1A jx@ 640, B1$; " 2 Osszd el a 2*a*s = v egyenlet mindk`t oldal}t 2*s-el! Ha elk`sz~ltel, nyomj meg egy billenty~t!": 1700k@ 640, B1$; " 2 v Ugye ezt kaptad? a = --- Tudod folytatni? (I/N) 2*s"k 1960: A$"I" 2150: 2380: F1A l@640,B1$:Z((S))4:Y((V))2:@724(ZY)2,V;: @ 658(ZY)2,2;:@768, "Ejnye! Ejnye! a = "; (((S))3,45); " = "; A; "m/s[2";: @ 853, "2 *";S: 2230: @ 515, A; "m/s[2";: F1A: @ 640, B1$ll 2070: @ 601, "2 2"m@ 663, "v 2*v 2*sMit kapt}l? 1. a = --- 2. a = ---- 3. a = --- 2*s s 2": @ 893, "v"m 2280mm@ 768, B1$: @ 807, "": 1950m A$"I" 2250: 2380: F1A n 2070: @ 662,"v "; V;: @ 687, "Ha elk`sz~lt`l,": "Ejnye! Ejnye! a = --- = ---- =";VT;"m/s[2"; :@ 751, "nyomj meg";: @ 790,"t ";T;: @ 815, "egy billenty~t!";: F1A: 1700: @ 515,F1;"m/s[2";: o 2140: 1960: A$"I" 1610: A$"2" 2230: 1530 : 2250: 2380: F1A : 1590 o 1300@o 2070: @ 659, "";: 1950fo A$"I" 2250: 2380: F1A 3p@ 640, B1$; " 2 2 Osszd el a 2*s = a*t egyenlet mindk`t oldal}t t -tel! Ha elk`sz~lt`l, nyomj meg egy billenty~t!": 1700q"@ 640, B1$; " 2*s Ugye ezt kaptad? a = --- Tudod folytatni? (I/N) 2": @ 866, "t": 1960'q, A$"I" 2150: 2380: F1A q6R((S)): @ 640, B1$: @ 661, "2 *"; S;: @ 704, "Ejnye! Ejnye! a = "; (R3,45); " = "; A; "m/s[2";: @ 787R2((T)), 2: @ 851R2, T: 2230: @ 515, A; "M/S[2";: F1A: @ 640, B1$q@rJ2070: @ 639, "2": @ 664, "s 2*s t Mit kapt}l? 1. a = ---- 2. a = --- 3. a = --- 2 2 2*s 2*t"rT@ 875, "t"r^ 2280rhsr 2070: @ 593, 2: @ 656, "v Szorozd meg az egyenlet mindk`t Segitek! s = --- /*2*a oldal}t 2*a-val! Ha elk`sz~lt`l, 2*a nyomj meg egy billenty~t!": 1700Bt| 2070: @ 669, " 2 2 2 Mit kapt}l? 1. 2*s*a = 2*a*v 2. 2*s*a = v 3. s = a*v"gt 2280: A$"2" 1800: 1670mtt@ 355, "Hib}s beir}s! Segitek!";: 1940: t I0 3000tA$t A$"" A$(13) I : t@ 960, B2$;-u@ 967, "K`rlek v}laszolj! Nyomd meg valamelyik billenty~t!";8u 1700Iu@ 960, B2$;u@ 963, "Nem a k`rt billenty~k k|z~l nyomt}l meg. Prob}lkozz ism`t!";uu "Nyomd meg a megfelel| mennyis`g el|tt }llo sz}m billenty~j`t!": Jv@ 832, B1$; "T`vedsz! Olvasd el m`gegyszer a feladatot `s v}laszolj ujbol az el|bbi k`rd`sre!";: v: "1. t 2. a 3. v 4. s "v 1790v& 1700v0 A$"1" A$"2" A$"3" A$"4" : 1760v: 1830vD A$"1" wN 1800wX 1830wb 18600wl A$"2" ;wv 1800Fw 1830Qw 1900jw I0 1500: I: w "Tudod folytatni? (I/N)";w 1700w A$"I" A$"N" : 1760: 1960w 1700w A$"1" A$"2" : 1760w 19804x 2070: @ 466, "Melyik k`plettel kell sz}molnod?";Ex@ 527, "2";x@ 589, "v v v a 2";x@ 645, " 1. s = --- 2. s = - * t ";Vy " 3. a = - 4. s = - * t 2*a 2 t 2 Nyomd meg a megfelel| k`plet el|tt }llo sz}m billenty~j`t!"\y y@ 466, B2$;: @ 527, B2$;: @ 589, B1$: y @ 832, B1$; "T`vedsz! A "; A$; ". k`plet nem tartalmazza a "; C$; "-t! Prob}lkozz ujra!"y* 1830y4oz>@ 832, B1$; "T`vedsz! N`zd meg az adatokat. A "; A$; ". k`plet k`t ismeretlent tar- talmaz. Prob}lkozz ujra!"zzH 1830zRz\@ 768, B1$; "Ki tudod fejezni a "; C$; "-t a "; A$; ". k`pletb|l? (I/N)": &{f@ 896, B1$; "Helyettesits be a k`pletbe. Ha k`sz, nyomj meg egy billenty~t!"1{p 17007{zL{ F$: F(F$): {@ 640, B1$: @ 650, "Rosszul sz}molt}l! Prob}lkozol m`gegyszer? (I/N)";{ 1700{ A$"I" A$"N" : 1760{ 2200| "Ha elolvastad, nyomj meg egy billenty~t!";: 1700|k| 2070: @ 640, "Oldd meg a feladatot. Ha elk`sz~lt`l, nyomj meg egy billenty~t!"v| 1700||| 1700| A$"1" A$"2" A$"3" : 1760| 2280| C$"t": 2010: 1830: | @ 924, "T`vedsz!": 1940: } C$"a": 2010: 1830: 0}$ F1A 2380C}. F2T 2410I}B }L @ 512, "a = ";: 2180: FA F1A: @ 515, B2$; F1; "m/s[2": "t = ?" : @ 518, B2$;: 2190: A$"I" 2380}V F2T @ 576, "t =";F2;"s"}` \~j @ 640, B1$: @ 576, "t = ";: 2180: FT F2T: @ 579, B2$; F2; "s" : @ 582, B2$: 2190: A$"I" 2410b~t