Похожие работы на «Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и класса) »

Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ...
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... Q:=Q^.last; end; newdat(a,p^.waytime,b); writeln (' цена: ',P^.mincost,' - ',p^.maxcost); readln(st); if st='p' then begin graphout(city); q:=p^.path; ...
... 1 then y:=y^.next; end; setcolor(c); moveto(4*city[q^.bcity].x,380-3*city[q^.bcity].y); repeat i:=(i mod 4)+1; if i=1 then y:=y^.next; lineto(4*city[y ...


Исследование и моделирование с помощью компьютера электрических полей [нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат ... IntToStr(X)+')'; Form1.StatusBar1.Panels.Items[0].Text:=St; St:='Y = '+IntToStr(Y*25+13)+'('+IntToStr(Y)+')'; Form1.StatusBar1.Panels.Items[1].Text: ...
... 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; ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... var Gx, Gy: real; x,y: word); var a, b, c, d, e, g, h, i: byte; begin with Image.Canvas do begin if Pixels[x-1,y-1] = clBlack then a := 0 else a
... Pixels[x,y-1] = clBlack then b := 0 else b := 1; if Pixels[x+1,y-1] = clBlack then c := 0 else c := 1; if Pixels[x-1,y] = clBlack then d := 0 else d ...


Отчет по лабораторной работе №2 [нестрогое соответствие]
Программирование и комп-ры, Отчет по лабораторной работе №2, Доклад ... p<>nil)) Then Begin Write('P <> Q'); b:=true; End; If (P^.p=nil) and (Q^.p=nil) Then Begin If (P^.a=Q^.a) and (P^.n=Q^.n) Then Begin Write('P = Q'); b ...
... b:=true; (P^.a=Q^.a) and (P^.n=Q^.n) Write('P = Q'); b:=true; ReadLn b=true Write('P <> Q'); b:=true; (P^.a=Q^.a) and (P^.n=Q^.n) P:=P^.p; Q:=Q^.p; (P ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... 1); Goto New; End Else Begin inc(i); Blank; If not notTerminal(term) Then Begin Error(4); Goto New; End Else Begin{есть нетерминал} Blank; If not (s[i ...
... Name<>x.Name) Do l:=l^.Next; If l<>Nil Then Begin new(q); q^.Name:=d.Name; q^.Next:=l^.Next; l^.Next:=q; End; End; End; Procedure Add_(ListLR:NotTerm


Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с помощью клавиатуры [нестрогое соответствие]
Программирование и комп-ры, Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с ... ... crx,cr_type,false); | |if promah then promah:=false; | |end else begin | |if cr_ind mod cr_type*5=0 then begin | |if promah then begin | |if flang=0 ...
... oldx:=tarx; | |tarx:=tarx+5; | |b:=true; | |end; | |end; | |#32: begin {пробел "Выстрел"} | |if not fire then begin | |x:=800; | |fire:=true; | |fx: ...


Вычисление интеграла методом Ньютона-Котеса (теория и программа на Паскале) [нестрогое соответствие]
Кибернетика, Вычисление интеграла методом Ньютона-Котеса (теория и программа на Паскале), Курсовая ... newsc(ea); winwwodn(ea); repeat repeat winwwodn(ea); gotoxy(25,16); read(k); val(k,p,ec); if ec<>0 then begin error1(ea); readln; end; until ec=0; n: ...
... 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,'НЕТ' ...


Исследование эффекта автодинного детектирования в многоконтурном генераторе на диоде Ганна [нестрогое соответствие]
Технология, Исследование эффекта автодинного детектирования в многоконтурном генераторе на диоде Ганна, ... iii1; fcount:=fcount+1; fsign:=-1; end; end else begin if y[8]-old_cur >= 0 then begin if fcount = 0 then fpoint:=iii1; fcount:=fcount+1; fsign:=1; ...
... sign[i]:=sign[i+1]; end; sign[500]:=y[8]; end; end; if(iii1>249) then begin { control circle } if (mark=1) then begin mark:=0; setcolor(14); circle(xg ...


Программатор ПЗУ (программный интерфейс) [нестрогое соответствие]
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс), ... end; $48: begin if (p>15)or(l1<>0)then dec(p,16); if p<0 then begin dec(l1,16); p:=p and 15; goto RePaINt; end; end; $4D: if l1+p+1320+15 then begin ...
... or(l1<>0)then dec(p); if p<0 then begin dec(l1,16); p:=15; goto RePaINt; end; end; $49: begin if (l1>319) then begin dec(l1,320) end else l1:=0; goto ...


Сравнительный анализ алгоритмов построения выпуклой оболочки на плоскости [нестрогое соответствие]
Математика, Сравнительный анализ алгоритмов построения выпуклой оболочки на плоскости, Курсовая ... x:=b^.y; b^.y:=e^.y; e^.y:=x; end; exit; end; p:=b; q:=e; while (p<>q)and(p^.next<>q) do begin p:=p^.next; q:=q^.prev; end; if p=q then q:=q.next; p^ ...
... begin if b=e then exit; if b^.next=e then begin if (b^.xq)and(p^.next<>q) do begin p:=p^.next; q:=q^.prev; end; if p=q then q:=q.next; p^.next:=b; b^ ...