1) 0+2 = 2
2) 2-1 = 1
3) 2
4) 1+2 = 3
Значит наша диграмма должна состоять из частей подходящих под цифры-пропорции 2,1,2,3.
Под эти цифры полностью подходит диаграмма № 1 ( на фото не видно какой номер,но должно быть 1 :) ). В левом верхнем углу.
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var ijv:=a.ElementsWithIndexes.Select(x->(x[0],x[1],abs(x[2])))
.MaxBy(x->x[2]);
for var i:=ijv[0] to n-2 do a.SwapRows(i,i+1);
for var j:=ijv[1] to n-2 do a.SwapCols(j,j+1);
SetLength(a,n-1,n-1); a.Println(4)
end.
<u>Пример</u>
Количество строк/столбцов в матрице: 5
87 -5 -38 -9 57
31 66 57 -25 40
11 66 99 -79 91
12 95 93 27 -97
33 -94 14 19 39
--------------------
87 -5 -9 57
31 66 -25 40
12 95 27 -97
33 -94 19 39
#include <iostream>
#include <math.h>
using namespace std;
int main(){
double m[10][10];
for (int i = 1; i <= 10; i++)
for (int j = 1; j <= 10; j++) {
cout << "Введите значение массива" << "[" << i << "]" << "[" << j << "]" << endl;
cin >> m[i][j];
if (j % 2 == 0) m[i][j] = pow(m[i][j],3);
}
for (int i = 1; i <= 10; i++)
for (int j = 1; j <= 10; j++)
cout << "m[" << i << "]" << "[" << j << "]=" << m[i][j] << endl;
return 0;
}
(Программа Паскаль )
var f : integer;
begin
readln (f);
if (f < 0) then writeln (-3)
else writeln (sqrt (f));
end.
Program a_1;
var xa,ya,y,l,x,k:real;
begin
writeln('введите координаты точки А');
read(xa,ya);
writeln('введите значение коэффициента k и l ');
read(k,l);
if ya=k*xa+l then
begin
writeln('Точка А принадлежит прямой');
end
else
if ya>k*xa+l then
begin
writeln('Находится выше прямой');
end
else
if ya<k*xa+l then
begin
writeln('Находится ниже прямой');
end
<span>end. </span>
