ZXTape!D-009 ~~qh ?XX: D\: D\: D\: D\: D\:yD\DXX?zzzzzzzzzxxxxxxzzzzzzzzz\!l@$  !lX> =  >JbRJFB@|@>  6UU6 _|;; *=\s#r;;͎{ ::\(!((<2\6!""B\2D\}33_?@`px|~xH>GM>2^KC!$!ʹͭ~w#~w#BV#~#( 7ݦw}<(~w $x>xͲ"W!> >8H~(w88#~0wx#w:0 M:V!$Kʹͭ~w#~w# !>w#w!]@>GM>2^!X68#z !@!@>͌_6x# >͌_60# !Xj  GÐ 23658j\,0:23659k\,2:57800:wskaz=0:23675{\,216:23676|\,92\:bre1=23991]:bre2=23992]:bre1,5:bre2,0:23762\:inic=0:rysunek=0 kolor=243713_:zapis=24386B_:obraz=24398N_:zmiana=24378:_:gr=0:uyu=0:236099\,30:s$=" "  0(# m -#0;" Nacinij klawisz SPACJI " ""0 =" "  0 % 0:0:0::"Instrukcje dla ucznia"'"--------------------------------":0,0;"Program kreli na ekranie wykres funkcji y=f(x) w zadanym przedziale zmiennoci x. Krok oblicze wartoci funkcji przyj-mowany jest automatycznie."'" Istnieje kilka moliwych posobw wykorzystania programu:"''"1. Program wykonuje konieczne obliczenia i rysuje na ekra- nie wykres funkcji okrelonej przez ucznia.":"2. Program wywietla na ekranie ostatnio narysowany wykres. 3. Program rysuje na ekranie wykres funkcji wybranej przez ucznia spord dziesiciu przykadowo zaproponowanych funkcji.":0 ::"4. Program drukuje na drukarce utworzony wczeniej wykres funkcji.":'"Funkcja okrelona przez ucznia musi by funkcj cig zmiennejx i nie moe zawiera adnych parametrw. Wartoci funkcji powinny by skoczone."''"Wyraenie okrelajce warto funkcji musi by zbudowane zgod-nie z reguami zapisu wyrae w jzyku BASIC."'"W szczeglnoci naley stosowa nastpujce znaki dziaa:"'" + dodawanie,"'" - odejmowanie lub zmiana znaku,"'" * mnoenie,"'" / dzielenie,"'" ^ potgowanie"'"oraz nawiasy ( i ).": 0 ::"UWAGA !"'"Ze wzgldu na niewaciwe dzia- anie interpretera nie naley podnosi do potgi wielkoci, ktra jest ujemna."'"Mona take wykorzysta bogaty zestaw funkcji matematycznych dostpnych w mikrokomputerze, przestrzegajc jednak zasad po- dawania ich argumentw np."'" x0 dla funkcji (x),"'" x>0 dla funkcji (x) itp.":"Przedzia zmiennoci x powinien by skoczony, najlepiej aby jego dugo bya wiksza od 1 i mniejsza od 1000 (nie jest to jednak warunek konieczny)."''"Program wyznacza na obu osiach jednostki w taki sposb, aby wy-korzysta cay ekran na naryso- wanie wykresu.":0 ::"Wykres moe posiada ""kontur"", tj.zaciemniony obszar midzy lini wykresu i osi OX.":'"W trakcie dziaania programu pojawiaj si uzupeniajce informacje o sposobie jego wykorzystania."''"Naley pamita, e wprowadzaniedanych musi by zakoczone na-ciniciem klawisza ENTER.":"W przypadku pomyki naley uy klawisza DELETE."''"Jeli w czasie dziaania progra-mu wystpi bd, na przykad w czasie wprowadzania danych,prog-ram automatycznie wraca do menu.":0 :0 0:0:0:0::" Instrukcje dla nauczyciela --------------------------------";0,0;"Przed przystpieniem do de- monstracji i wykorzystaniem pro-gramu w nauczaniu, zapoznaj si dokadnie z zaczon instrukcjobsugi programu, jego tematyk oraz przeanalizuj sam(a) wszyst-kie etapy i warianty programu.":'' "Program jest zabezpieczony przedprzypadkowym zatrzymaniem i na-wet po wprowadzeniu bdnych da-nych poda odpowiedni komunikat, a po naciniciu dowolnego kla- wisza kontynuuje prac.":0 ::" Instrukcje dla nauczyciela --------------------------------";0,0;"W przypadku jakichkolwiek trudnoci w obsudze programu oraz wtpliwoci i uwag mery- torycznych skontaktuj si z naszym przedsibiorstwem.":0;''"Nasz adres :"'" Przedsibiorstwo Zagraniczne"'" ""POLMER"""'" Dzia Oprogramowania"'" ul. Surzyskiego 32"'" 64-000 Kocian"'" tel.:12-07-24 telex:045313":''" Zapewniamy bezpatne porady i fachow pomoc.":0 :0 0\=004! c0\=0#0;0,0;"2 Variable not found, 0:0":0\,0:0 a0\=0 #0;0,0;"A Invalid argument, 0:0":0\,0:0 !_bre1,0":bre2,0:gr=0:bright=0:ink=0:paper=0:0:0:0::"  Moliwoci programu  ":a=0:q$=" ":0;0,a;Q$;0,a;" Obliczenia i rysowanie ";0,a;Q$;0,a;q$;0,a;" Wykres funkcji f(x) ";0 ,a;q$;0 ,a;q$;0 ,a;" Przykady funkcji ";0 ,a;q$;0 ,a;q$:0;0,a;" Drukowanie wykresu ";0,a;q$;0,a;q$;0,a;" Powrt do spisu treci ";0,a;q$:0,0:0,0:0,-0y:-0,0:0,0y:0,0;"Po narysowaniu wykresu dodatkoweinfornacje - przez nacinicie I":#0;"ruch strzaki- wybr-SPACJA":0p <m rysunek=0zal:0 obraz:0l Fbre1,0:bre2,0:x$=" " :rysunek=0 0:0:0::"  Posta funkcji y = f(x)  ":0}L,0:0}L,0:0}L,0:gr0 sgr=0" Podaj posta funkcji f(x) .....f(x) = ";f$:f$=""0 f$=" "+f$:i=0̱f$:f$(i)=" "(f$(i)>0'Ưf$(i)<0:f$(i)",")((f$(i)>0ůf$(i)=0)Ưf$(i)<0)((f$(i)="x"f$(i)="X")f$(i-0)"X"f$(i-0)"x")f$(i)="^"i:f$=f$(0):0 y#0;"Nie wolno uywa znaku ";(f$(i-0)(f$(i-0)="x"f$(i-0)="X"));f$(i);"":0:0 0,0;"f(x) = ";f$:0,0;" Parametry przedziau oblicze :":gr=0" Podaj warto pocztkow ...... x pocztkowe = ";pocz 0}L,0 :0 ,0;" x pocztkowe = ";pocz:gr=0" Podaj warto kocow ......... x kocowe = ";kon ?0}L,0 :0 ,0;" x kocowe = ";kon:konpocz0,0;" Do sporzdzenia wykresu funkcji y=f(x) podae nieprawidowe wartoci pocztku i koca prze- dziau oblicze . ":0:0 k=0/(kon-pocz):k1=(kon-pocz)/0:0,0;" krok oblicze = ";k1'" ilo krokw = 250";0,0;"":0 ,wskaz=0:gr=0:bre1,0:bre2,0:min=0 ^0:max=-min:0,0;"":0,0;" Prosz czekaj - trwaj oblicze- nia najwikszej i najmniejszej wartoci funkcji f(x).Krok ":0,0;"":#0;0,0;s$:Y(0):i=00:0,0;i:x=pocz+(i-0)*k1:Y(i)=f$ rY(i)>maxmax=Y(i) |Y(i)0wsk=0:0 ,0,(d1-(Y(i-0)-min)*s+0)  i:0S `i=00:0xD,0#:d1=((Y(i)-min)*s+0):d1<0d1>00: &Emin0max0h=d1-oy:i,oy:0;0,h:0: +6min0i,0:0;0,d1:0: 0Gmax0t=((Y(i)-max)*s+0):i,0:0;0,t :i Su0}L,0:0}L,0:0}L,0:zapis:rysunek=0:zmiana,paper*0+ink:paper:kolor l""0l mZ="k"0}L,0: bright=bright:zmiana,paper*0+ink+bright*0@:kolor v!="i"0}L,0 :0 ="w"0  ="t"0R &=0 0}L,0 :0  0m  0 */g$=:0}L,0#:g$<"0"g$>"7"0* 4Cink=g$:zmiana,0*paper+ink+bright*0@:kolor:0l R 0 \/g$=:0}L,0:g$<"0"g$>"7"0\ fUpaper=g$:zmiana,0*paper+ink+0@*bright:paper:kolor:0 :0l  rysunek=0zal:0 a:obraz:::#0;"f(x)=";f$'"x [";pocz;" ; ";kon;"]"'"y [";min;" ; ";max;"]":0 ex1=0:y1=0:x11=0:y11=0:ox=(-pocz*k+0)+0:oy=(-min*s+0):k$=(kon-pocz):m$=(max-min):ss=(kon-pocz):0:wx=q:ss=(max-min):0:wy=q:ax=0:l=0wx-0:ax=0 *ax:l:ay=0:l=0wy-0:ay=0 *ay:l:kax=ax/0:(k$(0))<0kax=ax/0 $"px=pocz:poczpxpx=0+px .8kay=ay/0:(m$(0))<0kay=ay/0 8 py=min:minpypy=0+py B8i=px-0konkax:ipoczx5=kax*(i/kax):0V Li V7j=py-0maxkay:jminy5=kay*(j/kay):0j `j j<(oy<-0oy>0)(ox<-0ox>0)0 ~(kon-px)>0x11=ax -i=pxkonx11:(i/ax)=(i/ax)x1=i:0  i:x1=x5 (max-py)>0y11=ay -j=pymaxy11:(j/ay)=(j/ay)y1=j:0  j:y1=y5 !oy<-0oy>00 7j=oy-0oy+0:j<0j>00 qi=x1konax:((i-pocz)*k+0)+0,j:i:i=x5konkax:(oy-j)<0((i-pocz)*k+0)+0,j i:(0-(oy-j)),j Jj:oy<0oy00-((oy/0)+0),0;" X"  Goy0oy00-((oy/0)-0),0;" X" 4oy0oy00,oy:0,0 !ox<-0ox>00 (7i=ox-0ox+0:i<0i>00n <_j=y1maxay:i,((j-min)*s+0):j:j=y5maxkay:(ox-i)<0i,((j-min)*s+0) Zj:i,(0-(ox-i)) n@i:ox<0ox00,(ox/0)+0;" Y" =ox0ox00,(ox/0)-0;" Y" 4ox0ox0ox,0:0,0 ex=0:i=x5konkax:ey=0:xx=((x5+ex*kax-pocz)*k+0)+0:j=y5maxkay:yy=((y5+ey*kay-min)*s+0):xx,yy:ey=ey+0:j:ex=ex+0:i: uyu=00 ]u$(0 ,0):q(0 ):r(0 ):0 :i=00 :u$(i),q(i),r(i):i L"x-5*x",-0,0,"(x-1)*(x-2)*(x-3)*(x-4)",0ffff,0fff,"2*(-3*x-x*x)",-0,0,"x/(x*x-x+1)",-0,0,"1/(x*x-4*x+5)",-0,0:"x*x*x+4*x*x-x+1",-0,0,"x",0,0*,"5*(-.1*x)*x",0,0,"x/(x-(x))",-0S333,0,"(x*x-4*x+2)",-0,0:uyu=0 0:0:0::"*** Przykady funkcji f(x). ***":0}L,0:0}L,0:0}L,0:gr=0:i=00 :0*i,0-i;i;".";0*i,0;"f(x)=";u$(i):0*i+0,0;"x [ ";q(i);" ; ";r(i);" ].":i:#0;"ruch strzaki- wybr-SPACJA":08 N@pocz=q(i):kon=r(i):k=0/(kon-pocz):f$=u$(i)::0 ]#0;0,0;s$;0,0;s$;:min<0t$min=(min*0)/0 *max<0t$max=(max*0)/0 ""0 Y#0;0,0;"y[";min;";";max;"]";0,0;"x[";pocz;";";kon;"]" " "0 wskaz=0:#0;0,0;" Czy zmieniasz zadan skal T/N ?" ="n"Ŧ="N"0 "t"Ŧ="T"0 ""0  0 <"Czy zmienisz rwnie skal x-w?",'"x[";pocz;";";kon;"]" ""0 0:0:0::"  Posta funkcji y = f(x)  ":0}L,0:0}L,0:0}L,0:0 0}L,0 :0  ="i"0v  0 +sss=ss:q=002:sss<0 sss=sss/0 :q Aet=0:kf=0:yf=0 :q$=" ":0 Let=0:0:0::kf=0W:yf=0 :q$=" " Xet=00,0;q$;0 ,0;" LOAD """" ";0 ,0;q$ Vet=00,0;q$;0,0;" KONTUR ";0,0;Q$ 0,kf:0J,0:0,0:-0J,0:0,-0:et=00,0 ;q$;0 ,0 ;" RETURN ";0 ,0 ;Q$ Vet=00,0 ;q$;0,0 ;" RETURN ";0,0 ;Q$ 0^,kf:0J,0:0,0:-0J,0:0,-0:et=00,0;q$;0 ,0;" RESET ";0 ,0;Q$ Vet=00,0;q$;0,0;" LINIA ";0,0;Q$ 0,kf:0J,0:0,0:-0J,0:0,-0:et=00,0;"ruch strzaki wybr-SPACJA" [et=00:#0;0,0;"ruch strzaki wybr-SPACJA":0 xs=xst:ys=yst:br0+0,00:xst,0x:yst,0P:0,0:0,0~:0,0:0,0:et=0xst,0:yst,0 zal dxs=xst:xs>0xs<0Xxf=0:ww=0:m=0L:xd=0:xg=0X:0| [xs>0`xs<0xf=0 :ww=0:m=0(#:xd=0`:xg=0:0| [xs>0xs<0xf=0:ww=0:m=0:xd=0:xg=0:0|  0 |c(br1+0),0:(br1+0),yf:(br1+0),0 :et=0(br1+0),0 {(br1+0),xf:br1:(br0+0),0:(br0+0),yf:(br0+0),0 :et=0(br0+0),0 .xs=xst:ys=yst:=" "Ŧ="0"wyl:0D  xd0 ys<08y1=0:m=0:yd=0 :yg=08:0X Oys>08ys<0Py1=0:m=0:yd=08:yg=0P:0X Oys>0Pys<0hy1=0 :m=0 :yd=0P:yg=0h:0X Oys>0hys<0y1=0 :m=0:yd=0h:yg=0:0X Oys>0ys<0y1=0:m=0:yd=0:yg=0:0X  0 8ybr0+0,00:xst,0:yst,0:0,0:0,0:0,0~:0,0:zal Vaxs=xst:ys=yst:ys>0ys<0 y1=0:i=0:yd=0:yg=0 :0d jOys>0 ys<00y1=0:i=0:yd=0 :yg=00:0d tOys>00ys<0@y1=0:i=0:yd=00:yg=0@:0d ~Oys>0@ys<0Py1=0:i=0:yd=0@:yg=0P:0d Oys>0Pys<0`y1=0 :i=0:yd=0P:yg=0`:0d Oys>0`ys<0py1=0 :i=0:yd=0`:yg=0p:0d Oys>0pys<0y1=0:i=0:yd=0p:yg=0:0d Oys>0ys<0y1=0:i=0:yd=0:yg=0:0d Oys>0ys<0y1=0:i=0 :yd=0:yg=0:0d Oys>0ys<0y1=0:i=0 :yd=0:yg=0:0d  0L de(br1+0),0:(br1+0),0:(br1+0),0 :(br1+0),y1+0:br1 x.xs=xst:ys=yst:=" "Ŧ="0"wyl:0N yd0(ys<0Fy1=0:m=0:yd=0(:yg=0F:0& #Oys>0Fys<0fy1=0 :m=0:yd=0F:yg=0f:0& #Oys>0fys<0y1=0 :m=0:yd=0f:yg=0:0& #Oys>0ys<0y1=0:m=0:yd=0:yg=0:0& # 0# &e(br1+0),0:(br1+0),0:(br1+0),0:(br1+0),y1+0:br1 &.xs=xst:ys=yst:=" "Ŧ="0"wyl:0 &yd