PROGRAM MultiplyMatrix2Vector; // произведение матрицы на вектор. // R[m] = A[m,n]*B[n]
const row = 2; col = 3; type matrix = array[1..row, 1..col] of byte; vect_mul = array[1..col] of byte; // вектор на который умножаем vect_res = array[1..row] of byte; // вектор с произведением
var A:matrix := ( (3, 7, 5), (1, 0, 4) ); //матрица B:vect_mul := ( 1, 2, 3 ); // вектор на который умножаем R:vect_res; // вектор с произведением
// m: количество рядов n: количество столбцов function mulMatVec(n,m:byte; var MX:matrix; var VR:vect_mul):vect_res; var i,j:byte; r:vect_res; begin for i:=1 to m do for j:=1 to n do R[i]:=R[i] + MX[i,j] * VR[j];
mulMatVec := R; end;
BEGIN writeln('Матрица: ', A); writeln('Вектор: ', B);
#include <iostream>
#include <Windows.h>
using namespace std;
void main()
{
setlocale(LC_ALL, "Russian");
float a, b, c;
Start:
system("CLS");
cout << "Введите 3 действительных числа:\n";
cin >> a;
cin >> b;
cin >> c;
if (a>b && a>c)
cout << "Вот что получится если удвоить ваши числа: " <<a*2<< b*2<<c*2<<"\n";
else
cout << "Заменяю ваши числа обсолютными значениями: " <<abs(a)<<abs(b)<<abs(c)<< "\n";
Sleep(5000);
goto Start;
}