ام اس پی سافت

دانلود سورس رایگان پروژه ضرب دو ماتریس در هم در pascal

0تومان

توضیحات

ضرب دو ماتریس

ضرب دو ماتریس

پروژه رایگان  ضرب دو ماتریس در هم از زبان پاسکال برای شما آماده کردم که پروژه کاربردی است که میتونید ازش در درساتون استفاده کنید.پروژه به این صورت است دو ماتریس را در هم ضرب میکند.این پروژه به همراه سورس منتشر شده است.امید وارم مفید باشه و ازش استفاده کنید.ازاینکه ما را یاری میکنید متشکریم.موفق پیروز باشید…

ضرب دو ماتریس

uses wincrt;

var
a : array[1..10,1..10] of integer;
b : array[1..10,1..10] of integer;
c : array[1..10,1..10] of integer;
m1,n1,m2,n2,i,j,sum,k : integer;
begin
writeln('enter number of row for matrix 1(A)');
readln(m1);
writeln('enter number of col for matrix 1(A)');
readln(n1);
writeln('enter number of row for matrix 2(B)');
readln(m2);
writeln('enter number of col for matrix 2(B)');
readln(n2);

if n1=m2 then
begin
writeln('Enter Number Of Mutrix 1(A)');
for i:=1 to m1 do
for j:=1 to n1 do
begin
writeln('Enter A[',i,j,']');
read(a[i,j]);
end;
writeln('Entering Number Of Matrix 1(A) compilited');
writeln('Now Enter Number Of Matrix 2(B)');

for i:=1 to m2 do
for j:= 1 to n2 do
begin
writeln('Enter B[',i,j,']');
read(b[i,j]);
end;
writeln('Entering Number Of Matrix 2(B) compilited');
writeln;

for i:= 1 to m1 do
begin
for j:= 1 to n2 do
begin
for k:= 1 to n1 do
sum:=sum+(a[i,k]*b[k,j]);
c[i,j]:= sum;
sum:=0;
end;

end;
writeln('Matrix[A]');
for i:= 1 to m1 do
for j:=1 to n1 do
if j=n1 then
writeln(a[i,j]:4)
else
write(a[i,j]:4);
writeln('************************');
writeln('Matrix[B]');
for i:= 1 to m2 do
for j:=1 to n2 do
if j=n2 then
writeln(b[i,j]:4)
else
write(b[i,j]:4);
writeln('************************');
writeln('Zarbe Do matris dar ham: [A]*[B]=[C]');
for i:= 1 to m1 do
for j:=1 to n2 do
if j=n2 then
writeln(c[i,j]:4)
else
write(c[i,j]:4);

end
else
writeln('Matris ha Zarb Pazir Nistand');
end.

نقد و بررسی ها

هیچ دیدگاهی برای این محصول نوشته نشده است .

اولین کسی باشید که دیدگاهی می نویسد “دانلود سورس رایگان پروژه ضرب دو ماتریس در هم در pascal”

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

این سایت از اکیسمت برای کاهش هرزنامه استفاده می کند. بیاموزید که چگونه اطلاعات دیدگاه های شما پردازش می‌شوند.