Похожие работы на «Вращение треугольника»

Вращение треугольника
Программирование и комп-ры, Вращение треугольника, Курсовая ... x_nc , y_nc : integer); begin x_c := x_nc ; y_c := y_nc; end; Function Str2(Num:Integer):String; Type S = String; var P : ^S; Begin New(P); Str(Num,P^ ...
... x_c+ctr[1][2],y_c+ctr[2][2]); Line(x_c+ctr[1][2],y_c+ctr[2][2],x_c+ctr[1][3],y_c+ctr[2][3]); Line(x_c+ctr[1][3],y_c+ctr[2][3],x_c+ctr[1][1],y_c+ctr[2] ...


Взаимодействие основных частей ЭВМ при выполнении программы [нестрогое соответствие]
Программирование и комп-ры, Взаимодействие основных частей ЭВМ при выполнении программы, Курсовая ... GetMaxX div 2, 10, 'Вы действительно хотите выйти?'); | |SetColor(Green); | |OutTextXY(GetMaxX div 2, 30, 'Да(Y), Нет(N)'); | |SetTextJustify(0, 0) ...
... GetMaxX-180, GetMaxY-80, Word_5); | |_Pause; | |ClearDevice; | |end; {Title} | ... | |procedure BLink(X, Y: Integer; S: string); | |var I: Byte; ...


Арканоид на Паскале [нестрогое соответствие]
Программирование и комп-ры, Арканоид на Паскале, Курсовая ... y-20,0,false); end; end; procedure search_y; begin case y of 22..42: begin y:=42; stroika; end; 43..63: begin y:=63; stroika; end; 64..84: begin y:=84 ...
... y:=189; stroika; end; 190..210:begin y:=210; stroika; end; 211..231:begin y:=231; stroika; end; 232..252:begin y:=252; stroika; end; 263..273:begin y: ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... свой радиус. for i:=399 downto 0 do begin setcolor(i); сircle(322,250,i); delay(10); end; {-end_krugi-} Закрытие граф. режима closegraph; Завершение ...
... delay(1000); writeln('Reload-'); write('Exit-'); c:=readkey; if c=#27 then begin menu; goto menu2; end else begin textmode(Co80); l:=4; goto menu2; ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... VecSub(a,b: tVec3D; var c: tVec3D); begin c.x:=a.x-b.x; c.y:=a.y-b.y; c.z:=a.z-b.z; end; procedure VecMultNum(k: real; a: tVec3D; var b: tVec3D) ...
... на Паскале. procedure BinarySearch(var T:tTable; k:tKey; var index:integer); var l,c,r: integer; begin index:=0; l:=1; r:=T.n; while (index=0)and(l<=r ...


Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x [нестрогое соответствие]
Программирование и комп-ры, Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x , Диплом и связанное с ним ... 4); Line(460,120,593,120); OutTextXY(460,160,'0'); OutTextXY(593,130,'(X,Y)'); SetColor(1); end; '2':begin SetColor(4); OutTextXY(460,160,'0 dX' ...
... P2); case A.P1 of ' ':OutTextXY(20,Y*N+10,St); '*':begin SetColor(4); OutTextXY(20,Y*N+10,St); SetColor(1); end; '1':begin SetColor(4); Arc(500,150,0, ...


Модули и объекты в языке Турбо Паскаль 7.0 [нестрогое соответствие]
Программирование и комп-ры, Модули и объекты в языке Турбо Паскаль 7.0 , Работа Курсовая ... Im := x . im + у. Im; end {AddC}; PROCEDURE SubC; begin z .re := x.re - y.re; z . im := x.Im - y. Im; end {SubC}; PROCEDURE MulC; begin z.re := x.re ...
... PROCEDURE DivC; var zz : real; begin zz :=sqr(y.re) + sqr(y.im); z.re := (x.re * y.re + x.im * y.im) / zz; z.lm := (x.re * y.im - x.lm * y.re) / zz; ...


Кодирующее устройство для кода Файера [нестрогое соответствие]
Коммуникации и связь, Кодирующее устройство для кода Файера, Курсовая ... l:=1; For m:=i+1 to i+_M-1 do Begin A[Schot,_N+l]:=Delimoe[m]; l:=l+1; End; End; Schot:=Schot+1; End; End; Procedure InitGrf; {Инициализация графики} ...
... 7); MoveTo(x+i*k,y); Str(Sa[i],Elm); OutText(Elm); SetColor(Color); MoveTo(x+i*k,y); sa[i]:=1; F[i]:=Sa[i]; Str(Sa[i],Elm); OutText(Elm); Stop:=False; ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... I:=0; REPEAT I:=I+1; begin x:=hr[i].getx; y:=hr[i].gety; At:=hr[I].DAIAGE; CTp:=hr[I].DAIZWET; if (z mod 365)=0 then BEGIN at:=at+1; {Happy New Year! ...
... Function Tposition.Gety:integer; Begin Gety:=y End; Constructor Tosob.Init(x0,y0,age0:integer;col:word); Begin Tposition.Init(x0,y0); AGE:=AGE0; color ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... g+1+x; if g>4000 then begin key:=true; end; end else begin end; end; end; {*} procedure hnew; begin I:=0; REPEAT I:=I+1; begin x:=hr[i].getx; y:=hr[i] ...
... Function Tposition.Gety:integer; Begin Gety:=y End; Constructor Tosob.Init(x0,y0,age0:integer;col:word); Begin Tposition.Init(x0,y0); AGE:=AGE0; color ...