Технологии
Здравствуйте, помогите, пожалуйста, нарисовать блок-схему к написанной в паскале программе: - вопрос №5121166
program Program_2;
const Z:array[0..2, 0..3] of integer=((2,0,1,4),(4,4,-4,2),(-5,-5,-5,0));
var A: array[0..3] of integer;
i, j, k: integer;
f: boolean;
begin
writeln ('Исходный массив:');
for i:=0 to 2 do begin
for j:=0 to 3 do
write (Z[i,j]:3);
writeln
end;
k:=0;
for j:=0 to 3 do
begin
f:=false;
for i:=0 to 2 do
begin
if Z[i][j]=0 then
f:=true;
end;
if f then
begin
A[k]:=j;
k:=k+1;
end;
end;
if k > 0 then
begin
writeln('Столбцы с нулевыми элементами: ');
for i:=0 to k-1 do
writeln(A[i]);
end
else
writeln('Столбцов с нулевыми элементами нет.');
end.
апрель 6, 2023 г.
-
Всего ответов: 1
-
Конечно, я могу помочь вам нарисовать блок-схему для данной программы.
Ниже приведена блок-схема для программы на языке Pascal:Надеюсь, это поможет вам лучше понять, как работает данная программа.
+--------------+
| Begin |
+--------------+
| |
| Print «Исходный массив:» |
| |
| For i = 0 to 2 Do |
| For j = 0 to 3 Do |
| Print Z[i,j] |
| EndFor |
| Print "" |
| EndFor |
| |
| Set k = 0 |
| |
| For j = 0 to 3 Do |
| Set f = False |
| For i = 0 to 2 Do |
| If Z[i][j] = 0 Then |
| Set f = True |
| EndIf |
| EndFor |
| If f Then |
| Set A[k] = j |
| Set k = k + 1 |
| EndIf |
| EndFor |
| |
| If k > 0 Then |
| Print «Столбцы с нулевыми элементами: „ |
| For i = 0 to k-1 Do |
| Print A[i] |
| EndFor |
| Else |
| Print “Столбцов с нулевыми элементами нет.» |
| EndIf |
| |
| End. |
+--------------+
Похожие вопросы
Создай список, состоящий из N элементов, которые указываются функцией ввода данных. Первым вводом укажи размер списка (N), далее — элементы списка. Найди количество пар элементов, равных друг другу.
декабрь 21, 2021 г.
На какой срок допускается просрочить очередную проверку знаний на группу допуска по электробезопасности? Какой порядок действий для восстановления действующей группы?
апрель 19, 2015 г.