Нахождение произведения матриц - Turbo Pascal

  1. Даны две матрицы А(nxn) и B(nxn). Написать программу нахождения произведения этих матриц D = A*B.


textual

Код к задаче: «Нахождение произведения матриц - Turbo Pascal»

uses crt;
const nmax=20;
var A,B,U:array[1..nmax,1..nmax]of integer;
    ka,la,kb,lb,i,j,r:integer;
begin
clrscr;
randomize;
writeln('Razmery matricy A:');
repeat
write('Kolichestvo strok ka=');readln(ka);
until (ka>0)and(ka<=nmax);
repeat
write('Kolichestvo stolbcov la=');readln(la);
until (la>0)and(la<=nmax);
writeln('Razmery matricy B:');
repeat
write('Kolichestvo strok kb=');readln(kb);
until (kb>0)and(kb<=nmax);
repeat
write('Kolichestvo stolbcov lb=');readln(lb);
until (lb>0)and(lb<=nmax)and(lb=ka); 
writeln('Matrica A:');
for i:=1 to ka do
   begin
     for j:=1 to la do
       begin
         A[i,j]:=random(9)+1;
         write(A[i,j]:3);
       end;
     writeln;
   end;
readln;
writeln('Matrica B:');
for i:=1 to kb do
   begin
     for j:=1 to lb do
       begin
         B[i,j]:=random(9)+1;
         write(B[i,j]:3);
       end;
     writeln;
   end;
readln;
for r:=1 to ka do
for j:=1 to lb do
   begin
     U[r,j]:=0;
     for i:=1 to la do
       begin
         U[r,j]:=U[r,j]+A[r,i]*B[i,j];
       end;
   end;
writeln('Matrica U=A*B:');
for i:=1 to ka do
    begin
      for j:=1 to lb do
      write(U[i,j]:5);
      writeln;
    end;
readln;
end.

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.000 из 5



Похожие ответы
  1. Напишите подпрограмму на нахождение средне арифмитического. С помошью этой подпрограммы найти количество чисел, которые выше средне арифмитического из ряда чисел заданных с клавиатуры , заканчиваюшихся -777. Помогите пожауйста с не простой задачей.

  1. составить программу нахождения двузначных чисел у которых сумма кубов цифр делиться на 3

  1. составит программу нахождения положительных четных чисел меньших а (а ввод с клав)

  1. Помогите пожалуйста. Есть два тестовых файла, которые содержат строки (файлы большие, по 60k строк в каждом). Задача сравнить эти два этих файла и найти одинаковые строки и вывести эти строки в третий файл, который программа будет создавать. Структура файла такова, что все строки имеют фиксированную длину (41 символ). Пример: Кликните здесь для просмотра всего текста "h0001d8b9g13d6g4605g85e9g708fe1e537c8"_ "h000310b1gc6f0g4341gbbddgf1f5fc471eae"_ В конце программы нужно вывести на экран количество одинаковых строк, которые были найдены программой, иначе написать "Не найдено" Что у меня получилось:

  1. Помогите пожалуйста алгоритм для нахождения квадратов первых десяти натуральных чисел

  1. В квадратной матрице определить номера строки и столбца какой-нибудь "седловой" точки. Некоторый элемент массива называется "седловой" точкой, если он является одновременно наименьшим в своей строке и наибольшим в своем столбце. Желательно чтобы программа была с рандомным массивом и без использования типа "Boolean"

  1. Одним из этапов задачи является нахождение всех последовательностей 3 чисел сумма которых равна n. Первое, что пришло в голову

  1. Четыре точки заданы своими координатами X(x1, x2), Y(y1, y2), Z(z1, z2), P(p1, p2). Выяснить, какие из них находятся на максимальном расстоянии друг от друга и найти значение этого расстояния. Вычисление расстояния между двумя точками оформить в виде процедуры. Заранее спасибо))

  1. Нужно составить программу на нахождение суммы: 1 + x^1/1! + x^2/2! + x^3/3! + ... + x^n/n! Значения x, n вводятся с клавиатуры. При этом, 1<=n<=10.

  1. Разработать разветвленный алгоритм и соответствующую Паскаль-программу нахождения принадлежности точки А(х,у) области, которая заштрихована на рисунке