Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi

Войти
Регистрация
Восстановить пароль
 
Oxxxymiron
#1

Элементарный вопрос - Delphi

14.10.2009, 19:46. Просмотров 561. Ответов 2
Метки нет (Все метки)

Здравствуйте,я совсем чайник в програмировании,даже по учебнику написать програмку простую не могу
Кому не сложно выложите исходник или алгоритм этой программы
[IMG]http://s59.***********/i166/0910/17/797672169281.gif[/IMG]
ну типо
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
// нажатие кнопки Вычислить
TForm1.ButtonlClick(Sender: TObject);
var
dist : integer; // дистанция, метров
t: real; // время как дробное число
min : integer; // время, минуты
sek : integer; // время, секунды
v: real; // скорость
begin
// получить исходные данные из полей ввода
dist := StrToint(Edit1.Text); t := StrToFloat(Edit2.Text);
// предварительные преобразования
min := Trunc(t); // кол-во минут — это целая часть числа t
sek := Trunc(t*100) mod 100;
// кол-во секунд — это дробная часть
// числа t
// вычисление
v := (dist/1000) / ((min*60 + sek)/3600);
// вывод результата
label4.Caption := 'Дистанция: '+ Edit1.Text
+ ' м' + #13 + 'Время: ' + IntToStr(min)
+ ' мин ' + IntToStr(sek) + ' сек ' + #13 +
'Скорость: ' + FloatToStrF(v,ffFixed,4,2) + ' км/час';



end;
// нажатие кнопки Завершить
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close; // закрыть главное окно программы
end;


procedure TForm1.Label1Click(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.
Только без ошибок,спасибо
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.10.2009, 19:46
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Элементарный вопрос (Delphi):

Срочно нужен элементарный компонент "Линия" !!! - Delphi
В MS Access такой компонент есть. В Делфи такого нет. Самый близкий по функциональности - TShape, свойство Shape которого может принимать...

Вопрос по lookupColumn - Delphi
В dxdbGrid есть поле "Тип операции". Допустим, есть некий список операций: 1 - покупка 2 - продаже 3 - ремонт Хочу что бы при...

вопрос с edit - Delphi
при нажатии на кнопку нужно чтобы в едите в тексте выводились цифры при каждом нажатии прибовлялось +1 типо нажал на кнопу в едите...

Вопрос такой.. - Delphi
Нужно сгенерировать на дельфи все подмножества из конечного множества. Нашел в инете всякой информации по этому вопросу,но так ни в чем и...

Вопрос по dbChart - Delphi
Подскажите как dbchart перерисовать. Когда меняю значения, график перерисовывается, но если значения больше предыдущих линии вылазят за...

Вопрос по ICQClient - Delphi
Как отправить сообщение всему контактному листу? Добавлено через 48 минут И как заставить бота добавлять контакты и авторизировать их

2
PointsEqual
ниначмуроФ
836 / 520 / 33
Регистрация: 12.10.2009
Сообщений: 1,915
14.10.2009, 20:24 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
res: real;
begin
res:=strtoint(edit1.text)/strtoint(edit2.text);
label1.caption:=floattostr(res);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
exit;
end;
 
end.
1
Oxxxymiron
14.10.2009, 21:05 #3
PointsEqual, Спасибо
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.10.2009, 21:05
Привет! Вот еще темы с ответами:

вопрос с edit ! - Delphi
нужно народ сделать,так: имеется 3 edit1,edit2,edit3. нужно вводя в edit1 и edit2 цифры,а edit3 сразу же выдавало общую сумму!!! ...

Вопрос о календаре - Delphi
Просьба ответить "чайнику". На базе таблицы создана форма. Во все поля таблицы ввод данных получается нормально, а вот вставка в...

Вопрос по дискретке - Delphi
подскажите пожалуйста как решить задачу по дискретной математике такого типа: "В группе 30 студентов. сколькими способами можно выделить...

Вопрос по TWindowsMediaPlayer - Delphi
Нужно чтобы по клику на кнопку плеер переходил по url... При TWindowsMediaPlayer1.URL:=http://url.ru/chanel; пишет undeclared...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru