ВУЗ:
Составители:
12
Метод решения
Определим, что нужно найти, используя формальный язык:
(∀ i,j:1 ≤ i ≤ n and 1 ≤ j ≤ m :a[i,j]>0) or
(∃ i,j:1 ≤ i ≤ n and 1 ≤ j ≤ m :a[i,j]≤0).
Построение алгоритма аналогично тому, как это делалось в задаче 2.
Опишем алгоритм в виде функции
Def_Plus.
function Def_Plus(const a:matr; n,m:integer):Boolean;
var i, j :integer;
flag :Booleanl
begin
i:=1; flag:=true;
while (i <= n) and flag do
begin
j:=1;
while (j <= m) and flag do
begin
flag := a[i,j]>0;
j:=j+1
end;
i:=i+1
end;
Def_Plus:=flag
end;
Замечание: если flag сохранит значение true после проверки всех элемен-
тов матрицы, то это значит, что все элементы положительны и имя функции по-
лучит значение true; если хотя бы для одного из элементов не выполняется ус-
ловие a[I,j]>0, то flag и имя функции получат значение false, что и требовалось
получить.
Упражнение 7. Опишите в виде
процедуры или функции решение сле-
дующей задачи: найти позицию первого положительного элемента матрицы. Вы-
Страницы
- « первая
- ‹ предыдущая
- …
- 8
- 9
- 10
- 11
- 12
- …
- следующая ›
- последняя »
