Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

деталька

57K
28 июня 2010 года
n-andriy
5 / / 21.06.2010
Помогите реализовать пункты 2 и 3. Дана деталь в виде 2-мерного массива. Просканировать ее и определеить количество отверстий (количество нулей). Дополнительные условия:
1) если по краям детали нули - это не отверстия.
2) если несколько отверстий подряд идут - то это одно отверстие
3) если отверстия касаются друг друга углами - это не отверстие.

program task21;
uses crt;
var a:array [1..10,1..10] of integer;
i,j,n,m:byte;
count:integer;

procedure FillArray;
begin
writeln('Vvedite dannue detali:');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
end;

procedure print;
begin
clrscr;
writeln('Vasha detal vuglyadit tak:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]);
writeln;
end;
end;

begin
clrscr;
writeln('Vvedite razmer detali cherez probel:');
readln(n,m);
FillArray;
print;

for i:=1 to n do
for j:=1 to m do
if (a[i,j] = 0) then count:=count+1;


if (a[1,1]=0) then count:=count-1;
if (a[n,1]=0) then count:=count-1;
if (a[1,m]=0) then count:=count-1;
if (a[n,m]=0) then count:=count-1;

writeln('Kol-vo otverstii y detali = ',count);

readln;
end.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог