Физика сабаќтарында компьютерді пайдалану
Ұшып жүрген анықталмаған объект
жүктеу/скачать 2,49 Mb.
|
- Бұл бет үшін навигация:
- СБОРНИК ДИДАК
| 3. Ұшып жүрген анықталмаған объект
Uses Graph, crt; const r=20; {NLO ohzxndxk ohlcemx}pause =100; {pause yzaqtwgw} VAR d,m,e,xm,ym,x,y,x1,y1,rx,ry, Size,i,dx,dy,Width,Height:Integer; Saucer:Pointer; label loop; Begin {Grafikanw inicialaimwz} d := Detect; InitGraph(d, m, 'c:\bp\doc\bgi'); e := GraphResult; If e <> grOk then Writeln(GraphErrorMsg(e)) else Begin x := r*5; y := r*2; xm := GetMaxX div 4; ym := GetMaxY div 4; {ekx ellipsten antenaswnwnh myrtw bar'tarelka' jasau} Ellipse (x,y,0,360,r,r div 3+2); Ellipse (x,y-4,190,357,r,r div 3); Line (x+7,y-6,x+10,y-12); Line (x-7,y-6,x-10,y-12); Circle (x+10,y-12,2); Circle (x-10,y-12,2); FloodFill (x+1,y+4,White); { NLO-nw} x1 := x-r-1; y1 := y-14; rx := x+r+1; ry := y+r div 3+3; Width := rx-x1+1; Height := ry-y1+1; Size := ImageSize (x1, y1, rx, ry); GetMem (Saucer, Size); GetImage (x1, y1, rx, ry, Saucer^); {Salghanwmwzdw syrtemiz} PutImage (x1, y1, Saucer^, XorPut ); {Jyldwzdw aspandw jasaimwz} Rectangle (xm,ym,3*xm,3*ym); SetViewPort (xm+1,ym+1,3*xm-1,3*ym-1,ClipOn); xm := 2*xm; ym := 2*ym; For i:=1 to 200 do PutPixel (Random(xm), Random(ym), White); { NLO bastapqw alatwn ornw men qozgalu baghwtwn beremxz} x := xm div 2; y := ym div 2; dx := 10; dy := 10; {negxzgx cikl} repeat PutImage (x,y,Saucer^,XorPut); {NLO-nw janha orwngha} Delay(Pause); {salamwz dajahne pauzwdan} PutImage (x, y, Saucer^, XorPut); {keixn onw ohcxremxz } {Ҹ®«гз Ҙ¬ ®ўлҘ Ә®®аӨЁ вл} loop: x := x+dx; y := y+dy; {NLO ekran cekaraswna jetedx ?} If (x<0) or (x+Width+1>xm) or (y<0) or (y+Height+1>ym) then Begin {ia-NLO cekaragha jettx: onwnh qozqalu baghwtwn ohzgertemxz} x := x-dx; y := y-dy; dx := GetMaxX div 10 - Random(GetMaxX div 5); dy := GetMaxY div 30 - Random(GetMaxY div 15); goto loop end Until KeyPressed; If ReadKey=#0 then x := ord(ReadKey); CloseGraph end End. Пайдаланылған әдебиеттер 1.Физика және астрономия: Жалпы білім беретін мектептің 7-сыныбына арналған оқулық./ Р.Башарұлы т..б., т.б.- Алматы: Атамұра , 2007. 2.Физика және астрономия: Жалпы білім беретін мектептің 8-сыныбына арналған оқулық./ Б.М.Дүйсембаев, т.б.- Алматы: ” Мектеп“ баспасы, 2008. 3. .Физика және астрономия: Жалпы білім беретін мектептің 9-сыныбына арналған оқулық./ Р.Башарұлы, Д.Қазақбаева, У.Тоқбергенова; Н. Бекбасар, - Алматы: “Мектеп “ баспасы, 2009. 4. Физика және : Жалпы білім беретін мектептің жаратылыстану- математика бағытындағы10-сыныбынаарналған оқулық./ Б.А.Кронгарт, т.б.- Алматы: ” Мектеп“ баспасы, 2010. 5.Физика және : Жалпы білім беретін мектептің жаратылыстану- математика бағытындағы10-сыныбынаарналған оқулық./ Б.А.Кронгарт, т.б.- Алматы: ” Мектеп“ баспасы, 2010. 6. Физика және : Жалпы білім беретін мектептің жаратылыстану- математика бағытындағы11-сыныбынаарналған оқулық./ С.Тұяқбаев, Ш.Насохов, Б.А.Кронгарт, т.б.- Алматы: ” Мектеп“ баспасы, 2007. 7. Г.И.Рябоволов,Н.Р.Дадашева,И.А.Куганова.СБОРНИК ДИДАК – жүктеу/скачать 2,49 Mb. Достарыңызбен бөлісу:
|