Пример алгоритма не удовлетворяющего свойству дискретности

206

413

Посмотреть ответы 2

Ответы на вопрос:

89640197456

Информатика

4,8(96 оценок)

алгоритм "дискретности" должен представлять процесс решения как последовательное выполнение простых (или ранее определенных) шагов. каждое действие, предусмотренное алгоритмом, исполняется только после того, как закончилось исполнение предыдущего.

например: ваня купил ручку, чтобы обменять с мишей на карандаш. если ручки не будет, то следовательно не будет и карандаша.

а вот "не удовлетворяющего свойству дискретности" ваня купил ручку и всё на этом закончилось.

удачи!

Gremlin222

Информатика

4,6(96 оценок)

Type m = array[,] of integer; // двумерный динамический v = array[1..2] of integer; // одномерный статический function npos(pm: m): integer; var i, j, p: integer; begin p : = 0; for i : = 0 to length(pm, 0) - 1 do for j : = 0 to length(pm, 1) - 1 do if pm[i, j] > 0 then p : = p + 1; npos : = p end; function nneg(pm: m): integer; var i, j, p: integer; begin p : = 0; for i : = 0 to length(pm, 0) - 1 do for j : = 0 to length(pm, 1) - 1 do if pm[i, j] < 0 then p : = p + 1; nneg : = p end; procedure getv(a: m; var c: v); begin c[1] : = npos(a); c[2] : = nneg(a) end; procedure initm(var a: m); var i, j: integer; begin for i : = 0 to length(a, 0) - 1 do for j : = 0 to length(a, 1) - 1 do a[i, j] : = random(100) - 50 end; procedure printm(a: m); var i, j: integer; begin for i : = 0 to length(a, 0) - 1 do begin for j : = 0 to length(a, 1) - 1 do write(a[i, j]: 4); writeln end end; var a1, a2, a3: m; b1, b2, b3: v; n1, m1, n2, m2, n3, m3: integer; begin randomize; writeln('введите число строк и столбцов массива'); readln(n1, m1); setlength(a1, n1, m1); initm(a1); writeln('массив а1'); printm(a1); getv(a1, b1); writeln('количество положительных ', b1[1], ', количество отрицательных ', b1[2]); writeln('введите число строк и столбцов массива'); readln(n2, m2); setlength(a2, n2, m2); initm(a2); writeln('массив а2'); printm(a2); getv(a2, b2); writeln('количество положительных ', b2[1], ', количество отрицательных ', b2[2]); writeln('введите число строк и столбцов массива'); readln(n3, m3); setlength(a3, n3, m3); initm(a3); writeln('массив а3'); printm(a3); getv(a3, b3); writeln('количество положительных ', b3[1], ', количество отрицательных ', b3[2]); end. тестовый прогон: введите число строк и столбцов массива 3 3 массив а1 6 11 -46 24 -41 36 44 9 18 количество положительных 7, количество отрицательных 2 введите число строк и столбцов массива 2 4 массив а2 37 -4 -2 43 -18 36 0 44 количество положительных 4, количество отрицательных 3 введите число строк и столбцов массива 5 2 массив а3 5 -15 49 -1 -40 35 -33 -9 -22 -31 количество положительных 3, количество отрицательных 7