Релиб / Программирование / Delphi

пересечение отрезка с треуголником

korolvit — Sat, 06 Feb 2010 17:35:16 GMT

Помогите с алгоритмом поиска точки пересечения отрезка и треугольника на плоскости.
Пробовал использовать этот алгоритм [url]http://algolist.ru/maths/geom/intersect/linefacet3d.php[/url] , но чет не получается, точка пресечения ищется правильно, но когда начинаю перемещать треугольник, она пересчитывается неправильно.
А в этой теме [url]http://faqs.org.ru/forum/viewtopic.p...40e8b89f896878 [/url]в самом низу есть готовая функция, но я как то не могу ей воспользоваться. Помогите кто-нибудь. Заранее благодарен

Где в интернете найти учебник Delphi?

HTTP — Thu, 01 Jul 2004 23:00:00 GMT

Где в интернете найти учебник Delphi?

посодействуйте в написании кода, Задачи

medic357 — Wed, 16 Dec 2009 18:03:52 GMT

Всем привет.

посодействуйте в написании кода на Delphi

1. Присвоить целой переменной h третью от конца цифру в записи положительного целого числа k.

2. Числа Фибоначчи (fn) определяются формулами
f0=f1=1; fn=fn-1+fn-2 при n=2, 3, . . .
Вычислить S – сумму всех чисел Фибоначчи, которые не превосходят 1000.

Код

long sum (int a1,int a2)
{
if(a1+a2<1000)
return a2+sum(a2,a1+a2);
else
return a2;
}

...
printf("Sum=%l",2+sum(1,2));

3. Из-за нелётной погоды необходимо посадить находящиеся в воздухе (над аэропортом) самолёты разных классов на несколько запасных аэродромов. Каждый из запасных аэродромов в состоянии принять k[i] самолётов класса не выше p[i], где i – номер аэродрома. Посадить самолеты при условии, что для каждого самолета известно расстояние, которое он может пролететь на имеющемся горючем.

4. Создать компонент – регулятор громкости звука на компьютере.

Код

INT GetMasterVolumeControlID()
{
// get dwLineID
MIXERLINE mxl;
mxl.cbStruct = sizeof(MIXERLINE);
mxl.dwComponentType = MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
if (::mixerGetLineInfo((HMIXEROBJ)ghmx, &mxl,
MIXER_OBJECTF_HMIXER | MIXER_GETLINEINFOF_COMPONENTTYPE)
!= MMSYSERR_NOERROR)
return 34;
// get dwControlID
MIXERCONTROL mxc;
MIXERLINECONTROLS mxlc;
mxlc.cbStruct = sizeof(MIXERLINECONTROLS);
mxlc.dwLineID = mxl.dwLineID;
mxlc.dwControlType = MIXERCONTROL_CONTROLTYPE_VOLUME;
mxlc.cControls = 1;
mxlc.cbmxctrl = sizeof(MIXERCONTROL);
mxlc.pamxctrl = &mxc;
if (::mixerGetLineControls((HMIXEROBJ)ghmx, &mxlc,
MIXER_OBJECTF_HMIXER | MIXER_GETLINECONTROLSF_ONEBYTYPE)
!= MMSYSERR_NOERROR)
return 34;
return mxc.dwControlID;
}

BOOL SetMasterVolume(DWORD dwVolume)
{
MIXERCONTROLDETAILS mxcd;
MIXERCONTROLDETAILS_UNSIGNED mxcd_u;
mxcd.cbStruct = sizeof(mxcd);
mxcd.dwControlID = MasterVolumeControlID;
mxcd.cChannels = 1;
mxcd.cMultipleItems = 0;
mxcd.cbDetails = 4;
mxcd.paDetails = &mxcd_u;
mmr = mixerGetControlDetails((HMIXEROBJ)ghmx, &mxcd, 0L);
if (MMSYSERR_NOERROR != mmr) return FALSE;
mxcd_u.dwValue = dwVolume;
mmr = mixerSetControlDetails((HMIXEROBJ)ghmx, &mxcd, 0L);
if (MMSYSERR_NOERROR != mmr) return FALSE;
return TRUE;
}

не знаю правильно ли написаны коды для 2 и 4 задачи???

Заранее всем благодарен

Нужно написать небольшую программу за небесплатно!

Unknown_Userr — Wed, 16 Dec 2009 16:17:30 GMT

Здравствуйте! Формат файла не очень сложный 2 таблички по 4 колонки.

Детали по аське и мылу, далее дам телефон для связи!

ICQ : 428-586-112

e-mail : metall-i-fantasy@mail.ru

С уважением ко всем!

Помогите перевести с QBasic на Pascal

calypso.id — Wed, 25 Nov 2009 17:21:09 GMT

Всем привет я хочу научиться работать на паскале пожалуйста помогите мне перевести две программы с QBasic на Pascal
буду очень признателен:)
Программа №1

10 cls
20 P=3.14
30 FOR x=0 to 4*P STEP P/6
40 y=x+1+sin(x-1)
50 PRINT x,y
60 NEXT x
70 PRINT "программа завершена"

Программа №2

10 CLS
20 INPUT x,y,l
30 sh = ((x*x)*SQRT(y)-y*(cos(x/2)*cos(x/2)))
40 z=SQRT(SQRT(2*sqrt(ABS(1+l^Ln(x)))))
50 F=sh/z
60 PRINT F
Заранее спс)

Проблема при работе с ADOX

eugira — Mon, 29 Sep 2003 17:33:00 GMT

Проблема при работе с ADOX под Delphi.
(в проекте импортирован MS ADO Ext 2.8 for DLL and Securite v.2.8 и создан unit ADOX_TLB)
cat: OleVariant; cn: TADOConnection;
cnc:='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\biblio.mdb; //под Access
или
cnc:= 'Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=' +lgn +';Password='+psw+ ';Data Source=' + srv ; //под Oracle
cn.ConnectionString:=cnc; cn.Open;
cat := CreateOleObject('ADOX.Catalog');
cat.ActiveConnection := cnc; //на этом операторе – валится с ошибкой
«Specified connection string is too long..»
В то же время при работе под Visual Basic проблем нет:
Dim cat As ADOX.Catalog, cn As ADODB.Connection
Set cat = New ADOX.Catalog
cat.ActiveConnection = c(ii):
- все работает.
Где же хваленая независимость ADO от среды разработки?
При более естественной попытке в Дельфи:
cat As New ADOX.Catalog
оказывается что у cat нет свойства ConnectionString (вроде бы свойство ADOX не должно зависеть от среды разработки).

Полсказка при наведении на кнопку в Delphi

TaYgA — Mon, 26 Oct 2009 13:34:21 GMT

Всем доброго времени суток, пытаюсь сделать, чтоб при наведении на кнопку появлялась подсказка Memo.
[quote]
public
{ Public declarations }
procedure DoShowHint(Sender: TObject);
end;
.......................

procedure TOrganizer.DoShowHint(Sender: TObject);
begin
mPromt.Lines.Add (Application.Hint);
end;

procedure TOrganizer.OnCreate(Sender: TObject);
begin
Application.OnHint:=DoShowHint;
button1.Hint:='Подсказка 1';
button2.Hint:='Подсказка 2';
button3.Hint:='Подсказка 3';
button4.Hint:='Подсказка 4';
Organizer.ShowHint:=true;
end;
[/quote]

1)Проблема заключается в том, что если подсказка не влезает в одну строчку Memo, то происходит обрезание текста... Скажите как сделать перенос на следущую строчку?!!??
2) Каким образом размещается подсказка в StatusBar!??!

работа с StrinGrid

TaYgA — Sun, 18 Oct 2009 13:32:09 GMT

Всем доброго времени суток... Хочу написать програмку что-то типо "Учёта личных финансов".... Добавление, удаление, пронумеровку строк столбцов, сохранение, загрузка сделал...
1) Как сделать чтоб складывалась каждая строчка и записывалась в последнию ячейку!??!
Код:
procedure TFinance.btCountClick(Sender: TObject);
var
i,sum: Integer;
begin
for i:=1 to sgFinans.RowCount do
sum:=StrToInt(sgFinans.Cells[1, i])+StrToInt(sgFinans.Cells[1,i+1]);
sgFinans.Cells[1,6]:= IntToStr(sum)+'руб.';
В этом случаи проект работает, но при нажатии на кнопку вылетает...
2) Как можно сделать, чтоб значение определённой ячейки показывалось в Edit?!?!
3) Если в ячейке написана ссылка на сайт пользователем программы, то как её превратить в гиперсылку (т.е. при нажатии на ячейку с ссылкой Delphi переходила на этот сайт)?!?!
Код:
if StringGrid1.Selection.Left = 10 then
if StringGrid1.Cells[10, StringGrid1.Selection.Top] <> '' then
WinExec(PChar(StringGrid1.Cells[10, StringGrid1.Selection.Top]), SW_NORMAL);
По идее это должно работать, но у меня не открывает страницу...

Выбор 2-сторонней печати перед командой PrintOut WordApplicayion

shara86 — Fri, 04 Sep 2009 20:42:22 GMT

Приветствую всех.

Писал в другие форумы, но ничего толкового не получил в ответ.

Подскажите. Отправляю на печать вордовый документ с помощью команды PrintOut компонента WordApplication. Для выбора принтера и параметра печати использую PrintDialog.
Проблема в том, что не могу вытащить параметр 2-сторонней печати. Параметры, поля которых размещены на самом PrintDialog-е, взять получается (номера страниц, кол-во копий). Но признак 2-сторнней печати, который задаётся после выбора нужного принтера и нажатия кнопки "Свойства", вытащить не удалось.
Смотрел в свойствах класса TPrinter и в TPrinterSetupDialog. Там есть некоторые параметры (ориентация бумаги, например), но 2-сторнней печати там не видать.

Как бы её достать, чтобы потом задать при вызове функции PrintOut?

Уточняю: с PrintOut-ом у меня вопросов нет. Вопрос, как понять, что юзер выбрал двустороннюю печать перед её запуском.

Заранее спасибо.

Сглаживание изображения (tbitmap)

Titanium — Sun, 13 Mar 2005 11:10:00 GMT

Собственно сабж. Есть изображение ~ 400 300 оно умешьается StretchBlt до 150 на 150. Края получаются "рванные" так что хотелось бы его немного сгладить.