델파이를 공부하는 학생입니다.
지금 에디트1에 숫자를 입력하여 숫자가 짝수면 1부터 입력한짝수번까지의 합과 홀수면 1부터 입력한 홀수번까지의 합이 에디트 2에 출력이 되게 하는거를 만들고있습니다. 그런데 문제는 짝수의 값과 홀수의 값 두개가 구해져서 합쳐진다는겁니다. 급하게 공부하느라 아직 많이 모릅니다....모르고 넘어갈수는 없기에 이렇게 글올립니다. 많은 조언 부탁드립니다.
var
sum,i,a : integer;
begin
a := strtoint(edit1.Text);
sum := 0;
for i:= 1 to a do
if(i mod 2)=0 then
sum:=sum+i
else
begin
if(i mod 2)=1 then
sum:=sum+i;
edit2.Text :=inttostr(sum);
end
end;
end.
현재 sum이란 변수에 홀수합과 짝수합이 같이 들어가도록 코딩이 되어있어서 두개가 합쳐진것입니다.