#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; // генерація випадкових чисел в матриці
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)
cout << " " << mt[i][j]; // вивід видозміненої матриці
return 0; }
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
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
#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; }
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