From 53549b2699f28917bd904193427768d451d1acd0 Mon Sep 17 00:00:00 2001 From: pioneerprizehun <94504735+pioneerprizehun@users.noreply.github.com> Date: Tue, 26 Jul 2022 15:21:46 +0900 Subject: [PATCH 1/4] Update Unit_ch4_2.pas MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 이전버전의 코드는 63까지는 계산이 되었지만 64부터는 숫자가 너무커서 계산이 안되는 문제가있었습니다 이렇게 작성을하면 999,999,999까지도 계산이 가능합니다 이슈란에 작성해놓았습니다. --- .../Exercise2/Unit_ch4_2.pas" | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git "a/Excercise/\353\252\250\353\223\21004/Exercise2/Unit_ch4_2.pas" "b/Excercise/\353\252\250\353\223\21004/Exercise2/Unit_ch4_2.pas" index ef99d72..61e8df6 100644 --- "a/Excercise/\353\252\250\353\223\21004/Exercise2/Unit_ch4_2.pas" +++ "b/Excercise/\353\252\250\353\223\21004/Exercise2/Unit_ch4_2.pas" @@ -28,14 +28,16 @@ implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); +procedure TForm1.Button1Click(Sender: TObject); +const + v: int64 = 6350000; var - r:real; + r: real; begin - r := SQRT(SQR(6350000 + StrToint(Edit1.Text)) - SQR(6350000)); + Edit2.Clear; + r := SQRT(SQR(v + StrToInt64(Edit1.Text)) - SQR(v)); Edit2.Text := FloatToStr(r / 1000); - - end; From 8b60ab9f64ba721432431771d3617fef18564c26 Mon Sep 17 00:00:00 2001 From: pioneerprizehun <94504735+pioneerprizehun@users.noreply.github.com> Date: Tue, 26 Jul 2022 15:33:37 +0900 Subject: [PATCH 2/4] Update Unit_ch4_2.pas --- "Excercise/\353\252\250\353\223\21004/Exercise2/Unit_ch4_2.pas" | 1 - 1 file changed, 1 deletion(-) diff --git "a/Excercise/\353\252\250\353\223\21004/Exercise2/Unit_ch4_2.pas" "b/Excercise/\353\252\250\353\223\21004/Exercise2/Unit_ch4_2.pas" index 61e8df6..95f5e2b 100644 --- "a/Excercise/\353\252\250\353\223\21004/Exercise2/Unit_ch4_2.pas" +++ "b/Excercise/\353\252\250\353\223\21004/Exercise2/Unit_ch4_2.pas" @@ -27,7 +27,6 @@ implementation {$R *.dfm} -procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.Button1Click(Sender: TObject); const v: int64 = 6350000; From 84be91a9a913cb078ed6d5cdf93b2b56cff14b0a Mon Sep 17 00:00:00 2001 From: pioneerprizehun <94504735+pioneerprizehun@users.noreply.github.com> Date: Tue, 26 Jul 2022 15:34:58 +0900 Subject: [PATCH 3/4] Update Unit_ch4_2.pas --- .../\353\252\250\353\223\21004/Exercise2/Unit_ch4_2.pas" | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git "a/Excercise/\353\252\250\353\223\21004/Exercise2/Unit_ch4_2.pas" "b/Excercise/\353\252\250\353\223\21004/Exercise2/Unit_ch4_2.pas" index 95f5e2b..51f3e38 100644 --- "a/Excercise/\353\252\250\353\223\21004/Exercise2/Unit_ch4_2.pas" +++ "b/Excercise/\353\252\250\353\223\21004/Exercise2/Unit_ch4_2.pas" @@ -29,12 +29,13 @@ implementation procedure TForm1.Button1Click(Sender: TObject); const - v: int64 = 6350000; +v: int64 = 6350000; var - r: real; + r:real; + a:int64; begin - Edit2.Clear; - r := SQRT(SQR(v + StrToInt64(Edit1.Text)) - SQR(v)); + a := SQR(v + StrToInt64(Edit1.Text)); + r := SQRT(a - SQR(v)); Edit2.Text := FloatToStr(r / 1000); end; From b7125a5b8b1e8a050d2a459b1e3d36c197eeee33 Mon Sep 17 00:00:00 2001 From: pioneerprizehun <94504735+pioneerprizehun@users.noreply.github.com> Date: Tue, 26 Jul 2022 15:35:54 +0900 Subject: [PATCH 4/4] Update Unit_ch12_3.pas --- .../\353\252\250\353\223\21012/Exercise3/Unit_ch12_3.pas" | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git "a/Excercise/\353\252\250\353\223\21012/Exercise3/Unit_ch12_3.pas" "b/Excercise/\353\252\250\353\223\21012/Exercise3/Unit_ch12_3.pas" index 288f65f..05d6392 100644 --- "a/Excercise/\353\252\250\353\223\21012/Exercise3/Unit_ch12_3.pas" +++ "b/Excercise/\353\252\250\353\223\21012/Exercise3/Unit_ch12_3.pas" @@ -32,7 +32,7 @@ procedure TForm1.Button1Click(Sender: TObject); begin Cnt := 0; s := Edit1.Text; - for i := 0 to Length(s) do + for i := 1 to Length(s) do if s[i] = '.' then Cnt := Cnt + 1; ShowMessage(InTtoStr(Cnt));