Q&A
- 또 질문드립니다.......
델파이를 공부하는 학생입니다.
지금 에디트1에 숫자를 입력하여 숫자가 짝수면 1부터 입력한짝수번까지의 합과 홀수면 1부터 입력한 홀수번까지의 합이 에디트 2에 출력이 되게 하는거를 만들고있습니다.
밑에 질문에 답을해주셔서 수정을 했는데.....이번문제는 짝수를 넣으면 홀수갯수만큼 빼서 답이 나옵니다. 홀수는 잘나오고요. 죄송스럽지만 다시한번 조언을 부탁드립니다.......
var
sum,sum1,i,a : integer;
begin
a := strtoint(edit1.Text);
sum := 0;
sum1 := 0;
for i:= 1 to a do
if(i mod 2)=0 then
sum:=sum+i
else
if(i mod 2)=1 then
sum1:=sum1+i;
edit2.Text :=inttostr(sum);
edit2.Text :=inttostr(sum1);
end;
end.
지금 에디트1에 숫자를 입력하여 숫자가 짝수면 1부터 입력한짝수번까지의 합과 홀수면 1부터 입력한 홀수번까지의 합이 에디트 2에 출력이 되게 하는거를 만들고있습니다.
밑에 질문에 답을해주셔서 수정을 했는데.....이번문제는 짝수를 넣으면 홀수갯수만큼 빼서 답이 나옵니다. 홀수는 잘나오고요. 죄송스럽지만 다시한번 조언을 부탁드립니다.......
var
sum,sum1,i,a : integer;
begin
a := strtoint(edit1.Text);
sum := 0;
sum1 := 0;
for i:= 1 to a do
if(i mod 2)=0 then
sum:=sum+i
else
if(i mod 2)=1 then
sum1:=sum1+i;
edit2.Text :=inttostr(sum);
edit2.Text :=inttostr(sum1);
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- KDDG_Hit
- 2009.03.26 06:22
- 0 COMMENTS
- /
- 0 LIKES
-
- delete
- •
- 2009.03.26 02:47
- 1 COMMENTS
- /
- 0 LIKES
-
delete•2009.03.26 02:59저걸 돌려보면 버튼클릭시 첫번째 에러 메세지는 ora-12571 이라고 뜨고 다시 눌르면 NET : Net...
-
- 박종철
- •
- 2009.03.25 21:13
- 4 COMMENTS
- /
- 0 LIKES
-
최용일•2009.03.26 02:51음... TStringGrid의 KeyPress이벤트에 똑같이 코딩했는데... 잘 되는데요...
-
박종철•2009.03.26 17:44그냥 포커스만 가 있는 상태에서 하면 잘 됩니다. 그런데 옵션에 goEditing을 True로 하고 입력모드로 ...
-
최용일•2009.03.26 21:16델7인데요... goEditing에서도 잘 되구 TEdit에서도 잘 되는데요...
-
박종철•2009.03.26 21:56답변 감사합니다. 델파이 6에서는 안되나 보네요... ㅠ_ㅠ
-
- delete
- 2009.03.25 20:55
- 0 COMMENTS
- /
- 0 LIKES
-
- lee, js
- 2009.03.25 20:18
- 0 COMMENTS
- /
- 0 LIKES
-
- suffering tears
- 2009.03.25 18:56
- 0 COMMENTS
- /
- 0 LIKES
-
- lee, js
- 2009.03.24 21:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상호
- •
- 2009.03.24 08:59
- 1 COMMENTS
- /
- 0 LIKES
델파이를 공부하는 학생입니다. 지금 에디트1에 숫자를 입력하여 숫자가 짝수면 1부터 입력한짝수번까지의 합과 홀수면 1부터 입력한 홀수번까지의 합이 에디트 2에 출력이 되게 하는거를 만들고있습니다. 밑에 질문에 답을해주셔서 수정...-
김병윤•2009.03.24 17:24먼소린가 했네요 ㅎㅎ [기존소스] if(i mod 2)=0 then sum:=sum+i else if(i mod 2)=1 then sum1:=...
-
- 김덕현
- 2009.03.24 08:58
- •
- 0 COMMENTS
- /
- 0 LIKES
-
- 희아빠
- 2009.03.24 04:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 신동우
- •
- 2009.03.24 03:08
- 10 COMMENTS
- /
- 0 LIKES
-
후초보•2009.03.24 03:12문제는 알겠는데 뭘 모르는 건지 알아야죠? 프로그램을 만들어 달라는 거예요? 버튼 누르면 click ...
-
신동우•2009.03.24 07:17정말 죄송한데 ...제가 이문제를 내일까지 꼭해야하는데 배운지가 얼마안되서 ㅠㅠ급하게 만드는방법이...
-
신동우•2009.03.24 07:53위에 문제가 딱실행이 될수있게 해주시면안돼나요 정말 내일 필요해서 ㅠㅠ sdw0704@hanmail.net 으로...
-
소울해커•2009.03.24 20:06... 학교 과제물을 여기서 처리해달라고 하시는건 대체 무슨 생각이신지...ㅡ_ㅡ 프로그램 하실 마...
-
신동우•2009.03.24 20:17그게아니고여 배우고있는대 어려우니까 물어보는거구요 오해하지 마실래요? 알려주면서 그런소리하던...
-
신동우•2009.03.24 20:42제가필요한건 이위의 질문에 대한 소스값이 정말필요한데 2시까지마감이라 ㅠㅠ
-
라벤더•2009.03.24 22:34신동우님. 글이나 코멘트 써놓으신 걸 보니 기가 막히는군요. 델파이를 배운지 얼마나 되셨는지는 모르... - • • •
-
- 후초보
- •
- 2009.03.24 08:51
- 4 COMMENTS
- /
- 0 LIKES
-
신동우•2009.03.24 20:42소스값이 필요한데 ㅠㅠ자세한 ㅠㅠㅠ
-
KDDG_Hit•2009.03.25 02:27위 원문글 첫번째에 코멘트에 정확하게 달려있는데요.. 아예 프로젝트 파일을 원하시나?? -_-;; 이...
-
후초보•2009.03.26 02:41답답하신 분이네.. 소스를 다 올려줬는데 무슨 소스값이 필요하다는건지.. 혹시 프로그램 처음 강의 듣...
-
박종철•2009.03.26 17:46첨부파일을 확인도 못하시는 분이시라니... ㅡㅡ;;;; 맘씨 좋은 후초보님만 공연히 고생하셨네요..
-
- 후초보
- 2009.03.24 03:04
- 0 COMMENTS
- /
- 0 LIKES
-
- KDDG_Hit
- •
- 2009.03.24 02:23
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2009.03.24 07:14CComBSTR은 ATL클래스로 델파이와 호환되지 않습니다. BSTR은 델파이에서 PWideChar로 변경하시면 잘 호...
-
KDDG_Hit•2009.03.24 20:10그렇군요.. 감사합니다.. 마침 C++ 에서 CCOMBSTR 을 BSTR 로 변환하는 방법을 찾았는데.. 그걸 응...
-
- 송 시중
- •
- 2009.03.24 00:43
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2009.03.24 07:04다 맞는데 배열의 크기가 2048이니까 array[0..2047] of char로 되어야 겠네요...
-
송 시중•2009.03.26 05:39답변 감사합니다 ^^
-
- 박준영
- •
- 2009.03.24 00:31
- 1 COMMENTS
- /
- 0 LIKES
-
박준영•2009.03.26 01:29ㅋㅋ 열심히 검색한 결과 두종류를 찾았습니다.. 사용법은 아직 모르고.. ㅋㅋ 하나는 무료같은데... DB...
-
- 뽀롱
- 2009.03.23 20:40
- 0 COMMENTS
- /
- 0 LIKES
-
-
최용일•2009.03.23 23:06이전에 추가한 이름을 기억해놨다가, 새로 추가할 아이템의 이름과 비교해서 다르면 합계를 먼저 추가하...
-
아낙네•2009.03.24 00:21저도 그런식으로 짜면 되겠다 생각은 했는데요 도저히 이걸 소스로 어떻게 짜야할지가 생각이 안나서요 ...
-
최용일•2009.03.24 07:00대강 적은것이라서 오류날 수 있겠지만... 아래와 같은 형식이 되겠죠... var TotalPrice, GoodsPr...
-
-
-
최용일•2009.03.23 23:07홀수 합과 짝수 합을 계산하는 변수를 나누세요. 현재 sum이란 변수에 홀수합과 짝수합이 같이 들어가도...
-
-
- 김덕현
- •
- 2009.03.21 08:14
- •
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2009.03.24 00:09아래 사이트 참고하세요. http://kurapa.com/content-a402
[기존소스]
if(i mod 2)=0 then
sum:=sum+i
else
if(i mod 2)=1 then
sum1:=sum1+i;
edit2.Text :=inttostr(sum); // 짝수번까지 합을 Edit2.text에 대입
edit2.Text :=inttostr(sum1); // 홀수번까지 합을 Edit2.text애 대입
보시다 싶이 짝수번까지 합을 Edit2.text에 넣으시고
또 홀수번까지 합을 Edit2.text에 또 넣으시는데
이러시면 결과는 항상 홀수번까지 합이 나오죠
<!--CodeS-->
var
sum,i,a : integer;
begin
a := strtoint(edit1.Text);
sum := 0;
for i := 1 to a do
sum := sum + i;
edit2.Text :=inttostr(sum);
end;
<!--CodeE-->
짝수, 홀수 다 좋은데 딱히 구분할 필요가 있을까요?
제가볼땐 그냥 저런식으로 구현하셔도 무관하실 듯 보이네요 ^^