StartprogrammingusingObjectPascal:FuelConsumptionProgram

연료 소비 프로그램

Program FuelConsumption;

{$mode objfpc}{$H+}

uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes , SysUtils
    { you can add units after this };

const GallonPrice = 6.5;

var
    Payment: Integer;
    Consumption: Integer;
    Kilos: Single;
begin
    Write('How much did you pay for your car''s fuel: ');
    Readln(Payment);
    Write('What is the consumption of your car? (Kilos per Gallon): ');
    Readln(Consumption);

    Kilos:= (Payment / GallonPrice) * Consumption;

    Writeln('This fuel will keep your car running for : ',
        Format('%0.1f', [Kilos]), ' Kilometers');
    Write('Press enter');
    Readln;
end.

앞의 예제에서 다음 변수에 따라 현재 연료로 차가 달릴 수 있는 거리를 킬로미터 단위로 계산할 것입니다.

차 연료 소모: 현재 차에 대한 갤런당 킬로미터 단위 거리를 저장하기 위해 Consumption 변수를 사용했습니다.
연료: 현재 연료에 대해 얼마나 지불해야 하는지에 대한 금액을 저장하기 위해 Payment 변수를 사용했습니다.
연료값: 현재 국가에서의 갤런 단위의 연료에 대한 가격을 저장하기 위해 GallonPrice 상수를 사용했습니다. 이 값은 사용자가 입력할 것이 아니고, 대신에 프로그래머가 정의할 것입니다.

프로그램에서 자주 사용하는 같은 값을 사용할 때 상수를 권장합니다. 이 값을 바꿀 필요가 있다면, 코드의 머리 부분에서 한 번에 수정할 수 있습니다.

StartprogrammingusingObjectPascal:FuelConsumptionProgram

연료 소비 프로그램

Navigation menu

Search