Вправа Правила дорожнього руху

Скачать проект

У вибраному самостійно середовищі програмування розробіть про­ект Правила дорожнього руху, за яким можна визначити, чи не порушив правила дорожнього руху водій, який проїхав відстань s за час t, якщо на шляху встановлено одне із запропонованих обмежень на швидкість: 40 км/год, 60 км/год, 90 км/год. Передбачте, що дані вводяться в текстові поля, обмеження обираються за допомогою елементів управління (обе­ріть самостійно), а результат — виводиться у вікні повідомлення.

Створюємо інтерфейс

Для вибору обмеження швидкості перемикачі RadioButton1- RadioButton3, відстань вводять в Edit1, час – в Edit2. Виведення швидкості в Label6, результату дотримання правил водієм в Label8.

Програмний код:

procedure TForm1.Button1Click(Sender: TObject);

var

  s,t,v,limit:Real; - оголошення змінних  s (відстань), t (час), v (швидкість ), limit (число обмеження швидкості)

begin

  s:=strtofloat(edit1.Text);

  t:=strtofloat(edit2.Text);

  if RadioButton1.Checked= true then limit:=40

   else if RadioButton2.Checked= true then limit:=60

  else limit:=90;

якщо встановлений перший перемикач RadioButton1, то змінній limit присвоюється значення 40, якщо RadioButton2 – 60 і якщо RadioButton3 – 90.

  v:=s/t; обчислення швидкості

  label6.caption:=floattostrf(v,fffixed,3,2) + ' км/год'; - виведення обчисленої швидкості

  if  v<=limit then label8.caption:='не порушив'

  else label8.caption:='порушив';

якщо обчислене значення швидкості менше або рівне значення limit, то вивести 'не порушив', інакше 'порушив'

end;        

Робота програми