델파이 코딩_등차수열의 합 구하기

선언부(?)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ActnList, Menus;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

버튼을 누르면 계산한 값이 튀어나오는 식으로 했다.

 

 

 

 

 

구현부

implementation

{$R *.dfm}
var
  a : integer;
  b : integer;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  sum : integer;
begin
  a := 1;
  b := 100;

//  if a < b then
//    begin
//      for a in b do
//       a := a + 1;
//      showmessage(IntToStr(a));
//    end
//  else if a >b then
//    for b in a do
//      b := b+1;
//      showmessage(IntToStr(b));
//    end;

  if a < b then
  begin
    i := 0;
    sum :=0;

    for i:= a to b do
    begin
      sum:=sum+i;
    end;
  ShowMessage(IntToStr(sum));
  end;

end;
end.

아직 파이썬으로 치면 사용자가 값을 입력할 수 있는 input() 함수가

델파이에서는 어떤 함수인지 몰라서

그냥 값을 지정해놓고 출력만 해주는 식으로 코딩을 했다.

 

보다시피 // 부분에 한참 헤맨 흔적이 남아있다..

등차수열 고딩때이후로 너무 오랜만이라 너무 어렵다..ㅠ 거의 10년만에..

 

암튼 머리 싸매고 굴리다가 드디어 아래 것이 제대로 나오게 됐다.

파이썬 하다가 델파이 처음 하려니까 뭔가 for loop도 굉장히 문법이 달라서 어색하다.

어차피 파이썬도 왕초보이지만..ㅠㅠ