|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.12.2010, 21:23 | #1 |
Новичок
Джуниор
Регистрация: 14.12.2010
Сообщений: 7
|
Задача про вклад (через форму)
Как доделать программу?
мне надо результат вывести в label4 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure Edit2Change(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Vklad, dopol,Schet: real; i:Byte; Begin For i:=1 to 12 do Begin Schet:=(vklad+Dopol*i)*1.1; end; end. |
16.12.2010, 22:04 | #2 |
Форумчанин
Регистрация: 21.10.2010
Сообщений: 588
|
Код:
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ввод данных через форму | hamlook | Microsoft Office Excel | 9 | 24.03.2013 17:11 |
ввод данных через форму | brans | Microsoft Office Excel | 16 | 22.10.2010 18:32 |
Запрос через форму | BloodWizard | PHP | 4 | 21.04.2010 20:50 |
Про форму | Marsik | Помощь студентам | 2 | 03.11.2007 14:53 |
Помогите. Вопрос про форму. | РЫЖЫЙ :( | Общие вопросы Delphi | 2 | 02.11.2007 15:52 |