Question

Помогите, пожалуйста, составить блок-схему. program lol; uses crt; const nmax=20;//максимальный размер матрицы var a:array[1..nmax,1..nmax] of integer;//тип матрицы n,m,i,j:byte;//переменные - размеры матрицы, счетчики циклов sm,b:integer;//сумма, переменная для чтения чисел s1,s2:set of byte;//множества чисел от 0 до 255 begin clrscr;//очищаем экран randomize;//генерация псевдо-случайных чисел repeat write('Количество строк='); readln(m); until m in [1..nmax];//проверяем правильность ввода repeat write('Количество столбцов='); readln(n); until n in [1..nmax]; writeln('Исходная матрица:'); for i:=1 to m do//выводим матрицу по строкам begin for j:=1 to n do begin a[i,j]:=random(20);//случайные числа от 0 до 19 write(a[i,j]:4); end; writeln; end; writeln; writeln('Множество S1:'); s1:=[];//пустое множество for i:=1 to m do begin b:=random(m)+1;//наполняем случайными числами от одного до количества строк s1:=s1+[b];//записываем в множество end; for i:=1 to m do if i in s1 then write(i,' ');//выводим элементы множества на экран writeln; writeln('Множество S2:'); s2:=[]; for i:=1 to n do begin b:=random(n)+1; s2:=s2+[b]; end; for i:=1 to n do if i in s2 then write(i,' '); writeln; writeln; sm:=0;//сумма пока ноль for i:=1 to m do//идем по матрице for j:=1 to n do if(i in s1)and(j in s2) then sm:=sm+a[i,j];{если номер строки и номер столбца есть в соответствующих им множествам, суммируем} write('Сумма=',sm);//выводим сумму на экран readln; end.

Answer 1

Вот как-то так.

 

p.s. кружочки - это вроде разрыва, мне сложно было все в один столбик :)

Answer 2

Я могу помочь вам создать блок-схему для вашей программы на языке Паскаль. Блок-схема - это диаграмма, которая показывает логику и последовательность действий алгоритма. Блок-схема состоит из различных символов, которые соединяются линиями. Каждый символ имеет свое значение и функцию. Например, символ овала означает начало или конец программы, символ прямоугольника означает операцию или присваивание, символ ромба означает условие или выбор, и т.д.

Для создания блок-схемы вы можете использовать специальные программы, такие как [Code to Flowchart](https://codetoflow.com/) или [AthTek Code to Flowchart](http://www.athtek.com/code-to-flowchart/convert-pascal-source-code-to-flowchart.html), которые автоматически генерируют диаграмму из вашего исходного кода. Вы также можете нарисовать блок-схему вручную, следуя определенным правилам и соглашениям. Вот пример блок-схемы для вашей программы:

st=>start: Начало
e=>end: Конец
io1=>inputoutput: Ввод m, n
op1=>operation: clrscr
op2=>operation: randomize
cond1=>condition: m in [1..nmax]?
cond2=>condition: n in [1..nmax]?
op3=>operation: Исходная матрица
op4=>operation: Множество S1
op5=>operation: Множество S2
op6=>operation: Сумма
io2=>inputoutput: Вывод sm
st->io1->op1->op2->cond1
cond1(yes)->cond2
cond1(no)->io1
cond2(yes)->op3
cond2(no)->io1
op3->op4->op5->op6->io2->e

Надеюсь, это поможет вам понять, как создать блок-схему для вашей программы. Если у вас есть другие вопросы, я буду рад ответить на них. Спасибо за использование Bing.