Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.10.2013, 11:33   #11
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Cколько времени в минутах затратит школьник на дорогу от школы до стадиона,если это расстояние составляет S км,а средняя скорость движения школьника -Vкм/ч. ??
В теории это выглядит так:
Код:
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    EditDistance: TEdit;
    EditSpeed: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:=FloatToStr(StrToFloatDef(EditDistance.Text,0)/StrToFloatDef(EditSpeed.Text,1)/60);
end;

end.
EditDistance для расстояния, EditSpeed для скорости.
В заголовке по нажатию на кнопулю результат.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 18.10.2013, 11:41   #12
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Только на 60 умножить
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 18.10.2013, 12:55   #13
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

А-а-а... Ну да. Попутал.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Определите расстояние, пройденное физ телом за вермя t, если тело движется с постоянным ускорением "а" (нач.скорость=0) Cotman od Паскаль, Turbo Pascal, PascalABC.NET 12 27.09.2011 21:07
Cколько времени стоит ОС RIO Общие вопросы Delphi 5 16.09.2010 07:46
Помогите решить задачу(delphi) MOLOTok+ Помощь студентам 1 24.06.2009 19:17