자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
도서 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 6 - Exercise 4
2016.05.02 10:21
'시작하는 사람들을 위한 델파이 프로그래밍' 도서에서 제공하는 Exercise(연습문제) 입니다.
정해진 답은 없습니다. 해결방법을 찾으신 분은 아래 댓글로 공유해주세요.
간혹 수학이 나오지만, 충분히 할 수 있습니다. 필요하면 구글 검색에게 물어보세요.
중요한 것은 '내가 생각하면서 프로그래밍을 한다'는 것입니다.
모듈 6. 프로그램에서 조건에 따라 실행. IF...THEN...ELSE 문
Exercise 4.
집이 하나 있는데 이 집에는 방이 n개가 있고 각 방에는 순서대로 방 번호가 붙어 있다.
번호는 a 부터 시작한다. 이 집에 있는 모든 방의 번호를 더하면 짝수인지 아닌지를 알
아내보자.
- 다른 연습문제들도 풀어보세요!
도서 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 6 - Exercise 4
2016.05.02 10:21
|
'시작하는 사람들을 위한 델파이 프로그래밍' 도서에서 제공하는 Exercise(연습문제) 입니다. 정해진 답은 없습니다. 해결방법을 찾으신 분은 아래 댓글로 공유해주세요.
간혹 수학이 나오지만, 충분히 할 수 있습니다. 필요하면 구글 검색에게 물어보세요. 중요한 것은 '내가 생각하면서 프로그래밍을 한다'는 것입니다.
|
모듈 6. 프로그램에서 조건에 따라 실행. IF...THEN...ELSE 문
Exercise 4.
집이 하나 있는데 이 집에는 방이 n개가 있고 각 방에는 순서대로 방 번호가 붙어 있다.
번호는 a 부터 시작한다. 이 집에 있는 모든 방의 번호를 더하면 짝수인지 아닌지를 알
아내보자.
- 다른 연습문제들도 풀어보세요!
등차수열의 합 공식을 이용해서 풀어보았습니다.
procedure TForm1.Button1Click(Sender: TObject);
var
valueA, valueX, sumAX : integer;
begin
valueA := strtoint(edit1.Text);
valueX := strtoint(edit2.Text);
sumAX := ((valueX - valueA + 1)*(valueA + valueX)) div 2;
//등차수열의 합 공식인 Sn = n(a+l) / 2를 통해서 합을 확인
if sumAX mod 2 = 0 then
label1.Caption := '짝수 입니다.'
else
label1.Caption := '홀수 입니다.';
end;