Создание риунка из цифр в Паскаль

[veraivanova]

Нужно создать прогу, которая будет строить цифры по типу как изображено на риунке Сохраненное изображение 2015-6-18_20-23-56.250.jpg.
Возникают некоторые проблемы с последней строкой.
Вот текст проги:

program Project1;
uses crt;
var i,j,N,m: Integer;

begin
write('N=');
read(N);
i:=1;

begin
write(' ':i);
for j:=1 to N do
begin
Write(i);
end;
writeln;
end;
begin
i:=i+1;
while i<=round(N/2) do
begin
write(' ':i);
for j:=i to (N-i) do
begin
write(i);
end;
i:=i+1;
writeln;
end;
end;
begin
m:=trunc(N/2);
repeat
begin
write(' ': (m-1));
for j:=i to (j+3) do
begin
write(i);
end;
writeln;
i:=i+1;
m:=m-1;
end;
until i>N;
end;

Readkey;
end.

Помогите, пожалуйста, найти и устранить ошибку.

[eoln]

Осторожно извращение

var
  i, j, k, n: integer;
begin
  n := 7;
  for i := 1 to n do begin
    k := abs(  n - 2 * i + 2 * (1 - i div (n div 2 + 1))  );
    write('':(n-k) div 2);
    for j := 1 to k do write(i);
    writeln;
  end;
  readln;
end.

[min@y™]

начало

function GetFuckingLine(const c: char; const count, shift: integer): string;
var
  idx: integer;
  buf: string; // result
begin
  for idx:= 0 to shift - 1 do buf:= buf + ' ';
  for idx:= 0 to count - 1 do buf:= buf + c;
  GetFuckingLine:= buf; // result
end;

Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!

[Алексей_2012]

Мне кажется, или это рекурсия?

[ViktorR]

А у меня получилось так

function NewStr(n,m: integer; ch1, ch2: char): string;
var s1, s2 : string;
         i : integer;
begin
   s1 := ''; s2 := '';
   for i := 1 to n do s1 := s1 + ch1;
   for i := 1 to m do s2 := s2 + ch2;
   NewStr := s1 + s2 + s1;
end;

var k, m, n : integer;
   ch1, ch2 : char;
begin
   write('K = '); readln(k);
   n := -1;
   if (NOT odd(k)) then {чет?}
      m := k + 3        {делаем нечет}
   else
      m := k + 2;
   ch1 := ' '; ch2 := '0'; {вместо пробела можно другой символ}

   while m >= 3 do {туда}
   begin
      inc(n); dec(m,2); ch2 := succ(ch2);
      writeln(NewStr(n, m, ch1, ch2));
   end;

   while m < k do {обратно}
   begin
      dec(n); inc(m,2); ch2 := succ(ch2);
      writeln(NewStr(n, m, ch1, ch2));
   end;
   readln; {смотрим}
end.

Как-то так, ...

[Serge_Bliznykov]

Сообщение от Алексей_2012

Мне кажется, или это рекурсия?

Вам показалось, тут нет никакой рекурсии.

[Poma][a]

Вам показалось, тут нет никакой рекурсии

Вам показалось, вот она родимая

uses Math;
procedure F(n, k : Integer);
begin
	if n = 2*k then Exit;
	WriteLn(StringOfChar(Chr(48+n), Abs(k-n)*2+1):max((2*k-n), n));
	F(n+1, k)
end;

begin
	F(1, 4)
end.