М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sahsaperrucci
sahsaperrucci
26.11.2021 02:42 •  Информатика

Есть исходный программный код на языке pascal, который решает определённую **, составить словесный подробный алгоритм решения (почему в циклах мы используем именно такие выражения, почему так происходит перебор элементов и т.п.)

*

uses crt;

const nmax=16;

var x: array[1..nmax,1..nmax]of integer;

y: array[1..nmax*nmax] of integer;

n,i,j,k,l: integer;

begin

randomize;

repeat

write('размер матрицы до ',nmax,' n=');

readln(n);

until n in [1..nmax];

writeln('матрица: ');

for i: =1 to n do

begin

for j: =1 to n do

begin

x[i,j]: =random(50);

write(x[i,j]: 4);

end;

writeln;

end;

writeln('массив: ');

k: =0;

for l: =2*n-1 downto 1 do //количество диагоналей

begin

if l> n then //выше главной

begin

if odd(l) then //нечетные-вниз

for i: =1 to 2*n-l do

begin

k: =k+1;

y[k]: =x[i,i+l-n];

end

else

for i: =2*n-l downto 1 do //четные-вверх

begin

k: =k+1;

y[k]: =x[i,i+l-n];

end

end

else if l< =n then //ниже главной и на ней

begin

if odd(l) then

for i: =n-l+1 to n do

begin

k: =k+1;

y[k]: =x[i,i-n+l];

end

else

for i: =n downto n-l+1 do

begin

k: =k+1;

y[k]: =x[i,i-n+l];

end;

end;

end;

for i: =1 to k do

write(y[i]: 4);

end.

**

дана матрица x размерности n*n . получить одномерный массив y размерности n^2 , выбирая элементы матрицы по цепи, начиная с верхнего правого угла, двигаясь по диагоналям, параллельным главной диагонали матрицы.

👇
Ответ:
дима2872
дима2872
26.11.2021

, как настроение? меня зовут алина, мне 18 лет. вчера рассталась с парнем, хочется секса без обязательств.

если тебе это интересно, напиши мне тут -

мой ник - kisska

4,4(68 оценок)
Открыть все ответы
Ответ:
pervushin752
pervushin752
26.11.2021
0. Начало
1. Ввод - Гвозди, картина молоток, стена
2. Операция - Прибить гвоздь к стене при молотка
3. Условие - Гвоздь прибит к стене? Нет->Повторить пункт 2;
Да->Переходим к пункту 4
4. Повесить картину на гвоздь
5. Конец

Ну это если не заморачиваться с условиями. К примеру можно после 4 пункта поставить условие на проверку положения картины, т.е Картина висит прямо? ->Нет то Действие выровнять положение картины;
Да->Конец

UPD: Ещё можно создать условие на состояние гвоздя - погнутый или целый, вытаскивание погнутого гвоздя и т.д.
4,6(14 оценок)
Ответ:
esken576
esken576
26.11.2021
Вот: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 const   n=5; var   a: array[1..n,1..n] of integer;   i,j,s: integer; begin   s: =0;   randomize;   for i: =1 to n do     begin       for j: =1 to n do         begin           a[i,j]: =random(10);           write(a[i,j]: 4);           if (i+j) mod 3=0 then             s: =s+a[i,j];         end;       writeln;     end;   writeln('s=',s); end.
4,8(43 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ