자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
도서 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 7 - Exercise 2
2016.05.02 10:23
'시작하는 사람들을 위한 델파이 프로그래밍' 도서에서 제공하는 Exercise(연습문제) 입니다.
정해진 답은 없습니다. 해결방법을 찾으신 분은 아래 댓글로 공유해주세요.
간혹 수학이 나오지만, 충분히 할 수 있습니다. 필요하면 구글 검색에게 물어보세요.
중요한 것은 '내가 생각하면서 프로그래밍을 한다'는 것입니다.
모듈 7. 중첩된 IF...THEN...ELSE 문. 작업 해결 실습하기
Exercise 2.
연도가 주어지면 윤년인지 아니지를 알아내자. 연도를 4로 나눌 수 있으면 윤년이다. 하지
만 이 중에는 4 뿐만 아니라 100으로도 나눌 수 있는 연도들도 있는데, 이 경우에는 400으
로 나눌 수 있는 경우만 윤년이다. 예를 들어, 1700, 1800, 1900은 윤년이 아니다. 하지만
2000은 윤년이다.
도서 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 7 - Exercise 2
2016.05.02 10:23
|
'시작하는 사람들을 위한 델파이 프로그래밍' 도서에서 제공하는 Exercise(연습문제) 입니다. 정해진 답은 없습니다. 해결방법을 찾으신 분은 아래 댓글로 공유해주세요.
간혹 수학이 나오지만, 충분히 할 수 있습니다. 필요하면 구글 검색에게 물어보세요. 중요한 것은 '내가 생각하면서 프로그래밍을 한다'는 것입니다.
|
모듈 7. 중첩된 IF...THEN...ELSE 문. 작업 해결 실습하기
Exercise 2.
연도가 주어지면 윤년인지 아니지를 알아내자. 연도를 4로 나눌 수 있으면 윤년이다. 하지
만 이 중에는 4 뿐만 아니라 100으로도 나눌 수 있는 연도들도 있는데, 이 경우에는 400으
로 나눌 수 있는 경우만 윤년이다. 예를 들어, 1700, 1800, 1900은 윤년이 아니다. 하지만
2000은 윤년이다.
이번 문제도 중첩된 if문을 사용해서 풀어보았습니다.
procedure TForm1.Button1Click(Sender: TObject);
var
inputYear: integer;
begin
inputYear := strtoint(edit1.Text);
if inputYear mod 4 = 0 then
begin
if inputYear mod 100 = 0 then
begin
if inputYear mod 400 = 0 then
begin
label1.Caption := '윤년 입니다.';
end
else
label1.Caption := '윤년이 아닙니다.';
end
else
label1.Caption := '윤년 입니다.';
end
else
label1.Caption := '윤년이 아닙니다.';
end;