Litres)Conumption = (End km - Begin km) / LitresWrite (The Fuel consumption of this trip is , Consumption ,Km's a litre)Total Fuel Cost formWrite (Enter litres of Fuel used)Read (Litres)Write (Enter the Avg cost of fuel for the trip)Read (Cost)Total = Litres * CostWrite (The total cost of fuel for this trip is , total)Screen DesignMain ScreenTotal Distance Travelled FormFuel Consumption formTotal Fuel Cost Form Delphi CodeMain Pageunit Main;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMainForm = class(TForm) TitleLabel: TLabel; DistButton: TButton; HelpButton: TButton; CostButton: TButton; ConsumButton: TButton; TitleLabel2: TLabel; ExitButton: TButton; procedure ExitButtonClick(Sender: TObject); private { Private declarations } public { Public declarations } end;var MainForm: TMainForm;implementation{$R *.DFM}procedure TMainForm.ExitButtonClick(Sender: TObject);begin Close ;end;end.Distanceunit Dist;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TDistanceForm = class(TForm) TitleLabel: TLabel; TitleLabel2: TLabel; DisplayButton: TButton; ReturnButton: TButton; StartLabel: TLabel; EndLabel: TLabel; TLabel: TLabel; StartEdit: TEdit; EndEdit: TEdit; TotalLabel: TLabel; procedure TotalLabelClick(Sender: TObject); private { Private declarations } public { Public declarations } end;var DistanceForm: TDistanceForm;implementationuses Cost;{$R *.DFM}procedure TDistanceForm.TotalLabelClick(Sender: TObject);var endo,starto,dist:integer;begin endo:=StrToInt(endedit.text); starto:=StrToInt(startedit.text); dist:=endo-starto; TotalLabel.Caption:=FloatToStr(dist);end;end.Consumptionunit Consum;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TConsumForm = class(TForm) TitleLabel: TLabel; ...
