подсчитать кусты роз, незнаю с чего начать Опции

[maksimla]

задача
Старик дед растит в саду розу. Старик забыл подвязать розы и коекакие кусты роз погибли и их пришлось выкопать некоторые розы. Выкопав эти розы сечас может на некоторые маленке кустики разбиты розы, любого размера и разной формы .

напишите а)идею решения задачи
б) написать программу сколько теперь маленких кустов.

Первичные данные записаны в файле duom.txt. На первой строчке написаны два натуральных числа отделенные пробелом числа n m (1<=n<=m<=100) На остальных n строчках написано m чисел неотделанных пробелом 0 или 1:0 показывает что в этом месте роз нету , 1 - есть.

результат записываем в файл rez.txt
первичные данные и результат пример
данные
3 12
110110110111
100010010111
111011010011
результат
4
обьяснение

11 11 11 111
1   1  1 111
111 11 1  11

видно что есть 4 куста роз

вместе с этой программой напишите генератор случайных чисел для этой программы

я так незнаю с чего начать и что делать чтобы программу эту выполнил только думаю сперва все в двойной массив записать а как дальше незнаю помогите


вот написал генератор но неправильно записывает цифры в файл почему? исправьте пожалуйста

program Bevarde1;
var  v: array [1..100,1..100] of byte;
i,j,n,m:integer;
 t:text;
begin
   assign (t, 'duom.TXT');
 rewrite (t);
  randomize;
  n:= random(10)+1;
  m:= random(10)+1;
  writeln(t,n,' ',m);
   for i:=1 to n do
    for j:=1 to m do
    v[j,i]:=random(2);
    
    for i:=1 to n do
    begin
    writeln ;
    for j:=1 to m do
    write(t,v[j,i]);
    writeln
    end;
  close(t);
end.

Сообщение отредактировано: Lapp - 15.02.2009 20:54

[maksimla]

можете обеснить как у вас эта рекурсия работает как она дальше идет
я и неразобрал подсчитал только это что сперва происходит
с такими данными
3 12
110110110111
100010010111
111011010011

идет так
a[1,1]=1;
a[2,1]=1;
a[3,1]=1;
a[3,2]=1;
a[3,3]=1;
все потом
end;
а потом строка
if (j>1)and(a[i,j-1]=-1)
потом
if (j<m)and(a[i,j+1]=-1)
потом
end;
и опять строка
if (j>1)and(a[i,j-1]=-1)
дальше запутался и какие данные уже идут может обьясните?

Добавлено через 13 мин.
На остальных n строчках написано m чисел неотделанных пробелом 0 или 1:0 показывает что в этом месте кустов роз нету , 1 - есть.

как понять что 1:0 и кустов роз нет надо будит наверное у приподователя спросить что он тут имел в виду и зачем написано знак : непонятно

может вы обьясните?

[Lapp]

Рекурсию объясню чуть позже, а сейчас вот про это:

как понять что 1:0 и кустов роз нет надо будит наверное у приподователя спросить что он тут имел в виду и зачем написано знак : непонятно
может вы обьясните?

Объясню, это несложно.
Вот оригинальная фраза:

На остальных n строчках написано m чисел неотделанных пробелом 0 или 1:0 показывает что в этом месте роз нету , 1 - есть.

В этой фразе пропущен один символ. Причем, на первый взгляд - совсем неважный. Этот символ - пробел. И он должен стоять после двоеточия (после ":"). Вот, смотри, так сразу становится понятнее:

На остальных n строчках написано m чисел неотделанных пробелом 0 или 1: 0 показывает что в этом месте роз нету , 1 - есть.

Но все же фраза построена плохо. Я бы ее построил так:

На остальных n строчках написано m чисел, неотделенных пробелом: 0 или 1. Ноль показывает что в этом месте роз нету , единица - есть.

Теперь понятнее? Правильность написания на любом языке важена, не только на Паскале . Ты только не обижайся, мы понимаем, что русский у тебя не родной язык, и стараемся вникать глубже.
Успехов тебе!