Вопрос № 147879: Добрый день. Вот очень надо написать програму по переводу из Десятичной СС в восьмеричною и обратно. Если кто может помогите - очень надо. Заранее спасибо....Вопрос № 147901: привет. Помогите мне написать программу на делфі о ферзях: нужно разместить n ферзей на доске n*n, так чтобы они не били друг друга, используя при этом лишь индексы (нужно каким-то образом проіндексировать ферзи) я не знаю как это сделать(( я...Вопрос № 147915: Уважаемые эксперты. Дайте пожалуйста ссылку, где можно почитать про WebBrowser, на понятном языке. Желательно с примерами. Спасибо. ...
Вопрос № 147.879
Добрый день. Вот очень надо написать програму по переводу из Десятичной СС в восьмеричною и обратно. Если кто может помогите - очень надо. Заранее спасибо.
Отвечает: Командин Константин Евгениевич
Здравствуйте, Гречко Михаил Витальевич! Могу предложить юнит взятый с 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, на понятном языке. Желательно с примерами. Спасибо.
Отвечает: Шичко Игорь
Здравствуйте, Панасюк А.А.! Статья общая: 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