задача подсчет чтобы то число наити, можете обеснить Опции

[maksimla]

задание дан здоровое число m. Чисел строка 123456789 между ними некоторыми надо вставить знак плюс + или минус - ,чтобы все былобы равно числу m.
пример если m=1 то тогда так 1+2-34+56-7-8-9 подходит.
заполните пропущеные места (отмеченые многоточием).
нельзя использовать дополнительных переменных и нельзя никак изменять текст.
вот программа.

program zenkluIsdestymas;
  var t : array[2..9] of string;  {в массиве распределены цифры}
      m: integer;
  procedure BandauDetizenkla(skaitmuo, reiskinys : longint;
                              zenklas : char;
                              zenklo_vieta : integer);
  var naujas_reiskinys : longint;
      i: 2..9;
  begin
    if ... = '+'
      then naujas_reiskinys := ...
      else naujas_reiskinys := ...;
    if zenklo_vieta ...
      then
        begin
          t[zenklo_vieta] := ...; ...;
          t[zenklo_vieta] := ...; ...;
          t[zenklo_vieta] := ...; ...
        end

      else {проверка равности}
        if ... = m
          then
            begin
              for i := 2 to 9  do ...;
              writeln('9');
            end;
  end;
begin
 readln(m);
  fillchar(t, sizeof(t), '');
  BandauDetizenkla;(1, 0, '+', 2)
end.

можете обеснить что программа делает тут

fillchar(t, sizeof(t), '');

и как так считается числа все то я вот задал m=200 и никак несмог подсчитать
пожалста только в саму программу пока нечего невставляйте вместо точек хочется все самаму вставить подумать и вставить а сечас только понять мне надо

Сообщение отредактировано: maksimla - 27.02.2009 13:13

[maksimla]

program razpolozenie_znakov;
  var t : array[2..9] of string;
      m: integer;
  procedure probuju_vstaviti_znak(cislo, znacenie : longint;
                              znak : char;
                             mesto_znaka : integer);
  var novoe_znacenije : longint;
      i: 2..9;
  begin
    if znak = '+'{тут так новерное кроме znak больше нечего неподходит}
      then novoe_znacenije :=.... {тут данные какието плюсуются наверное˙}
      else novoe_znacenije :=....;{тут минусуются}
{тут без понятия что надо вставит в первые многоточие а во второе наверное probuju_vstaviti_znak с данными вставит }
 if mesto_znaka
      then
        begin
          t[mesto_znaka] := ...; ...;
          t[mesto_znaka] := ...; ...;
          t[mesto_znaka] := ...; ...
        end
      else
{тут будит проверятся что подсчитали уже с равно   m  и если правильно то потом выводить на экран наверное будит novoe_znacenije вставить тут}
        if {novoe_znacenije}.... = m
          then
            begin
              for i := 2 to 9  do ....;
              writeln('9');
            end;
  end;
begin
 readln(m);
 fillchar(t, sizeof(t),' ');
  probuju_vstaviti_znak(1, 0, '+', 2)
end.
 

так объясните мне пожалуйста если можете и еще тут это надо сделать так чтобы было поиск в глубину чтобы было бы

Сообщение отредактировано: maksimla - 1.03.2009 11:31