Физика сабаќтарында компьютерді пайдалану


Ұшып жүрген анықталмаған объект



бет56/59
Дата04.11.2022
өлшемі2,49 Mb.
#47406
1   ...   51   52   53   54   55   56   57   58   59
Байланысты:
¨À?Ò?áå îáëûñòû? êàäðëàð á³ë³êò³ë³ã³í àðòòûðó æ?íå ?àéòà äàÿðëàó

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. Г.И.Рябоволов,Н.Р.Дадашева,И.А.Куганова.СБОРНИК ДИДАК –


Достарыңызбен бөлісу:
1   ...   51   52   53   54   55   56   57   58   59




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет