Двумерный массив: Определить есть ли в данном массиве отрицательный элемент

@Vitaliy* · Регистрация: 22.12.2011

Студворк — интернет-сервис помощи студентам

Программу нужно составить с использованием Function, ответ должен выдать как True или False

@КонецСвета · 23.01.2012, 13:57

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
const nmax=20;
type matr=array [1..nmax,1..nmax] of integer;
var n,i,j: byte;
    a: matr;
 
function IsOtr (z: matr):boolean;
var k: integer;
begin
for i:=1 to n do
    for j:=1 to n do
        if z[i,j]<0 then inc(k);
IsOtr:=k>0;
end;
 
begin
repeat
write('Razmernost matrizy, ne bolee ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Dana matriza');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:3);
        end;
    writeln;
    end;
writeln(IsOtr (a));
readln;
end.

@Vitaliy* · 24.01.2012, 10:42 **[ТС]**

Программа не работает,если поставить,чтоб заполнял положительными элементами!!!Всегда выдаёт ответ True как это исправить???

@Andyc · 24.01.2012, 15:54

Сообщение от Vitaliy*

Программа не работает,если поставить,чтоб заполнял положительными элементами!!!Всегда выдаёт ответ True как это исправить???

Pascal
1
2
3
4
5
6
7
8
9
function IsOtr (z: matr):boolean;
var k: integer;
begin
k:=0;
for i:=1 to n do
    for j:=1 to n do
        if z[i,j]<0 then inc(k);
IsOtr:=k>0;
end;

@Vitaliy* · 27.01.2012, 15:23 **[ТС]**

Не работает программа!Не выдаёт правильно!

@Ev[G]eN · 28.01.2012, 16:16

Сообщение от Vitaliy*

Программа не работает,если поставить,чтоб заполнял положительными элементами!!!Всегда выдаёт ответ True как это исправить???

я попробовал...у меня выдает False...все правильно работает

@Vitaliy* · 28.01.2012, 16:20 **[ТС]**

Да странно,я тоже сейчас попробовал,работает! Но вот у меня в ABS работает,а вот на турбо паскале подчёркивает K, и программа работает через раз!

@Ev[G]eN · 28.01.2012, 16:21

Сообщение от Vitaliy*

Но вот у меня в ABS работает

вот и работайте на ABC

@Vitaliy* · 28.01.2012, 16:48 **[ТС]**

В учебном заведении турбо!

@КонецСвета · 28.01.2012, 18:54

Vitaliy*, пробовали ли Вы поправку, которую предложил Andyc? с ней все работает =) (всего одну строчку добавьте в начало функции k:=0)

@Vitaliy* · 29.01.2012, 09:48 **[ТС]**

Я пробовал)))

@КонецСвета · 29.01.2012, 13:30

Сообщение от Vitaliy*

Я пробовал)))

и... работает? или исправлять? =)

@Vitaliy* · 29.01.2012, 13:31 **[ТС]**

Работает)

Новые блоги и статьи Все статьи Все блоги /
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .

@Vitaliy* 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 36

	Двумерный массив: Определить есть ли в данном массиве отрицательный элемент 23.01.2012, 05:35. Показов 2812. Ответов 12 Метки нет (Все метки) Программу нужно составить с использованием Function, ответ должен выдать как True или False 0

@Vitaliy* 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 36
	24.01.2012, 10:42 [ТС]
	Программа не работает,если поставить,чтоб заполнял положительными элементами!!!Всегда выдаёт ответ True как это исправить??? 0

@Vitaliy* 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 36
	27.01.2012, 15:23 [ТС]
	Не работает программа!Не выдаёт правильно! 0

@Vitaliy* 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 36
	28.01.2012, 16:20 [ТС]
	Да странно,я тоже сейчас попробовал,работает! Но вот у меня в ABS работает,а вот на турбо паскале подчёркивает K, и программа работает через раз! 0

@Vitaliy* 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 36
	28.01.2012, 16:48 [ТС]
	В учебном заведении турбо! 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	28.01.2012, 18:54
	Vitaliy, пробовали ли Вы поправку, которую предложил Andyc*? с ней все работает =) (всего одну строчку добавьте в начало функции k:=0) 1

@Vitaliy* 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 36
	29.01.2012, 09:48 [ТС]
	Я пробовал))) 0

@Vitaliy* 0 / 0 / 0 Регистрация: 22.12.2011 Сообщений: 36
	29.01.2012, 13:31 [ТС]
	Работает) 0