Q&A
- [초보]누구나 대답할수 있는 질문1
제가 델파이 공부를 시작했는데요...1부터 100 까지 더하기를 할려구 하거든요..
근데 홀수만 하고 싶거든요...-_-"
procedure TForm1.Button1Click(Sender: TObject);
var
i, My_Total : Integer;
begin
My_Total := 0;
For i := 1 To 100 do
begin
if even(i) then continue; <= 요거 에러나더라구요?
end;
My_Total := My_Total + i;
sume.Caption := IntToStr(My_Total);
end;
end.
이렇게 했는데 에러가 나더라구요...시작한지 한 3일 됐는데 저거 왜 잘못됐죠?
'even' 이랑 'Odd' 요거 두개 겨우찾았어요..첨엔 별거 별거 무식한 방법 다 해 봤는데 안되더라구요...잘못된 부분을 "콕" 찍어서 초보에게 "자세히" 좀 갈켜주십시오...*^^*
근데 홀수만 하고 싶거든요...-_-"
procedure TForm1.Button1Click(Sender: TObject);
var
i, My_Total : Integer;
begin
My_Total := 0;
For i := 1 To 100 do
begin
if even(i) then continue; <= 요거 에러나더라구요?
end;
My_Total := My_Total + i;
sume.Caption := IntToStr(My_Total);
end;
end.
이렇게 했는데 에러가 나더라구요...시작한지 한 3일 됐는데 저거 왜 잘못됐죠?
'even' 이랑 'Odd' 요거 두개 겨우찾았어요..첨엔 별거 별거 무식한 방법 다 해 봤는데 안되더라구요...잘못된 부분을 "콕" 찍어서 초보에게 "자세히" 좀 갈켜주십시오...*^^*
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 바보감자
- •
- 2001.01.27 22:27
- 2 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.01.27 23:06바보감자 wrote: > 안녕하세여 최고의 멍텅구리 바보입니당 꾸벅.. > 제가 질문 하나 올리겠습니다... >... -
바보감자•2001.01.28 00:24김광섭 wrote: > 바보감자 wrote: > > 안녕하세여 최고의 멍텅구리 바보입니당 꾸벅.. > > 제가 질문 하...
-
- 김광철
- •
- 2001.01.27 21:37
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.01.27 21:47김광철 wrote: > > 화면상에서 Mouse 클릭만으로 특정 Caption에 글자가 입력되는 효과를 > > 낼수 ...
-
- 파이파이
- •
- 2001.01.27 21:25
- 1 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.01.27 23:15파이파이 wrote: > 질문> 스피드버튼의 모양을 삼각형 또는 마름모형태로 바꿀수 없나요... > 그렇게...
-
- ZEUS
- 2001.01.27 21:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 최재봉
- 2001.01.27 20:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 이태성
- •
- 2001.01.27 20:17
- 2 COMMENTS
- /
- 0 LIKES
-
기상원•2001.01.28 03:50www.myecrc.com 으로 가서 질문해 보세요..... 이태성 wrote: > 안녕하세요 > 프린터 포트를 이용하...
-
바람개비•2001.01.28 01:07그건 프린터포트든 시리얼포트든 특정신호를 출력하면 인식할수 있게끔 외부의 장치가 있어야지요. 무작...
-
- tommy28
- •
- 2001.01.27 20:09
- 1 COMMENTS
- /
- 0 LIKES
-
이만준•2001.01.27 21:59안녕하세요... 아래 함수를 이용해보세요... 이유는 잘 기억이 안나는데... WinExec 함수를 언제부...
-
- 매일웃자
- •
- 2001.01.27 20:47
- 6 COMMENTS
- /
- 0 LIKES
-
매일웃자•2001.01.29 19:16매일웃자 wrote: > 질문이 좀 이상했나봅니다. > 아무도 답을 안해주셔서 이렇게 다시한번 질문 올립니다...
-
몰러•2001.01.28 06:19파일로부터 레코드를 읽기 위한 것도 아니고 단순히 한줄의 코드를 덜 적기 위한 것으로밖에 보이지 않는데...
-
매일웃자•2001.01.29 19:07몰러 wrote: > 파일로부터 레코드를 읽기 위한 것도 아니고 단순히 한줄의 코드를 덜 적기 위한 것으로밖...
-
김광섭•2001.01.27 23:22매일웃자 wrote: > 질문이 좀 이상했나봅니다. > 아무도 답을 안해주셔서 이렇게 다시한번 질문 올립니다...
-
이만준•2001.01.27 21:55안녕하세요... 델파이의 문자열과 C에서 사용하는 문자열은 다릅니다... 스트링에 대한 설명은 팁 페...
-
왕초•2001.01.27 21:22님께서 정확하게 어떤 걸 구현할려고 하는지 모르겠지만 저두 예전에 님과 비슷한 걸 구현할려구 했던적...
-
- hnc
- 2001.01.27 19:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 올랭이
- 2001.01.27 19:03
- 0 COMMENTS
- /
- 0 LIKES
-
-
김광섭•2001.01.27 23:28초보델파이어 wrote: > 안녕하세여 > 제가 어떤 프로그램을 해석하면서 제나름대로 고쳐가면서 배우고 싶...
-
-
- 궁금점
- •
- 2001.01.27 17:28
- 2 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.01.27 19:32궁금점 wrote: > 안녕하세요. > 델파이 초보입니다. 계속되는 질문만을 하는것 같아서 죄송합니다. > ...
-
궁금점•2001.01.28 08:16> 안녕하세요. > 델파이 초보입니다. 계속되는 질문만을 하는것 같아서 죄송합니다. > 전 델파이5를 사...
-
- 궁금점
- •
- 2001.01.27 15:51
- 1 COMMENTS
- /
- 0 LIKES
-
액션가면•2001.01.27 23:28안녕하세염~ 일단 SYSDBA의 패스워드는 IBConsole 프로그램 메뉴중 Server - User Security항목에서 ...
-
- 우진회
- •
- 2001.01.27 13:43
- 1 COMMENTS
- /
- 0 LIKES
제가 델파이 공부를 시작했는데요...1부터 100 까지 더하기를 할려구 하거든요.. 근데 홀수만 하고 싶거든요...-_-" procedure TForm1.Button1Click(Sender: TObject); var i, My_Total : Integer; begin My_Total := 0; For i := 1 To 10...-
나그네•2001.01.27 15:43procedure TForm1.Button1Click(Sender: TObject); var ixa, ixb, hap: Integer; begin hap := 0; ...
-
- 이쁜이
- •
- 2001.01.27 13:18
- 2 COMMENTS
- /
- 0 LIKES
-
서철기•2001.01.27 18:38TImage에 올려 놓을거면. Image1.Picture.LoadFromFile('c:bmptest.bmp'); -----------------------...
-
이쁜이•2001.01.27 20:50procedure TForm1.input1Click(Sender: TObject); var i, j, k: Integer; tempCd: String; beg...
-
- 이쁜이
- 2001.01.27 13:15
- 0 COMMENTS
- /
- 0 LIKES
-
- parkisu
- 2001.01.27 11:36
- 0 COMMENTS
- /
- 0 LIKES
-
- ripper-rocka
- •
- 2001.01.27 10:08
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2001.01.27 13:15저두 윈도 2000으로 서버를 변경하고 비슷한 에러로 고생한 적이 있어 하자 적습니다. NT에서는 경험하...
-
- 유도경
- 2001.01.27 08:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.01.27 05:26
- 1 COMMENTS
- /
- 0 LIKES
-
뻐록이•2001.01.27 05:54초보 wrote: > 안녕들 하시지요? > > 새해 복들 많이 받으세요.. > > 뭐좀 하다보니 막히는 부분이 ...
var
ixa, ixb, hap: Integer;
begin
hap := 0;
For ixa := 1 To 100 do begin
ixb := ixa mod 2; ==> ixa를 2로 나누어 나머지가 0 (짝수)
if ixb = 1 then hap := hap + ixa; ==> ixa를 2로 나누어 나머지가 1 (훌수)
end;
sume.Caption := IntToStr(hap);
end;