자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
도서 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 7 - Exercise 3
2016.05.02 10:42
'시작하는 사람들을 위한 델파이 프로그래밍' 도서에서 제공하는 Exercise(연습문제) 입니다.
정해진 답은 없습니다. 해결방법을 찾으신 분은 아래 댓글로 공유해주세요.
간혹 수학이 나오지만, 충분히 할 수 있습니다. 필요하면 구글 검색에게 물어보세요.
중요한 것은 '내가 생각하면서 프로그래밍을 한다'는 것입니다.
모듈 7. 중첩된 IF...THEN...ELSE 문. 작업 해결 실습하기
Exercise 3.
실수 X, Y (X≠Y) 가 주어지면, 작은 수는 두 수의 평균값으로 바꾸고, 큰 수는 자신의 3배
로 바꿔보자.
- 다른 연습문제들도 풀어보세요!
도서 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 7 - Exercise 3
2016.05.02 10:42
|
'시작하는 사람들을 위한 델파이 프로그래밍' 도서에서 제공하는 Exercise(연습문제) 입니다. 정해진 답은 없습니다. 해결방법을 찾으신 분은 아래 댓글로 공유해주세요.
간혹 수학이 나오지만, 충분히 할 수 있습니다. 필요하면 구글 검색에게 물어보세요. 중요한 것은 '내가 생각하면서 프로그래밍을 한다'는 것입니다.
|
모듈 7. 중첩된 IF...THEN...ELSE 문. 작업 해결 실습하기
Exercise 3.
실수 X, Y (X≠Y) 가 주어지면, 작은 수는 두 수의 평균값으로 바꾸고, 큰 수는 자신의 3배
로 바꿔보자.
- 다른 연습문제들도 풀어보세요!
procedure TForm1.Button1Click(Sender: TObject);
var
x, y: real;
begin
x := strtofloat(edit1.Text);
y := strtofloat(edit2.Text);
if x > y then
begin
//x가 큰값 y가 작은값, 작은 값은 평균 큰수는 자신의 3배
y := (y + x) / 2;
x := x * 3;
label1.Caption := 'x = ' + floattostr(x);
label2.Caption := 'y = ' + floattostr(y);
end
else
begin
x := (y + x) / 2;
y := y * 3;
label1.Caption := 'x = ' + floattostr(x);
label2.Caption := 'y = ' + floattostr(y);
end;
end;