Onionmixer: SPOP 연료소비프로그램 페이지 추가

2012-07-26T10:11:00Z

SPOP 연료소비프로그램 페이지 추가

New page

===연료 소비 프로그램===

<syntaxhighlight lang="pascal">
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.
</syntaxhighlight>

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

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

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

StartprogrammingusingObjectPascal:FuelConsumptionProgram - Revision history

Onionmixer: SPOP 연료소비프로그램 페이지 추가