Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1215
от 26.10.2008, 02:00

Администратор:Калашников О.А.
В рассылке:Подписчиков: 398, Экспертов: 42
В номере:Вопросов: 3, Ответов: 4

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 147879: Добрый день. Вот очень надо написать програму по переводу из Десятичной СС в восьмеричною и обратно. Если кто может помогите - очень надо. Заранее спасибо....
Вопрос № 147901: привет. Помогите мне написать программу на делфі о ферзях: нужно разместить n ферзей на доске n*n, так чтобы они не били друг друга, используя при этом лишь индексы (нужно каким-то образом проіндексировать ферзи) я не знаю как это сделать(( я...
Вопрос № 147915: Уважаемые эксперты. Дайте пожалуйста ссылку, где можно почитать про WebBrowser, на понятном языке. Желательно с примерами. Спасибо. ...

Вопрос № 147.879
Добрый день. Вот очень надо написать програму по переводу из Десятичной СС в восьмеричною и обратно.
Если кто может помогите - очень надо. Заранее спасибо.
Отправлен: 20.10.2008, 17:04
Вопрос задал: Гречко Михаил Витальевич (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Командин Константин Евгениевич
Здравствуйте, Гречко Михаил Витальевич!
Могу предложить юнит взятый с http://www.delphisources.ru/pages/faq/base/translation_between_systems_of_calculus.html
Обрати внимания на функции:
function DEC2OCT(DEC: LONGINT): string;
function OCT2DEC(OCT: string): LONGINT;

Приложение:

Ответ отправил: Командин Константин Евгениевич (статус: 4-ый класс)
Ответ отправлен: 21.10.2008, 10:11
Оценка за ответ: 5

Отвечает: Coupler
Здравствуйте, Гречко Михаил Витальевич!
Предлагаю классический способ перевода - деление "уголком" (число в восьмеричной сс берется из Edit1):
Код:
procedure TForm1.Button1Click(Sender: TObject);
var n, n8: double;
dec, dec8: integer;
dr, dr8: double;
ch, ost: integer;
i, lendr: integer;
begin
if length(edit1.Text) > 0 then
n := strtofloat(edit1.Text);
dec := trunc(n);
dr := frac(n);
ch := dec;
dec8 := 0;
i := 1;
while (ch >= 8) do
begin
ost := ch mod 8;
ch := ch div 8;
dec8 := dec8 + ost * i;
i := i * 10;
end;
dec8 := dec8 + ch * i; //целая часть получена
lendr := length(edit1.Text) - pos(',', edit1.Text);
i : = lendr;
dr8 := 0;
while (i > 0) do
begin
dr := dr * 8;
dr8 := dr8 * 10 + trunc(dr);
dr := frac(dr);
i := i - 1;
end;
for i := 1 to lendr do
dr8 := dr8 / 10; //дробная часть получена
n8 := dec8 + dr8;
showmessage(floattostr(n8));
end;

Приложение:

Прикреплённый файл: Загрузить >>
Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.

Ответ отправил: Coupler (статус: Специалист)
Ответ отправлен: 22.10.2008, 05:13


Вопрос № 147.901
привет. Помогите мне написать программу на делфі о ферзях: нужно разместить n ферзей на доске n*n, так чтобы они не били друг друга, используя при этом лишь индексы
(нужно каким-то образом проіндексировать ферзи) я не знаю как это сделать((
я сначала думала сделать это используя структуры...но программно это у меня не получається
если можно вышлите мне текст программы, в крайнем случае хотя бы совет как это организовать.
Я буду вам очень благодарная, с уважением Иванка.
Отправлен: 20.10.2008, 20:48
Вопрос задала: Иванка (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 6)

Отвечает: Виктор Пырлик
Здравствуйте, Иванка!

Например так:
Код:

const n = 64;
procedure TForm1.Button1Click(Sender: TObject);
var btn:array [0..n] of TSpeedButton; //массив на 64 элемента (кнопки)
y,x,i,j:integer;
begin
y := 0;
for i:= 0 to 7 do
begin
for j:= 0 to 7 do
begin
inc(y);
btn[i] := TSpeedButton.Create(Panel1);
btn[i].Parent := Panel1;
btn[i].Width := 43;
btn[i].Height:= 43;
btn[i].Left := btn[i].Width*j+9; // сдвигаем что бы на поле все были ровно
btn[i].Top := btn[i].Height *i +9;
btn[i].Caption := IntToStr(y); // произвольное название
btn[i].Tag := y;
end ;
end;
end;

создаём массив кнопок, (на форму положите панельку - TPanel и в низу кнопку). Во первых, они всё индексированы, т.к. это массив, во вторых, у них заполнено свойство Tag, которое то же можно проверять.. А уж сам алгоритм - дело Ваше.


---------
не получается там - где не пробуют
Ответ отправил: Виктор Пырлик (статус: Профессионал)
Россия, Екатеринбург
Тел.: 89043822027
ICQ: 490191733
----
Ответ отправлен: 20.10.2008, 21:20


Вопрос № 147.915
Уважаемые эксперты.
Дайте пожалуйста ссылку, где можно почитать про WebBrowser, на понятном языке. Желательно с примерами.
Спасибо.
Отправлен: 20.10.2008, 21:37
Вопрос задал: Панасюк А.А. (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шичко Игорь
Здравствуйте, Панасюк А.А.!
Статья общая:
http://www.tdoc.ru/c/delphi-sources/ui/kak-sdelat-webbrowser-sredstvami-delphi-5.html
Разные процедуры (Советы по Delphi - WebBrowser):
http://creative.foto-in.ru/load/7-1-0-6
И ещё пара полезных ссылок:
http://www.delphiexpert.ru/view_lesson.php?id=28
http://ogoncharenko.narod.ru/DelphiMain/DelphiFaq/66.htm
Ответ отправил: Шичко Игорь (статус: Студент)
Ответ отправлен: 21.10.2008, 09:05
Оценка за ответ: 5


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале

∙ Версия системы: 5.7 от 25.10.2008

Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru
RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru

В избранное