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

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

 

 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
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.

مشخصات

لینک کوتاه پست
مطالب مرتبط با پست جاری
  • نکات مهم
    1- لطفا نظر خود را با زبان فارسی بیان کنید
    2- رایتم نظرات اسپم و تبلیغی شما را تایید نمی کند
    3- لطفا نظرات شما بدون ابهام و واضح باشد
  • نام
    ایمیل (منتشر نمی‌شود) (لازم)
    وبسایت
    :):(;):D;)):X:?:P:*=((:O@};-:B/:):S
    نظر خصوصی
    مشخصات شما ذخیره شود ؟[حذف مشخصات] [شکلک ها]
    کد امنیتی
به کانال تلگرام سایت ما بپیوندید