|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.05.2010, 19:26 | #1 |
Пользователь
Регистрация: 03.10.2009
Сообщений: 20
|
(3) Создание программ!!!
4. ОБРАБОТКА СОБЫТИЙ В DELPHI.КОМПОНЕНТЫ TLISTBOX И TCOMBOBOX
г.png Unit Unit1; Interface Uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type Tunit_Lab5 = class (TForm) ComboBox1: TComboBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; BitBtn1: TBitBtn; Button1: TButton; Procedure FormActivate (Sender: TObject); Procedure ComboBox1KeyPress (Sender: TObject; var Key: Char); Procedure ComboBox1Click (Sender: TObject); Private (Private declarations) Public (Public declarations) end; var Unit_Lab5: TUnit_Lab5; Implementation ($ R *. DFM) / / Обработка события активизации формы Procedure TUnit_Lab5.FormActivate (Sender: TObject); begin ComboBox1.SetFocus; / / Передача фокуса ComboBox1 end; / / Обработка события нажатия левой клавиши мыши Procedure TUnit_Lab5.ComboBox1KeyPress (Sender: TObject; var Key: Char); begin if Key = # 13 then / / Если нажата клавишу Enter то ... begin / / Строка из окна редактирования заносится в список выбора ComboBox1.Items.Add (ComboBox1.Text. ComboBox1.Text: =''; / / Очистка окна редактирования end; end; Procedure TUnit_Lab5.ComboBox1Click (Sender: TObject); var St: string; n, и, nst, ind: integer; begin n: = 0; / / Содержит число слов избранного строки / / Содержит количество слов ind: = 0; / / Определение номера выбранного строки nSt: = ComboBox1.ItemIndex; / / Сохранение выбранного строки в переменную st St: = ComboBox1.Items [nst]; / / Пересмотр всех символов строки st for i: = 1 to Length (St) do begin Case ind of 0: if St [и] <>''then begin / / Если встретился символ после пробела / / Килькистьслив увеличивается на единицу ind: = 1; n: = n 1; end; / / Если встретился пробел после символов 1: if St [i] =''then ind: = 0; end; end; Label3.Caption: = IntToStr (n); / / Вывод количества слов в Label3 end; end. ЗАДАНИЕ: Дана строка, состоящая из групп нулей и единиц. Подсчитать количество символов в самой длинной группе. 5. Программирование подпрограмм и модулей. ш.png Текст модуля: Unit Matfu; Interface Function Tg (x: extended): extended; / / Функция для вычисления тангенса Function Ch (x: extended): extended; / / Функция для вычисления гиперболического синуса Function Sin2 (x: extended): extended; / / Функция для вычисления квадрата синуса Implementation Function Tg; begin Result: = sin (x) / cos (x); end; Function Ch. begin Result: = (exp (x)-exp (-x)) / 2; end; Function Sin2; begin Result: = sqr (sin (x)); end; end. Текст дерзкой программы: Unit Unit1; Interface Uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, MatFunc; type TForm1 = class (TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Memo1: TMemo; Button1: TButton; Button2: TButton; RadioGroup1: TRadioGroup; Procedure FormCreate (Sender: TObject); Procedure Button1Click (Sender: TObject); Procedure Button2Click (Sender: TObject); private (Private declarations) public (Public declarations) end; type func = function (x: extended): extended; var Form1: TForm1; implementation ($ R *. DFM) procedure TForm1.FormCreate (Sender: TObject); begin Edit1.Text: = '0 '; Edit2.Text: = '2 '; Edit3.Text: = '0 .2 '; Memo1.Clear; RadioGroup1.ItemIndex: = 0; end; procedure Tabl (f: func; xn, xk, h: extended); var x, y: extended; begin x: = xn; Repeat y: = f (x); Form1.Memo1.Lines.Add ('x =' FloatToStrF (x, fffixed, 8,2) 'Y =' FloatToStrF (y, fffixed, 8,2)); x: = x h; Until (x> xk. end; procedure TForm1.Button1Click (Sender: TObject); var xn, xk, h: extended; begin xn: = StrToFloat (Edit1.Text. xk: = StrToFloat (Edit2.Text. h: = StrToFloat (Edit3.Text. Case RadioGroup1.ItemIndex of 0: Tabl (tg, xn, xk, h); 1: Tabl (ch, xn, xk, h); end; end; procedure TForm1.Button2Click (Sender: TObject); begin Halt end; end. Задание щ.png |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание программ!!! | KnighTeX | Фриланс | 6 | 23.06.2010 12:00 |
(2) Создание программ!!! | KnighTeX | Компоненты Delphi | 0 | 22.05.2010 19:21 |
Создание программ | ]Wowan[ | Фриланс | 4 | 22.05.2009 14:13 |
Создание *.bat программ | Top4 | Помощь студентам | 6 | 29.07.2008 10:09 |
Создание красивых программ | ORBIUS | Общие вопросы Delphi | 6 | 17.07.2008 09:55 |