Дано задание. Пересчитать значения элементов вектора М размерности n по правилу:Mk=(Mk + 2)/ (Mk - 2), при Mk не равным 2 .Проанализировать выполнение программы на примере: М={2; 0; 3; 10; -1; 6; 1; 2} Необходим скрин с выполненным решение, результат. Private Sub Command1_Click()
Dim M, k As Integer
M = Array(2, 0, 3, 10, -1, 6, 1, 2)
PrintArray "Исходный вектор", M
For k = LBound(M) To UBound(M)
If M(k) <> 2 Then M(k) = (M(k) + 2) / (M(k) - 2)
Next k
PrintArray "Результат", M
End Sub
Private Sub PrintArray(ByVal ArrayName As String, ByRef M As Variant)
Dim k As Integer
Print
Print ArrayName
For k = LBound(M) To UBound(M)
Print M(k) & " ";
Next k
Print
End Sub
#include < iostream >
using namespace std;
int main(){
int a, b, c, d, u;
cout << "Все четыре угла прямые (Да - 1/Нет - 0)?" << endl;
cin >> u;
switch(u){
case 0:{
cout << "Введите длины сторон: " << endl;
cin >> a >> b >> c >> d;
if((a==c && d == b) && (a==b && c==d)&&(a==d && b==c) &&(c==b && a == d))
cout << "Не параллелограмм";
else if((a==c && d == b) || (a==b && c==d)||(a==d && b==c) || (c==b && a == d))
cout << "Параллелограмм";
else
cout << "Не параллелограмм";
break;
}
case 1:{
cout << "Не параллелограмм";
}
}
}
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,1,50);
a.Println(3); Writeln(3*a.ColCount*'-');
// начало расчетов
var s:=0;
for var i:=0 to n-1 do s+=a[i,n-i-1];
Writeln('1: S=',s);
Write('2: Суммы построчно: '); a.Rows.Select(row->row.Sum).PrintLn;
Write('3: Произведение элементов: ');
a.ElementsByRow.Aggregate(BigInteger(1),(p,q)->p*q).PrintLn;
var p:BigInteger:=1;
for var i:=0 to n-1 do p*=a[i,i];
Writeln('4: П=',p);
end.