Похожие работы на «Вычисления площади произвольного многоугольника»

Вычисления площади произвольного многоугольника
Программирование и комп-ры, Вычисления площади произвольного многоугольника, Курсовая ... end; dx:=sd[1].x-sd[n].x; dy:=sd[1].y-sd[n].y; al2:=ArcCos(dx/sqrt(dx*dx+dy*dy)); sd[n].angle:=pi-al1+al2; if sd[n].angle>2*pi then sd[n].angle:=sd[n] ...
... 2*pi else if sd[i].angle<0 then sd[i].angle:=2*pi+sd[i].angle; al1:=al2 end; dx:=sd[1].x-sd[n].x; dy:=sd[1].y-sd[n].y; al2:=ArcCos(dx/sqrt(dx*dx+dy*dy ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... Pixels[x+1,y-1] = clBlack then c := 0 else c := 1; if Pixels[x-1,y] = clBlack then d := 0 else d := 1; if Pixels[x+1,y] = clBlack then e := 0 else e ...
... x-xStart+1) div 2; y := yStart + 1 + (y-yStart+1) div 2; end; 4: begin x := xStart + dx + (x-xStart+1) div 2; y := yStart + 1 + (y-yStart+1) div 2; ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... 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; ...
... menu; goto menu2; end; {-выход- -} if l=7 then exitt else begin error; goto menu2; end; {=END_Proga=} END. | Writed by Sergei Kovbasyuk | | | |(c)2000 ...


Нейтрофилы [нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты ... a>='0') and (a<='9')) or (a='.') then begin LI[y]:=a; write(a); y:=y+1 end; if a=#8 then begin y:=y-1; gotoXY(ad.x+y-1,ad.y); write(' '); gotoXY(ad.x+ ...
... procedure setmarker(m : scr_mod; i : integer); begin gotoxy(marker_place[m,i].x,marker_place[m,i].y); end; procedure wri_val(x : real; i : integer; ...


Исследование и моделирование с помощью компьютера электрических полей [нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат ... X+1,Y)=0 then Exit; If Potenc(X-1,Y)=0 then Exit; If O=1 then begin Ekv[X+1,Y+1]:=True; Ekv[X-1,Y+1]:=True; end; If O=2 then begin Ekv[X-1,Y-1]:=True; ...
... 1]:=True; end; If O=4 then begin Ekv[X+1,Y-1]:=True; Ekv[X+1,Y+1]:=True; end; If O=1 then begin En[EnNow].X:=X+1; En[EnNow].Y:=Y+1; En[EnNow+1].X:=X-1 ...


Арканоид на Паскале [нестрогое соответствие]
Программирование и комп-ры, Арканоид на Паскале, Курсовая ... 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: ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие ... integer); |Рисует отрезок из текущей позиции в точку | | |(x,y). При этом текущая позиция перемещается | | |в конец нарисованного отрезка. | |MoveRel( ...
... 1; p:=l; while (i<>num)and(p<>nil) do begin i:=i+1; p:=p^.next; end; if p<>nil then begin if p^.next<>nil then begin q:=p^.next^.next; dispose(p^.next ...


Взаимодействие основных частей ЭВМ при выполнении программы [нестрогое соответствие]
Программирование и комп-ры, Взаимодействие основных частей ЭВМ при выполнении программы, Курсовая Char; | |N: Byte; | |begin | |ClearDevice; | |MainWin; | |N := 0; | ... | ArrowsAndEsc := [Back, Next, F1, Esc]; | |repeat | |ExtentedKey := False; ...
... 1; | |SetColor(Green); | |if D < 0 then | |begin | |DX := -1; | |DY := -1; | |end; | |case XY of | |1: DY := 0; | |2: DX := 0; | |end; | |D := Abs(D) ...


Программатор ПЗУ (программный интерфейс) [нестрогое соответствие]
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс), ... 10,10,40,15); WindowL('Input File Name .ROM'); y :=1; zs:=' '; Loc(22,12); Wrt('-'); Repeat WaitKey; Loc(21+y,12); If (Key<>chr(13))And(Key<>chr(27) ...
... Then If (Key<>chr(08)) Then Begin If y<>9 Then Begin zs[y]:=Key; Wrt(key+'-'); inc(y); End; End Else If y<>1 Then Begin dec(y); Loc(25+y,12); zs[y] ...


Вычисление интеграла методом Ньютона-Котеса (теория и программа на Паскале) [нестрогое соответствие]
Кибернетика, Вычисление интеграла методом Ньютона-Котеса (теория и программа на Паскале), Курсовая ... bar(320,260,350,280); setfillstyle(1,12); bar(250,260,280,280); END; end; if (ea mod 2) =0 then begin outtextxy(255,267,'ДА'); outtextxy(325,267,'НЕТ' ...
... sqrt(x) else t:=0; k:=pos('arcctg(x)',f); if k<>0 then t:=pi/2-arctan(x); k:=pos('sin(x)/x',f); if k<>0 then if x<>0 then t:=sin(x)/x; end else ec:=0