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

Выпуск № 649
от 13.11.2006, 14:35

Вопрос № 61.619

Здраствуйте уважаемые эксперты. Помогите пожалуйста составить программку: Создать приложение которое будет вычислять следущее выражение: (A+B)*(B-C) , где A,B,C- вещественные числа, а результат записывается в переменную D. Заранее спасибо.

Отправлен: 07.11.2006, 14:29 Вопрос задал: Никитин Андрей Валерьевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Warrior Здравствуйте, Никитин Андрей Валерьевич! Здравствуйте, Никитин Андрей Валерьевич! var a, b, c, d: real; begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); c:=StrToFloat(Edit3.Text); d:=(a+b)*(b-c); Edit3.Text:=FloatToStr(d); end;

Ответ отправил: Warrior (статус: 3-ий класс) Ответ отправлен: 07.11.2006, 14:39

Отвечает: PaVeL_Ekt Здравствуйте, Никитин Андрей Валерьевич! Вот рабочий пример, в качестве делителя, запятая !!! Приложение: Var a, b, c, d: Double; begin a:=strtofloat(edit1.text); b:=strtofloat(edit2.text); c:=strtofloat(edit3.text); d:=(a+b)*(b-c); showmessage(floattostr(d)); --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 3-ий класс) Ответ отправлен: 07.11.2006, 15:35

Вопрос № 61.621

Есть Chart, тип графика стоит Бар. for i:=1 to 36 do Series1.Add(0, IntToStr(i), clRed); Есть числа от 1 до 36 и заполнил я их нулевыми значениями на начало работы программы. Дальше мне нужно в Edit вводить числа от 1 до 36 и по нажатию на Button Бар должен на 1 единицу на соответствующем числе подниматься.... как сделать добавление до текущего значения на Баре... Add не подходит, т.к. он добавляет отдельный Бар, а мне нужно в конкретном баре добавить 1... вроде объяснил...

Отправлен: 07.11.2006, 14:54 Вопрос задал: Warrior (статус: 3-ий класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: PaVeL_Ekt Здравствуйте, Warrior! Вот держи !!! проверил работает, только не забывай, что индекс столбцов с 0 начинается !!! Приложение: procedure TForm1.BitBtn2Click(Sender: TObject); begin chart1.Series[0].YValues[strtoint(edit.Text)-1]:=chart1.Series[0].YValues[strtoint(edit.Text)-1]+1; chart1.Repaint; end; --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 3-ий класс) Ответ отправлен: 07.11.2006, 15:40 Оценка за ответ: 5

Вопрос № 61.685

Здраствуйте, скажите пожал где можно скачать Delpfi?

Отправлен: 07.11.2006, 20:22 Вопрос задал: Никитин Андрей Валерьевич (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Н.В. Здравствуйте, Никитин Андрей Валерьевич! Если седьмую, то Trial-версия: ftp://ftpd.borland.com/download/delphi/d7/Delphi7TrialInstall.exe (примерно 170 МВ) Полную, скорее всего, нигде не скачаете. Удачи!

Ответ отправил: Н.В. (статус: 9-ый класс) Ответ отправлен: 07.11.2006, 20:28 Оценка за ответ: 5

Отвечает: sir henry Здравствуйте, Никитин Андрей Валерьевич! Рабочую версию скачать нельзя, т.к. продается она за деньги и бесплатно никогда не распространялась. Все что Вам будут предлагать в интернете - это прямое воровство, нарушение законодательства. Сейчас фирма Борланд пошла на расщепление своего програмного продукта, т.е. продается отдельно Delphi для Win32, Delphi для .NET, отдельно C# и отдельно C++, которые выпускаются под маркой Turbo Professional. Стоимость каждого програмного продукта 399 долларов. По сравнению с Borland Studio 2006 Architect (3460 долларов) это явный прогресс, согласитесь. :) Кроме того те же самые продукты (под маркой Turbo Explorer), но в несколько урезанном виде, для домашнего так сказать применения, можно скачать бесплатно. Правда там нельзя добавлять дополнительные компоненты. Чтобы их скачать, надо зайти на сайт http://www.borland.com и зарегестрироваться. Повторяю, это можно сделать совершенно бесплатно. И если скажем Delphi для Win32 Вам понравился, то можно будет приобрести лицензию Profesional версии. Кроме того есть еще и альтернативные способы программировать на Object Pascal'e: 1. Проект Lazarus. Это визуальная оболочка для FreePascal, такая же как IDE Delphi. Продукт еще сырой, но все стандартные компоненты там присутствуют - кнопки, поля ввода, мемо, таймер и.д. Есть несколько компонентов для работы с базами данных, но более-менее доделан только для работы с InterBaseFireBird. Опять же, как знакомство с программированием на Паскале этот продукт очень хорош. Кроме того, если Вы любите ковыряться в компонентах, доводить их до ума, то Lazarus тоже для Вас. :) Он бесплатен и по объему скачки вполне доступен (7 МБ, если скачивать его в исходниках, а потом самому компилировать, плюс 27 МБ FreePascal с полным комплектом дополнительных модулей, их там столько, что можно потратить пол жизни на изучение). http://www.ru.freepascal.org http://lazarus.freepascal.org 2. WinAPIx. Тоже графический интерфейс для визуального программирования, но несколько другого плана. Он позволяет на основе созданного Вами интерфейса из кнопок, окошек и т.п. сгенерировать код Паскаля на основе чистого WinAPI. Далее, его можно скомпилировать как с помощью Delphi, так и с помощью FreePascal. Последнее, с точки зрения законодательства, предпочтительнее. :) Особенно радует то, что код WinAPI хоть и получается довольно громоздким, но программа после компиляции по размеру в десятки раз меньше аналогичной, созданной с помощью VCL в Delphi. http://www.piddlesoft.narod.ru/prj/apix/index.html

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 08.11.2006, 04:00 Оценка за ответ: 5

Отвечает: PaVeL_Ekt Здравствуйте, Никитин Андрей Валерьевич! Нигде, да и дешевле диск с Delphi купить чем качать из сети. --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 3-ий класс) Ответ отправлен: 08.11.2006, 07:51

Вопрос № 61.689

Здраствуйте Уважаемые эксперты, у меня простой вопрос: как можно посчитать сколько разных значений есть в массиве т.е. например если a[1]=a, a[2]=b, a[3]=c, a[4]=a то в массиве 3 разные значения: a,b и c. Подскажите как написать алгоритм который считалбы сколько разных значений есть в массиве? Заранее Спасибо.

Отправлен: 07.11.2006, 20:39 Вопрос задал: Станислав (статус: 1-ый класс) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Monah Здравствуйте, Станислав! Заведите второй массив той же размерности. И перебирая первый массив по элементно проверяйте, есть ли такие элементы в первом массиве, если нет - добавляем новый элемент в массив. Если заранее известны граници диапазона значений - можно поступить проще. Перебираете Вашь миссив и в элемент mas2[mas1[i]] заносите 1 или увеличиваете на 1, если есть желание узнать сколько каких элементов. Потом перебираете массив 2 и подсчитываете количество не нулевых элементов. --------- festina lente

Ответ отправил: Monah (статус: 8-ой класс) Ответ отправлен: 07.11.2006, 20:50

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Станислав! Эту задачу я решал и даже решил. Код в приложении. http://acm.mipt.ru/judge/problems.pl?problem=002 Можете взять этот код за основу, только внимательно посмотрите граничные условия для задачи и сравните их с вашими. Приложение: program Project002; {$APPTYPE CONSOLE} var x,y: array[0..31250] of LongWord; // a,b: array[1..1000] of LongInt; z: LongInt; i,j: Integer; Empty: boolean; BEGIN for i := 0 to 31250 do begin x[i] := 0; y[i] := 0; end; Repeat Read(z); if (z > 0) then x[z shr 5] := x[z shr 5] or (1 shl (z and 31)); Until (z = -1); Repeat Read(z); if (z > 0) then y[z shr 5] := y[z shr 5] or (1 shl (z and 31)); Until (z = -1); Empty := True; for i := 0 to 31250 do begin x[i] := x[i] and y[i]; if (x[i] <> 0) then begin for j := 0 to 31 do if (x[i] and (1 shl j)) <> 0 then begin Write(i shl 5 + j,' '); Empty := False; end; end; end; if Empty then Write('empty'); END. --------- Не узнаешь - не попробуешь.

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Практикант) Ответ отправлен: 07.11.2006, 23:06

Отвечает: Coupler Здравствуйте, Станислав! Посмотрите мой ответ на вопрос №55356 http://rusfaq.ru/info/question/55356

Ответ отправил: Coupler (статус: Студент) Ответ отправлен: 08.11.2006, 04:48

Отвечает: PaVeL_Ekt Здравствуйте, Станислав! Примерно вот так, пример рабочий, проверил !!! главное не забывать корень квадратный вычислять в конце, для верности подсчета Приложение: procedure TForm1.BitBtn1Click(Sender: TObject); var num, i, j, x, Exis:integer; b: array of array of string; s:string; begin num:=0; for i:=1 to length(a) do for j:=length(a) downto 1 do if a[i]=a[j] then begin exis:=-1; for x:=0 to length(b)-1 do if b[x,1]=a[j] then begin exis:=x; break; end; if exis>-1 then b[exis,0]:=inttostr(strtoint(b[exis,0])+1) else begin num:=num+1; setlength(b,num,2); b[num-1,0]:='1'; b[num-1,1]:=a[j]; end; end; s:=''; for i:=0 to length(b)-1 do s:=s+b[i,1]+'-'+floattostr(sqrt(strtoint(b[i,0])))+' '; showmessage(s); --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 3-ий класс) Ответ отправлен: 08.11.2006, 08:28

Вопрос № 61.713

Как сделать так чтобы после щалчка по кнопке фокус с неё переводился на форму... И почему в этом случае не работает Form1.SetFocus... Или это что-то другое? Суть в том чтобы после щелчка кнопка не воспринимала нажатий с клавиатуры и т.п. До очередного щелчка по ней...

Отправлен: 07.11.2006, 23:03 Вопрос задал: Spiteful (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: sir henry Здравствуйте, Spiteful! Фокус на саму форму перенести нельзя. Его можно перенести только на какой-либо другой элемент формы.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 08.11.2006, 04:07 Оценка за ответ: 5

Вопрос № 61.714

Здравствуйте, Как можно перевернуть изображение на 90 градусов, находящееся в Image ? Спасибо!

Отправлен: 07.11.2006, 23:07 Вопрос задал: Сергей Николаевич (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: PaVeL_Ekt Здравствуйте, Сергей Николаевич! Пользуйтесь на здоровье !!! изменяя координаты pixel в bit2 Вы сделаете поворот в нужную сторону Приложение: procedure TForm1.Button1Click(Sender: TObject); var bit1, bit2: tbitmap; i, j: integer; begin bit1:=Tbitmap.Create; bit1.Assign(image1.Picture.Graphic); bit2:=Tbitmap.Create; bit2.Width:=bit1.Height; bit2.Height:=bit1.Width; canvas.Draw(10,10,bit1); for i:=1 to bit1.Width do for j:=Bit1.Height downto 1 do bit2.Canvas.Pixels[bit2.Width-j,i]:=bit1.Canvas.Pixels[i,j]; canvas.Draw(100,100,bit2); end; --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 3-ий класс) Ответ отправлен: 08.11.2006, 09:37

Вопрос № 61.725

Если бы меня попросили назвать лучшую книгу для изучения foxpro2, я не задумываясь сказал бы: Попов А.А. "Создание приложений для FoxPro 2.5/2.6 в DOS и Windows", а есть ли такая книга по Delphi? если нету, чего-то обобщающего, мож отдельно delphi+субд есть?

Отправлен: 08.11.2006, 01:47 Вопрос задал: санёк (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: sir henry Здравствуйте, санёк! По Delphi сказать труднее, потому что книг очень много. В одной лучше одно, а в другой лучше другое. Я начинал изучать Delphi по книге Фаронова (отдельно по Delphi вообще и отдельно по работе с базами данных). Изложено все сжато, без растекания мыслею по древу, как это практикуется у большинства зарубежных авторов. Свойства компонентов и наиболее употребительных функцийпроцедур сведены в таблицы, что, я считаю, тоже довольно удобно. Однако мало примеров. Из зарубежных авторов можно порекомендовать Марко Канту, тоже хорошо описано и решение каждой задачи проиллюстрировано понятным примером и Ксавье Пачеро - Стив Тейксейра, у которых очень подробные примеры и написано тоже довольно неплохо.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 08.11.2006, 04:17

Отвечает: Олекса aka SoW Здравствуйте, санёк! Если для начинающего, то на мой взгляд, самой лучшей книгой есть "Библия Delphi" Фленова. --------- Вiк живи - вiк учись.

Ответ отправил: Олекса aka SoW (статус: 2-ой класс) Ответ отправлен: 08.11.2006, 07:17

Отвечает: PaVeL_Ekt Здравствуйте, санёк! Программирование баз данных в Delphi 6, В. Фараонов; Работа с базами данных в Delphi, В. Гофман, А. Хоменко, изд. bhv --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 3-ий класс) Ответ отправлен: 08.11.2006, 07:48

Вопрос № 61.766

Здравствуйте уважаемые эксперты. Как сделать чтобы компонент Chart показывал график по заданной функции. например у меня функция: y = 50.4032 * x - 25

Отправлен: 08.11.2006, 10:49 Вопрос задал: Пепеляев Александр Павлович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PaVeL_Ekt Здравствуйте, Пепеляев Александр Павлович! Ловите пример, проверено !!! тип чарта который я использовал LINE Приложение: procedure TForm1.Button1Click(Sender: TObject); var y: double; x, i: integer; begin i:=strtoint(edit1.Text); for x:=0 to i do begin y:=50.4032*x-25; chart1.Series[0].AddXY(x,y,) end; end; --------- Да поможет Вам F1, да сохранит Вас F2, во имя CTRL, ALT и святого DEL

Ответ отправил: PaVeL_Ekt (статус: 3-ий класс) Ответ отправлен: 08.11.2006, 11:58 Оценка за ответ: 5 Комментарий оценки: спасибо

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.37 от 04.10.2006