Диплом

← →
Игорь Шевченко © (2006-04-27 16:55) [40]

Marser © (27.04.06 16:53) [39]

> Есть

Тогда об чем базар ?

Или там предусмотрена покупка курсовых/дипломов ? Я не в курсе сегодняшних реалий, в мое время такого пункта не существовало.

← →
Marser © (2006-04-27 17:00) [41]

> [40] Игорь Шевченко © (27.04.06 16:55)
> Marser © (27.04.06 16:53) [39]
>
>
> > Есть
>
>
> Тогда об чем базар ?
>
> Или там предусмотрена покупка курсовых/дипломов ? Я не в
> курсе сегодняшних реалий, в мое время такого пункта не существовало.

Дык, я расписал, почему. У нас в методичках по большинству курсовых написано, что если при защите студент показывает, что раборта выполнена не им, он получает автоматический низачот со всеми вытекающими - задолженность и т.д...

← →
antonn © (2006-04-27 17:57) [42]

Игорь Шевченко © (27.04.06 16:07) [36]
бывают ситуации, не зависящие от студента, когда свои обязанности он выполнят не успевает. Например, семья (тяжелое положение, две работы...), здоровье (ну поломал чего, академку взять не успел (у нас можно взять только до госов, после госов 3 месяца на диплом)). Знаю человека, машина его сбила, сломал ключицу и руку (точно где - не знаю как называется, ниже локтя). Отлеживался в больнице, время упустил, заказал диплом (правда загодя, не за неделю до сдачи), немного подрихтовал, защитил на отл. (специальность техническая, т.ч. коммиссия дотошная и незнание/просчет выявляется, пусть и не сразу). Через какое то время внедрил на производстве (стенд какой то, в следующем семестре студенты в той лаборатории занимались), где сам и работал (дядька уже был, не молодой:)).

А самому можно диплом писать так, что ничего нового для себя не найдешь (я написал одной студентке, на Дельфи, программа автоматизации - для себя ничего нового не нашел:))...
имхо, большинство дипломов - сбор и комбинирование уже "готовой" информации. По экономике - сколько не смотрел, не увидел больших различий (хотя, честно говоря, с экономикой у меня слабо). По техническим - разнообразия больше, но тоже можно найти несколько готовых и "по аналогии" "собрать" свой. Так какая разница, кто "соберет", я или дядя за мани? (хотя я жадный, я и сам соберу, но, как выше говорил, времени может уже не быть) Останется только разобраться с написанным...

← →
Игорь Шевченко © (2006-04-27 18:13) [43]

antonn © (27.04.06 17:57) [42]

> бывают ситуации, не зависящие от студента, когда свои обязанности
> он выполнят не успевает

Тогда ему в студентах нечего делать, разве не так ?

> Например, семья (тяжелое положение, две работы...),

Как это связано со студенчеством ? Уходи из ВУЗа, иди работай хоть на трех работах

> Так какая разница, кто "соберет", я или дядя за мани?

В таком случае и диплом нужно давать дяде, верно ? Тебе-то он нахрен сдался ?

← →
Alx2 © (2006-04-27 18:23) [44]

>antonn © (27.04.06 17:57)

Вот нафига в вузе тогда требуют самостоятельность в написании дипома, а?
Так, по "здравому смыслу", стоит узаконить такой подход: вот вам, студенты, книжка. И за год разберитесь-ка что в ней понаписано, да расскажите.

Цель диплома не в том, чтобы его надыбать и сдать. Цель - показать, что умеешь работать по специальности.

Как всегда, кто-то живет по законам, а кто-то по понятиям.

← →
antonn © (2006-04-27 19:08) [45]

Игорь Шевченко © (27.04.06 18:13) [43]
Тогда ему в студентах нечего делать, разве не так ?
не так:)

> В таком случае и диплом нужно давать дяде, верно ?
> Тебе-то он нахрен сдался ?

диплом-то? действительно, а зачем мне диплом-то, я его сделал, сдал, получил корочку и забыл... куда важнее те знания, которые я получил за время обучения в институте. А корочку без диплома не дадут:) А без корочки, обычно, никто не верит в знания... Имхо, госы страшнее и показательней, там задание дают за сутки до сдачи, вот уж где точно нужно знать (знать или материал, или где искать) + вопросы по, почти, всему курсу.

Alx2 © (27.04.06 18:23) [44]
Так, по "здравому смыслу", стоит узаконить такой подход: вот вам, студенты, книжка. И за год разберитесь-ка что в ней понаписано, да расскажите.
практически так оно и происходит, имхо... только все это оформляется соответствующим образом.

Цель диплома не в том, чтобы его надыбать и сдать. Цель - показать, что умеешь работать по специальности.
каким образом "надыбать" связано со "сдать" и "показать"? я к этому веду. Человек может получать высшее образование и при этом уже уметь работать по специальности. Например, отсутствие высшего образования может препятствовать карьерному росту (может же?), и специалист "идет учиться", тобишь за "корочкой". Написать диплом он (например) сможет, но нет времени. А разобраться в купленном, в силу того, что он уже специалист, вполне может, так же как и сдать. По крайней мере, такое происходит на заводе, где я практику прохожу (или покупают готовый, или комбинируют из нескольких готовых, либо используют материалы с работы), не скажу, что все поголовно (т.е. и не скажу что все:)), но знаю таких людей.
А можно и написать самому диплом, сдать его, а потом прийди работать по специальности, и понять, что нифига ничего не умеешь...

ЗЫ короче говоря, вы меня не переубедите:) может я не так изьясняюсь, и не правильно формулирую свои доводы, но покупка курсовых/дипломов не означает то, что это будет не специалист (лентяй, халявщик и тд).
ЗЗЫ Покупка курсовых/дипломов - это я имел ввиду (и понимал под этим) покупку переработанного материала, а не "зачет за деньги", взятки всякие и тд, если что... :)

← →
Игорь Шевченко © (2006-04-27 19:11) [46]

antonn © (27.04.06 19:08) [45]

> не так:)

Почему же ? Поступая в ВУЗ, человек вообще-то принимает на себя некоторые обязательства.

← →
Gero © (2006-04-27 19:21) [47]

> [45] antonn © (27.04.06 19:08)

Покупать дипломную работу — это низко и в корне неправильно. Была бы моя воля, я бы тех, кто не может нормально защитится (от корки до корки), сразу бы исключал из ВУЗа. Ибо нефиг. Сейчас образование настолько себя дискредитировало, что наличие вышки не говорит практически ни о чем.

← →
antonn © (2006-04-27 19:23) [48]

Игорь Шевченко © (27.04.06 19:11) [46]
Поступая в ВУЗ, человек вообще-то принимает на себя некоторые обязательства.
и? получая права на вождение ТС, мы обязуемся соблюдать правила и не создавать аварийных ситуаций. Однако, не поверю, что получивший права ниразу не нарушил какое либо правило. И что, отказаться от машины?

← →
Alx2 © (2006-04-27 19:23) [49]

>antonn © (27.04.06 19:08)

Понял мысль. Но не согласен, что такой подход приемлем. Остается ужесточать защиту работы :)

← →
antonn © (2006-04-27 19:25) [50]

Gero © (27.04.06 19:21) [47]
Была бы моя воля, я бы тех, кто не может нормально защитится (от корки до корки), сразу бы исключал из ВУЗа.
я бы тоже... остается все таки понять, как покупка связана со сдачей... я про этот момент пытался говорить.

← →
oldman © (2006-04-27 19:25) [51]

> Gero © (27.04.06 19:21) [47]
> Сейчас образование настолько себя дискредитировало, что
> наличие вышки не говорит практически ни о чем.

источник в студию...
типа МАИ или Бауманка - фуфло полное?
"Не свисти! Арматурка - вон там! Я сам видел, как там арматуру брали!" (СамЗнаешьОткуда ©)

← →
Gero © (2006-04-27 19:33) [52]

> источник в студию

Мои субъективные ощущения, основанные на общение с «молодыми специалистами». Большинство не знает нифига. Ломятся туда все подряд, потому как это сейчас модно, а многим оно вовсе не надо, не их это. Но так как есть возможность платить и не учиться, то все нормально.

← →
Marser © (2006-04-27 19:44) [53]

> Gero ©

Янис, ты меня, конечно, извини, но маловато у тебя опыта, чтобы иметь право высказывать такие радикальные мысли. Ты поступи сначала, а затем отучись хотя бы года два и многое для тебя приобретет немного другой смысл. А сейчас это просто гон вроде наездов на армию, причём, не дедовщину, а воинскую подготовку со стороны тех, кто не служил.

← →
Gero © (2006-04-27 19:49) [54]

> Marser © (27.04.06 19:44)

Высказывать свои мысли я имею право по любому поводу. Если ты с чем-то не согласен, я тебя выслушаю.
А я говорю, что вижу, как всякие экономисты с юристами потом на стройку идут работать или таксистами устраиваться.

← →
Nic © (2006-04-27 20:44) [55]

> Gero © (27.04.06 19:33) [52]
> > источник в студию
>
> Мои субъективные ощущения, основанные на общение с «молодыми
> специалистами». Большинство не знает нифига. Ломятся туда
> все подряд, потому как это сейчас модно, а многим оно вовсе
> не надо, не их это. Но так как есть возможность платить
> и не учиться, то все нормально.

+1!
У меня в потоке похоже один я рад, что у нас такие предметы интересные в программе. Зачем девушкам программирование, БД, ИСы... У них эти области вне их интересов. Парни почти все от армии отсиживаются. Тоска!

← →
MVova © (2006-04-27 21:06) [56]

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; Panel1: TPanel; procedure Button1Click(Sender: TObject); procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure btnFindClick(Sender: TObject); private move: boolean; public { Public declarations } end; var Form1: TForm1; const col: integer = $00FFFFFF; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.Bitmap.Canvas.CopyRect( Form1.Canvas.ClipRect, Form1.Canvas, Image1.Canvas.ClipRect); btnFindClick(nil); end; procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin move := true; end; procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin move := false; end; procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if move then begin Panel1.SetBounds(Panel1.Left + x, Panel1.Top + y, 41, 41); Button1Click(nil); end; end; function IfInBorder(x, y: Integer; canv : TCanvas): boolean; begin Result := (canv.Pixels[x,y] = col) and ( (canv.Pixels[x,y-1] <> col) or (canv.Pixels[x+1,y] <> col) or (canv.Pixels[x,y+1] <> col) or (canv.Pixels[x-1,y+1] <> col) or (canv.Pixels[x+1,y-1] <> col) or (canv.Pixels[x+1,y+1] <> col) or (canv.Pixels[x-1,y-1] <> col) ) end; procedure TForm1.btnFindClick(Sender: TObject); var canv : TCanvas; x, y : integer; begin canv := Image1.Canvas; x := 1; while x < Image1.Width do begin y := 1; while y < Image1.Height do begin if IfInBorder(x, y, canv) then begin canv.Pixels[x-10,y-10] := 0; end; inc(y, 1); end; inc(x, 1); end end; end.

ногами не бить
писано на коленке за 10 мин :)

← →
MVova © (2006-04-27 21:13) [57]

Оптимизировано по скорости :)

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; Panel1: TPanel; procedure Button1Click(Sender: TObject); procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure btnFindClick(Sender: TObject); private move: boolean; public { Public declarations } end; var Form1: TForm1; const col: integer = $00FFFFFF; step: byte = 5; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.Bitmap.Canvas.CopyRect( Form1.Canvas.ClipRect, Form1.Canvas, Image1.Canvas.ClipRect); btnFindClick(nil); end; procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin move := true; end; procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin move := false; end; procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if move then begin Panel1.SetBounds(Panel1.Left + x, Panel1.Top + y, 41, 41); Button1Click(nil); end; end; function IfInBorder(x, y: Integer; canv : TCanvas): boolean; begin Result := (canv.Pixels[x,y] = col) and ( (canv.Pixels[x,y-step] <> col) or (canv.Pixels[x+step,y] <> col) or (canv.Pixels[x,y+step] <> col) or (canv.Pixels[x-step,y+step] <> col) or (canv.Pixels[x+step,y-step] <> col) or (canv.Pixels[x+step,y+step] <> col) or (canv.Pixels[x-step,y-step] <> col) ) end; procedure TForm1.btnFindClick(Sender: TObject); var canv : TCanvas; x, y : integer; begin canv := Image1.Canvas; x := 1; while x < Image1.Width do begin y := 1; while y < Image1.Height do begin if IfInBorder(x, y, canv) then begin canv.Pixels[x-10,y-10] := 0; end; inc(y, step); end; inc(x, step); end end; end.

← →
MVova © (2006-04-27 21:20) [58]

Улутшена перерисовка
Добавленна возможность работы с несколькими панельками

:)

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; Panel1: TPanel; Panel2: TPanel; procedure Button1Click(Sender: TObject); procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure btnFindClick(Sender: TObject); procedure FormCreate(Sender: TObject); private move: boolean; public { Public declarations } end; var Form1: TForm1; const col: integer = $00FFFFFF; step: byte = 5; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.Bitmap.Canvas.CopyRect( Form1.Canvas.ClipRect, Form1.Canvas, Image1.Canvas.ClipRect); btnFindClick(nil); end; procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin move := true; end; procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin move := false; end; procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Panel : TPanel; begin if move then begin Panel := sender as TPanel; Panel.SetBounds(Panel.Left + x, Panel.Top + y, 41, 41); Button1Click(nil); end; Refresh; end; function IfInBorder(x, y: Integer; canv : TCanvas): boolean; begin Result := (canv.Pixels[x,y] = col) and ( (canv.Pixels[x,y-step] <> col) or (canv.Pixels[x+step,y] <> col) or (canv.Pixels[x,y+step] <> col) or (canv.Pixels[x-step,y+step] <> col) or (canv.Pixels[x+step,y-step] <> col) or (canv.Pixels[x+step,y+step] <> col) or (canv.Pixels[x-step,y-step] <> col) ) end; procedure TForm1.btnFindClick(Sender: TObject); var canv : TCanvas; x, y : integer; begin canv := Image1.Canvas; x := 1; while x < Image1.Width do begin y := 1; while y < Image1.Height do begin if IfInBorder(x, y, canv) then begin canv.Pixels[x-10,y-10] := 0; end; inc(y, step); end; inc(x, step); end end; procedure TForm1.FormCreate(Sender: TObject); begin DoubleBuffered := true; end; end.

← →
Sergey Masloff (2006-04-27 21:57) [59]

Gero © (27.04.06 16:04) [35]
>Платников вобще нужно запретить. А за взятки — сажать. Вот тогда будет >действительно высшее образование. Конечно, для этого нужно >преподавателям платить нормальные зарплаты, но это другой вопрос.
Нет, ошибаешься. Запретить надо бесплатников а платников учить на общих основаниях не сдал - в аут. Но это уже обсуждали, повторяться лень.

← →
programania © (2006-04-27 21:58) [60]

Если кроме самолета ничего не движется можно найти разницу
соседних кадров и управлять камерой так чтобы эта
разница была в центре и 2/3 размера

← →
MVova © (2006-04-27 22:26) [61]

С отрисовкой центра:
А 2/3 сам доделай
С определением пиксела IfInBorder надо подправить
А также надо сделать процедуру управления камерой

А вот "экране самолёт занимал 2\3 экрана." это надо зумом управлять?
Если да то тоже не беда

:)

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Contnrs; type TForm1 = class(TForm) Image1: TImage; Panel1: TPanel; Panel2: TPanel; Panel3: TPanel; procedure Button1Click(Sender: TObject); procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure btnFindClick(Sender: TObject); procedure FormCreate(Sender: TObject); private move: boolean; procedure PaintX(x, y : Integer; canv : TCanvas); public { Public declarations } end; var Form1: TForm1; AXMax : Integer; AXMin : Integer; AYMax : Integer; AYMin : Integer; const col: integer = $00FFFFFF; step: byte = 10; implementation uses Math; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.Bitmap.Canvas.CopyRect( Form1.Canvas.ClipRect, Form1.Canvas, Image1.Canvas.ClipRect); btnFindClick(nil); end; procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin move := true; end; procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin move := false; end; procedure TForm1.PaintX(x, y : Integer; canv : TCanvas); const n = 5; begin canv.MoveTo(x, y); canv.LineTo(x + n, y + n); canv.MoveTo(x, y); canv.LineTo(x - n, y + n); canv.MoveTo(x, y); canv.LineTo(x - n, y - n); canv.MoveTo(x, y); canv.LineTo(x + n, y - n); Caption := IntToStr(x) + " : " + IntToStr(y); end; procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Panel : TPanel; begin if move then begin Panel := sender as TPanel; Panel.SetBounds(Panel.Left + x, Panel.Top + y, 41, 41); Button1Click(nil); PaintX((AXMax + AXMin) div 2, (AYMax + AYMin) div 2, Image1.Canvas); AXMax := 0; AXMin := 600; AYMax := 0; AYMin := 600; end; Refresh; end; function IfInBorder(x, y: Integer; canv : TCanvas): boolean; begin Result := (canv.Pixels[x,y] = col) and ( (canv.Pixels[x,y-step] <> col) or (canv.Pixels[x+step,y] <> col) or (canv.Pixels[x,y+step] <> col) or (canv.Pixels[x-step,y+step] <> col) or (canv.Pixels[x+step,y-step] <> col) or (canv.Pixels[x+step,y+step] <> col) or (canv.Pixels[x-step,y-step] <> col) ); if Result then begin AXMax := Max(AXMax, x); AXMin := Min(AXMin, x); AYMax := Max(AYMax, y); AYMin := Min(AYMin, y); end; end; procedure TForm1.btnFindClick(Sender: TObject); var canv : TCanvas; x, y : integer; begin canv := Image1.Canvas; x := 1; while x < Image1.Width do begin y := 1; while y < Image1.Height do begin if IfInBorder(x, y, canv) then begin canv.Pixels[x-10,y-10] := 0; end; inc(y, step); end; inc(x, step); end end; procedure TForm1.FormCreate(Sender: TObject); begin DoubleBuffered := true; end; end.

← →
Игорь Шевченко © (2006-04-27 22:34) [62]

> источник в студию...

Форумы сайта "Мастера Delphi", дружище...далеко ходить не надо.

← →
GEN++ © (2006-04-27 22:50) [63]

>нас есть камера узкого угла обзора, есть самолёт-задача: нужно, чтобы >стойка, на которой находится камера сопровождала движение самолёта и >на экране самолёт занимал 2\3 экрана. Кто может помочь, готов оплатить >работу

Лет 20 назад на сборах видел фильм про Шведскую систему
управления корабельной зенитной артиллерией:
оператор на мониторе наводил перекрестье на самолет,
(изображение шло с видеокамеры) нажимал кнопку и
далее процессор обеспечивал автосопровождение поворачивая
видеокамеру за самолетом.
Самолет делал фигуры высшего пилотажа но перекрестье
на нем так и сидело. За камерой синхронно врашаллось
с десяток скрострельных зенитных пушек. Показывали
и боевую стрельбу по мишеням. Впечетляюще.
Так вот стоимость проекта была порядка 100 млн $
И делали его видимо несколько контор.

А тут предлагают за 5000$ ???????

← →
Gero © (2006-04-27 22:58) [64]

> Sergey Masloff (27.04.06 21:57)

> Запретить надо бесплатников а платников учить на общих основаниях
> не сдал - в аут

Почему так? В двух словах хотя бы.
Если у человека не за что платить за учебу, но он хочет учиться, у него нет шансов?

← →
Alx2 © (2006-04-27 23:12) [65]

>Gero © (27.04.06 22:58) [64]

>Если у человека не на что платить за учебу, но он хочет учиться,
>у него нет шансов?

Вопросом на вопрос: а разве деньги - не главное в жизни каждого? И разве учатся не ради денег? Пошлая поговорка "раз ты такой умный, почему не богатый?" не стала модной?
Такой человек может взять кредит на образование. И когда с помощью образования начнет приближаться к основной цели своего существования - к обладанию деньгами - он возместит и кредит и проценты, помогая тем самым приблизиться к заветной цели своим кредиторам.

PS
Ирония (горькая).

← →
Думкин © (2006-04-28 05:47) [66]

> Nic © (27.04.06 20:44) [55]

Извини, но это во многом из-за того что и ВУЗ у тебя - "массовый".

← →
tsa (2006-04-28 07:54) [67]

> [63] GEN++ © (27.04.06 22:50)

Железа на пушки больше, чем в этом случае :)

← →
antonn © (2006-04-28 09:18) [68]

MVova © (27.04.06 21:13) [57]
Оптимизировано по скорости :)
>Result := > (canv.Pixels[x,y] = col) and
хи-хи-хи...

> [66] Думкин © (28.04.06 05:47)
> > Nic © (27.04.06 20:44) [55]
>
> Извини, но это во многом из-за того что и ВУЗ у тебя - "массовый".

А в чем разница? Разве в КПИ по пять человек принимают?

> [68] antonn © (28.04.06 09:18)
> MVova © (27.04.06 21:13) [57]
> Оптимизировано по скорости :)
>
> >Result :=
> > (canv.Pixels[x,y] = col) and
>
> хи-хи-хи...

Смотрите глубже

step: byte = 5;

end; inc(y, step); end; inc(x, step); end

а после этого "хи-хи-хи..."

> [70] Думкин © (28.04.06 10:26)
> > Marser © (28.04.06 10:15) [69]
>
> Я ждал вопрос. Но ответ чуть позже разверну. Можно?

О.к.

> [73] Думкин © (28.04.06 10:37)
> > Marser © (28.04.06 10:30) [72]
>
> Но ты вначале скажи - КПИ - это с чем едят? Извиняюсь.

Начнём издалека. Ты какие киевские ВУЗы знаешь?

> Marser © (28.04.06 10:55) [74]

В детстве я читал квант. поэтом - .... Но ваш - в недавнем озвучивании - не в счет. дальше.

Удалено модератором

MVova © (28.04.06 10:28) [71]
и все таки хи-хи-хи, потому как "оптимизировано по скорости" и canvas.Pixels[x,y] в циклах - вещи несовместимые...

veter (26.04.06 10:49)
вообще, каким образом осуществляется управление камерой? снимки "на месте" дать можете?

Диплом Найти похожие ветки