델파이 기초 다지기

본 토픽은 현재 준비중입니다. 공동공부에 참여하시면 완성 되었을 때 알려드립니다.

변수와 상수

변수

변수(變數, Variable)는 변할 수 있는 값을 담는 것.

변수를 사용하지 않고 계산

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;
  Principal: Integer;
  Interest: Integer;
  Sum: Integer;
begin
//  Loan := 12000;
  Loan := StrToInt(Edit1.Text);
  Principal := Trunc(Loan / 12);
  Interest := Trunc(Loan * 0.1 / 12);
  Sum := Principal + Interest;

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

변수 선언

var
  변수명: 데이터타입;
  UserName: string;
  Age: Integer;
  I, J: Integer;
  X, Y: Double;

변수에 값 대입

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

상수

상수(常數, constant)는 변할지 않는 값을 정의.

상수 선언

const
  상수명 = 값;
  상수명 = 표현식;
  상수명: 데이터타입 = 값;
  Min = 0;
  Max = 100;
  Avg = (Max - Min) div 2;
  Message = '안녕하세요.';

 

이 수업에서 사용한 소스코드

  • 봤어요 (0명)

댓글

댓글 본문
작성자
비밀번호
버전 관리
험프리
현재 버전
선택 버전
graphittie 자세히 보기