В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Kristina1605lps
Kristina1605lps
22.02.2022 15:16 •  Информатика

Сильный победит одного, знающий - тысячуопределите информационный объем (i) данного выше текста, если мощность(n) использумаего алфавита равна 256 символов

Показать ответ
Ответ:
irishakrivoshe
irishakrivoshe
06.11.2020 22:37

#include <iostream>

using namespace std;

int main()

{

int n; cout << "розмір квадратної матриці = ";

cin >> n;

int mt[n][n]; // оголошення матриці розмірністю n*m, де n = m = n

srand(time(NULL));

cout << "була: " << endl;

for (int i = 0; i < n; i++)

for (int j = 0; j < n; j++)

mt[i][j]=rand()%21-10; // генерація випадкових чисел в матриці

for (int i = 0; i < n; i++)

{

for (int j = 0; j < n; j++)

cout << " " << mt[i][j]; // вивід матриці

cout << endl;

}

cout << endl << "стала: " << endl;

for (int i = 0; i < n; i++) //індексація масивів у C++ завжди з 0, тому ДО n

{

int* temp=new int[n]; // видозмінити матрицю (двовимірний масив) можна за до одновимірного динамічного масиву temp[n] або змінної temp

temp[i] = mt[n-1][i]; // записати ("покласти") в масив temp "копію" останнього (n-1) рядка матриці

mt[n-1][i] = mt[i][0]; // останній (n-1) рядок матриці обернути на перший (нульовий) стовпець матриці

mt[i][0] = temp[i]; // перший (нульовий) стовпець обернути на «копію» останнього (n-1) рядка, яка міститься в допоміжному масиві temp (зчитати з temp)

}

for (int i = 0; i < n; i++)

{

 for (int j = 0; j < n; j++)

cout << " " << mt[i][j]; // вивід видозміненої матриці

 cout << endl;

}

return 0; }

0,0(0 оценок)
Ответ:
dreamsk831
dreamsk831
14.05.2023 13:59

program abc;

uses crt,graphabc;

const

name: array [1..5] of string=('ñåìÿ','ïðîðîñòîê','çåëåíûé ïðîðîñòîê','ðàñòåíèå ñ öâåòêîì','ñ ïëîäîì');

var

k:array[1..5]of integer;

i:integer;

begin

setwindowsize(300,450);

setwindowcaption('æèçíåííûé öèêë ðàñòåíèÿ');

setfontcolor(clgreen) ;

setfontsize(16);

setfontstyle(fsbold);

hidecursor;

for i:=1 to 5 do

begin

k[i]:=loadpicture('D:\pic\plant'+inttostr(i)+'.jpg');

drawpicture (k[i],0,35);

textout(50,10,name[i]);

sleep(1500);

if i<=3 then clearwindow;

end;

end.

Объяснение:

к pascal abc

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота