변수와 상수

변수

변수(變數, Variable), 프로그램 실행 중 변할 수 있는 값

변수 선언

var
  변수명[, 변수명2]: 자료형;

변수 사용

var
  UserName, Message: string;
  Age: Integer;
  I, J: Integer;
begin
  변수명 := 값;
  UserName := '홍길동';
  Message := UserName + '님 안녕하세요.';
  Age := 23;
  I := 10;
  J := I + 3;
end;

파스칼 표기법(PascalCase) - 단어의 첫문자를 대문자로 표기

변수 사용의 이점

• 재사용성 - 한 곳에서 설정한 값을 반복 사용
• 높은 가독성 - 값의 이름을 지정
• 복잡성 감소 - 복잡한 계산과정을 분리

변수 사용하지 않고 계산

12,000원을 1년 이율 10%로 상환시 원금과 이자, 상환금액을 계산하는 과정

  Memo1.Lines.Clear;
  Memo1.Lines.Add('대출금:'+IntToStr(12000));
  Memo1.Lines.Add('월원금:'+IntToStr(Trunc(12000 / 12)));
  Memo1.Lines.Add('월이자:'+IntToStr(Trunc(12000 * 0.1 / 12)));
  Memo1.Lines.Add('월합계:'+IntToStr(Trunc((12000 / 12) + (12000 * 0.1 / 12))));

만약? 대출금액을 변경하려면?

변수를 사용해 계산

var
  Loan: Integer;
  MonthlyPay: Integer;
  Interest: Integer;
  MonthlySum: Integer;
begin
//  Loan := 12000;
  Loan := StrToInt(Edit1.Text);
  MonthlyPay := Trunc(Loan / 12);
  Interest := Trunc(Loan * 0.1 / 12);
  MonthlySum := MonthlyPay + Interest;

  Memo1.Lines.Clear;
  Memo1.Lines.Add('대출금:'+IntToStr(Loan));
  Memo1.Lines.Add('월원금:'+IntToStr(MonthlyPay));
  Memo1.Lines.Add('월이자:'+IntToStr(Interest));
  Memo1.Lines.Add('월합계:'+IntToStr(MonthlySum));
end;

상수

상수(常數, constant), 프로그램 실행 중 변하지 않는 값

상수 선언

const
  상수명 = 값;
  상수명 = 표현식;
  상수명: 자료형 = 값;

상수 사용

const
  Min = 0;
  Max = 100;
  Center = (Max - Min) div 2;
  Beta = Chr(225);
  NumChars = Ord('Z') - Ord('A') + 1;
  Message = 'Out of memory';
  ErrStr = ' Error: ' + Message + '. ';
  ErrPos = 80 - Length(ErrStr) div 2;
  Ln10 = 2.302585092994045684;
  Ln10R = 1 / Ln10;
  Numeric = ['0'..'9'];
  Alpha = ['A'..'Z', 'a'..'z'];
  AlphaNum = Alpha + Numeric;

상수 사용의 이점

• 일관성 - 반복 사용되는 값을 한곳에서 관리
• 높은 가독성 - 값에 이름을 지정
• 유지보수성 - 여러 값들을 한곳에서 관리 가능