아 일단 위의 그림을 보니 초딩떄 처음 접했던 가우스 함수가 생각나네요..

여러분 1 부터 10까지 더하면 몇일까요..~~

아이들 연필굴러가는 소리 슥슥슥~~~

그러나 저는 뭔가 있을것이라는 마음에 머리를 굴려서 풀었더랍니다..

죄성 자랑만해서..~~ 일단 아시죠 가우스 함수 근데 이거 가우스 함수 맞나??

어쨋든 전 가우스 함수라구 부를 겁니다..1부터 10까지 더할라면 (1+10)*5=55

이 정도면 답이될라나요?? 가우스함수를 바깥에서 한번 안에서 한번 써주면

위그림 나오겠죠 당근 뭐 안에다가 if 문을 쓴다거나 해서 배열의 인덱스가

예) 첫쨰행 if 1이나 10 이다 then 인덱스[i] else 공백

더 헷갈리나??? 저도 일땜에 머리쓰기 시로소 이정도만 갈켜드릴꼐요..

좀만 노력하시면 알거에여

그럼 즐델~~~~

될때까지 끝까지 해 보시구요,

어떻게 어떻게 코드를 작성해 보았는데

제 생각은 이래서 이렇게 코드를 작성했습니다.

라고 글을 올려주시고, 이럴땐 어떻게 하면 좋을까요?

하고 글을 올려주시면 더욱 좋겠네여..^_^;

분명히 하시다 보면 결과가 나올겁니다.

장담합니다.

예전에 다 해본거기 때문에 말씀드리는 거구요..

끝까지 하루종일 해 보았는데도 안된다면 다시 올려주세요.

제가 직접 만들어 설명도 올려드리져.

그럼~ 즐거운 프로그래밍 하시길~~

KDDG_MIN님의 말이 맞습니다.

다음에는 KDDG_MIN님 말씀대로 하시고

제가 답변을 한것은 아니지만  다른 님들이 하신 답변을 그대로 올립니다.

그리고  질답에 이렇게 검색을 해보세요

No:9684,  Name:도리도리,  Content:2차원 배열.....


그럼 수고 하세요
(아래 답변은 x가 아니라 ㅂ입니다.)



음... 설명이 긴데..
이차원배열의 선언은 알져?
var aaa = array[1..7,1..7] of string ;
이문제는 배열보자는 글자채우는 방식이 문제인거 같은데..

for i := 1 to 7 do
begin    
   v_max := 7 ;
   for j := 1 to 7 do
   begin
         if i = j then aaa[i,j] := 'ㅂ'  
        else if j = v_max then aaa[i,j] := 'ㅂ'
        else aaa[i,j] := ' ' ;
   end ;
   dec(v_max) ;
end ;

for i := 1 to 7 do
begin
    for j := 1 to 7 do
        memo1.Text := memo1.Text + aaa[i,j] ;
    memo1.Text := memo1.Text + #13 ;
              // enterkey를 이렇게 넣어도 되나 ? 안해봐서리..
end ;
이렇게 하면 되지 않을까여??