M1 : 델파이 문법 과제(엄윤오)

20_Task/M1/10_Variable/VariableForm.pas

@@ -14,10 +14,12 @@   TForm1 = class(TForm)
     edtSum: TEdit;
     Label2: TLabel;
     procedure Button1Click(Sender: TObject);
+
   private
     // �� ��(����)������ ����ϴ� ������ �Լ��� ����
 
     { TODO : (1) ���� �� FSum ������ �����ϼ���. }
+  FSum : integer;
 
     function AddNum(ANum: Integer): Integer;
   public
@@ -32,16 +34,22 @@ implementation
 {$R *.dfm}
 
 function TForm1.AddNum(ANum: Integer): Integer;
+var
+Num, Sum : integer;
+
 begin
   { TODO :
       (2) FSum ������ �Ķ���� ANum ���� ���մϴ�.
           FSum ���� ��ȯ }
-  Result := 0;
+
+  FSum := FSum + ANum;
+  Result := FSum;
 end;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
-  Num, Sum: Integer;  // �̰��� ����� ������ �� �Լ������� ����մϴ�.
+  Num, Sum: Integer;
+  // �̰��� ����� ������ �� �Լ������� ����մϴ�.
 begin
   Num := StrToInt(edtNum.Text);
   Sum := AddNum(Num);

20_Task/M1/20_Function/FunctionForm.pas

@@ -26,6 +26,9 @@   TForm2 = class(TForm)
     function GetNameMsg(AName: string): string;
 
     function GetAgeMsg(AName: string; AAge: Integer): string;
+
+    function GetUserInfoMsg(AName: string; AAge: Integer; A : boolean): string;
+
     { TODO :
         (2-1) GetUserInfoMsg �Լ��� ����
           �Ķ����: �̸�(����), ����(����), ���ڿ���(Boolean)
@@ -53,12 +56,34 @@ function TForm2.GetNameMsg(AName: string): string;
   Result := Msg;
 end;
 
-function TForm2.GetAgeMsg(AName: string; AAge: Integer): string;
+function TForm2.GetUserInfoMsg(AName: string; AAge: Integer;
+  A: boolean): string;
 var
-  Msg, Adult: string;
+  Aman,Msg : string;
+
 begin
+   AMan := '����';
+   if A = false then
+   AMan := '����';
+  Msg := GetAgeMsg(AName, AAge );
+
+  Msg :=  Msg + #13#10 + AName + '���� ' + AMan + '�Դϴ�.' ;
+
+   result := Msg;
+end;
+
+function TForm2.GetAgeMsg(AName: string; AAge: Integer): string;
+var
+  Msg: string;
+  Adult : string;
+  begin
+    Adult := '�̼���';
+    if AAge >= 20  then
+    Adult := '����';
+
+
   Msg := GetNameMsg(AName); // �λ縻 ǥ�ô� ����
-  Msg := Msg + #13#10;      // ���� ��������(�ϸ� ij��������)
+  Msg := Msg + #13#10 + AName + '���� ' + inttostr(AAge) + '���� ' + Adult + '�Դϴ�.' ;      // ���� ��������(�ϸ� ij��������)
 
 { TODO :
     (1) Msg ������ '(AName)���� (AAge)���� (����/�̼���)�Դϴ�.' �޽��� �߰�
@@ -70,9 +95,11 @@ function TForm2.GetAgeMsg(AName: string; AAge: Integer): string;
   Result := Msg;
 end;
 
+
 procedure TForm2.Button1Click(Sender: TObject);
 var
   Name, Msg: string;
+
 begin
   Name := edtName.Text;
 
@@ -85,6 +112,7 @@ procedure TForm2.Button2Click(Sender: TObject);
 var
   Name, Msg: string;
   Age: Integer;
+
 begin
   Name := edtName.Text;
   Age := StrToInt(edtAge.Text);
@@ -104,6 +132,7 @@ procedure TForm2.Button3Click(Sender: TObject);
   Age := StrToInt(edtAge.Text);
   IsMan := rdoMan.Checked;
 
+  MSg := GetUserInfoMsg(Name, Age, IsMan);
 { TODO :
     (2) �λ縻 + ���ο��� Ȯ�� + ����Ȯ�� �޽�����
         ��ȯ�ϴ� �Լ�(GetUserInfoMsg)�� �ۼ��ϼ���

20_Task/M1/30_Array/ArrayForm.pas

@@ -20,6 +20,7 @@   TForm3 = class(TForm)
     procedure InitArray;
     function GetArraySum: Integer;
     function GetArrayMaxNum: Integer;
+
   public
     { Public declarations }
   end;
@@ -32,6 +33,7 @@ implementation
 {$R *.dfm}
 
 procedure TForm3.FormCreate(Sender: TObject);
+
 begin
   InitArray;
 end;
@@ -40,6 +42,7 @@ procedure TForm3.FormCreate(Sender: TObject);
 procedure TForm3.InitArray;
 var
   I: Integer;
+
 begin
   // �迭(FNumArr)�� ���̸�ŭ �ݺ��ϸ� ������ ��(1~100)�� ����
   for I := 0 to Length(FNumArr) - 1 do
@@ -50,7 +53,9 @@ procedure TForm3.Button1Click(Sender: TObject);
 var
   I: Integer;
   Sum, MaxNum: Integer;
+
 begin
+
   // �迭�� ��
   Sum := GetArraySum;
 
@@ -65,28 +70,44 @@ procedure TForm3.Button1Click(Sender: TObject);
     �迭�� ũ�� ����ǵ� �����ϵ��� �ݺ��� ���� Length(FNumArr) - 1�� ����
      ��> for I := 0 to Length(FNumArr) - 1 do }
 
+  for I := 0 to Length(FNumArr) - 1 do
+    begin
+      Memo1.Lines.Add('-'+ inttostr(Fnumarr[i]));
+    end;
+
   Memo1.Lines.Add('�迭�� ���� ' + IntToStr(Sum) + ' �Դϴ�.');
   Memo1.Lines.Add('�迭�� �ִ밪�� ' + IntToStr(MaxNum) + ' �Դϴ�.');
 end;
 
 function TForm3.GetArraySum: Integer;
 var
   I, Sum: Integer;
+
 begin
   Sum := 0;
   { TODO : (2) for ���� �̿��� �迭�� ���� ��� ���� ��ȯ�ϵ��� ���� }
-
+  for I := 0 to Length(FNumArr) - 1 do
+   begin
+      Sum := sum+fnumarr[i];
+   end;
   Result := Sum;
 end;
 
 function TForm3.GetArrayMaxNum: Integer;
 var
   I, MaxNum: Integer;
+
 begin
   MaxNum := 0;
   { TODO :
     (3) for ���� �̿��� �迭�� �� �� ���� ū ���� ��ȯ�ϵ��� ����
         if ���� �̿��� ���ڸ� ��  }
+  for I := 0 to Length(FNumArr) - 1 do
+   begin
+    if FNumArr[i] >= maxnum then
+       maxnum := fnumarr[i];
+   end;
+
 
   Result := MaxNum;
 end;
@@ -95,6 +116,7 @@ procedure TForm3.Button2Click(Sender: TObject);
 var
   I,
   CountOver, CountUnder: Integer;
+
 begin
   CountOver := 0;
   CountUnder := 0;
@@ -104,6 +126,16 @@ procedure TForm3.Button2Click(Sender: TObject);
           50 �̸�(<)�� ��� CountUnder 1 ���� �ϵ��� ����
   }
 
+  for I := 0 to Length(FNumArr) - 1 do
+   begin
+    if FNumArr[i] >= 50 then
+    begin
+       countover := countover+1;
+    end
+
+    else countunder := countunder+1;
+   end;
+
   Memo1.Lines.Add('50 �̻��� ���� ����: ' + IntToStr(CountOver));
   Memo1.Lines.Add('50 �̸��� ���� ����: ' + IntToStr(CountUnder));
 end;