[Статья] Учимся делать программу для вычисление скорости.

[Shook†]

Добро времени дня и ночи!
В этой статье я научу вас делать программу для вычисление скорости
Программист я не сильный, но постараюсь показать вам мои умение
Для работы нужно

Delphi 7

Следующии действия

Для работы нам понадобятся Label 1,2,3,4; Edit 1,2; Button 1,2.

Эти компоненты располагаем примерно так:
[Ссылки могут видеть только зарегистрированные пользователи. ]
Начинаем теперь делать код:

Код для кнопки Button 1
procedure TForm1.Button1Click(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);
  sek := Trunc(t*100) mod 100; 
  v := (dist/1000) / ((min*60 + sek)/3600);
  label4.Caption := 'Дистанция: '+ Edit1.Text+' м' + #13 + 'Время: ' + 
    IntToStr(min)+ ' мин ' + IntToStr(sek) + ' сек ' + #13 +
  'Скорость: ' + FloatToStrF(v,ffFixed,4,2) + ' км/час';
end;



Код для кнопки Button 2
procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.Close;
end;

Программа очень простенькая, просто я только учусь.
Спасибо за внимание с вами был Shook†

[vfcnth!%*#]

И в чем смысл темы? Взято из книги и все...

[Shook†]

Цитата: Сообщение от vfcnth!%*# И в чем смысл темы? Взято из книги и все...

Cогласен. Некие моменты смотрел в книгу, в остальном делал сам.

[VeTaL_UA]

Edit3.Text:=floattostr(strtofloat(Edit1.Text)/strtofloat(Edit2.Text));

Вся статья...

[Shook†]

Цитата: Сообщение от VeTaL_UA Код: Edit3.Text:=floattostr(strtofloat(Edit1.Text)/strtofloat(Edit2.Text)); Вся статья...

Понимаю. Статья простая, но и я ещё не очень хороший программист, я только учуть

Добавлено через 3 часа 34 минуты

Цитата: Сообщение от Dinmaite Всё равно плохо)

Спасибо, что отредактировал, очень благодарен, только со скрином не очень, а так СПАСИБо

[Kavaii^_^]

А разве нельзя объеденить все переменые real в одну строку и integer в другую?

[Shook†]

Цитата: Сообщение от Kavaii^_^ А разве нельзя объеденить все переменые real в одну строку и integer в другую?

Мне так проще

[Mentis]

Цитата: Сообщение от Kavaii^_^ А разве нельзя объеденить все переменые real в одну строку и integer в другую?

dist; min; sek : integer;
t; v: real;

так получится? или как?

[VeTaL_UA]

Цитата: Сообщение от Mentis так получится?

нет

Цитата: Сообщение от Mentis или как?

dist, min, sek : integer;
t, v: real;

[KRUG]

Цитата: var dist : integer; t: real; min : integer; sek : integer; v: real;

не ищет лёгких путей)) а если их было больше?
и смысл от этой программы? функционал маленький.