[tim537]

Написать программу, которая вычисляет стоимость проезда на автомобиле. Входные данные: расстояние - 100 км, цена бензина - 4,60 грн/руб.,(желательно грн, если можете) Расход топлива - (BMW - 6, Opel - 5,5, Mersedes - 7).

[poli-smen]

Сообщение от tim537

Написать программу, которая вычисляет стоимость проезда на автомобиле. Входные данные: расстояние - 100 км, цена бензина - 4,60 грн/руб.,(желательно грн, если можете) Расход топлива - (BMW - 6, Opel - 5,5, Mersedes - 7).

Это же детская задача Просто умножаешь пройденное расстояние, на цену бензина, на расход топлива и всё.

[tim537]

Сообщение от poli-smen

Это же детская задача Просто умножаешь пройденное расстояние, на цену бензина, на расход топлива и всё.

Вы можете написать мне код? Просто я даже не знаю как это писать, я ноль в этом

[poli-smen]

Сообщение от tim537

Вы можете написать мне код? Просто я даже не знаю как это писать, я ноль в этом

Ну так умножение оно и в Африке умножение, что его писать то?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Rasst, Tsena, Rashod, Stoimost: Extended;
begin
  Rasst := 100; // Пройденное расстояние в км
  Tsena := 4.60; // Цена бензина в грн/л
  Rashod := 6; // Расход топлива в л/км

  Stoimost := Rasst * Tsena * Rashod;

  ShowMessageFmt('Стоимость проезда на автомобиле: %f грн', [Stoimost]);
end;