자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
도서 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 5 - Exercise 4
2016.05.02 10:18
'시작하는 사람들을 위한 델파이 프로그래밍' 도서에서 제공하는 Exercise(연습문제) 입니다.
정해진 답은 없습니다. 해결방법을 찾으신 분은 아래 댓글로 공유해주세요.
간혹 수학이 나오지만, 충분히 할 수 있습니다. 필요하면 구글 검색에게 물어보세요.
중요한 것은 '내가 생각하면서 프로그래밍을 한다'는 것입니다.
모듈 5. 논리 표현들. Boolean 타입 변수들. 논리 연산들
Exercise 4.
세 자리 정수가 텍스트박스에 입력되는 프로그램을 작성한다. 3 개의 숫자 중에서 어느 2
개 수의 합이 나머지 하나와 같은 경우 True라는 레이블이 나타나고 그렇지 않은 경우에
는 False라는 레이블이 나타나도록 하자.
- 다른 연습문제들도 풀어보세요!
댓글 3
-
관리자
2016.05.30 11:02
-
관리자
2016.06.09 10:27
깃허브(github)에 업로드된 소스코드는 별도 다운로드 받을 필요없이, RAD Studio(델파이, C++빌더)에서 바로 불러와 사용할 수 있습니다. 다음 링크를 통해 사용 방법을 확인해보세요: http://tech.devgear.co.kr/delphi_news/404452
-
달걀후라이
2020.07.01 21:24
이번 문제도 모듈5에서 배운 논리 연산자와 모듈3에서 배우는 산술 표현식을 이용해서 저는 풀어보았습니다.
procedure TForm1.Button1Click(Sender: TObject);
var
valueO, valueA, valueB, valueC : integer;
begin
valueO := strtoint(edit1.Text);
valueA := valueO div 100;
valueB := valueO div 10 - (valueA * 10);
valueC := valueO mod 10;
label1.Visible := (valueA + valueB = valueC) or (valueA + valueC = valueB) or (valueB + valueC = valueA);
label2.Visible := not((valueA + valueB = valueC) or (valueA + valueC = valueB) or (valueB + valueC = valueA));
end;
도서 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 5 - Exercise 4
2016.05.02 10:18
'시작하는 사람들을 위한 델파이 프로그래밍' 도서에서 제공하는 Exercise(연습문제) 입니다. 정해진 답은 없습니다. 해결방법을 찾으신 분은 아래 댓글로 공유해주세요.
간혹 수학이 나오지만, 충분히 할 수 있습니다. 필요하면 구글 검색에게 물어보세요. 중요한 것은 '내가 생각하면서 프로그래밍을 한다'는 것입니다.
|
모듈 5. 논리 표현들. Boolean 타입 변수들. 논리 연산들
Exercise 4.
세 자리 정수가 텍스트박스에 입력되는 프로그램을 작성한다. 3 개의 숫자 중에서 어느 2
개 수의 합이 나머지 하나와 같은 경우 True라는 레이블이 나타나고 그렇지 않은 경우에
는 False라는 레이블이 나타나도록 하자.
- 다른 연습문제들도 풀어보세요!
댓글 3
-
관리자
2016.05.30 11:02
-
관리자
2016.06.09 10:27
깃허브(github)에 업로드된 소스코드는 별도 다운로드 받을 필요없이, RAD Studio(델파이, C++빌더)에서 바로 불러와 사용할 수 있습니다. 다음 링크를 통해 사용 방법을 확인해보세요: http://tech.devgear.co.kr/delphi_news/404452
-
달걀후라이
2020.07.01 21:24
이번 문제도 모듈5에서 배운 논리 연산자와 모듈3에서 배우는 산술 표현식을 이용해서 저는 풀어보았습니다.
procedure TForm1.Button1Click(Sender: TObject);
var
valueO, valueA, valueB, valueC : integer;
begin
valueO := strtoint(edit1.Text);
valueA := valueO div 100;
valueB := valueO div 10 - (valueA * 10);
valueC := valueO mod 10;
label1.Visible := (valueA + valueB = valueC) or (valueA + valueC = valueB) or (valueB + valueC = valueA);
label2.Visible := not((valueA + valueB = valueC) or (valueA + valueC = valueB) or (valueB + valueC = valueA));
end;
제가 생각해 본 알고리즘을 깃허브(github)에 올려놓았습니다.
이 문제에 대한 정해진 해답은 없습니다. 이 소스도 참고 정도로만 활용하시면 좋을 것 같습니다.
제 소스 코드에 대한 다양한 의견은 환영합니다^^
https://github.com/devgear/delphi_algorism_book/tree/master/Excercise/%EB%AA%A8%EB%93%8805/Exercise4