close
تبلیغات در اینترنت
دانلود سورس رایگان پروژه ضرب دو ماتریس در هم در pascal
loading...
سرویس سایت سایت رزبلاگ بزرگترین سرویس ارائه خدمات سایت نویسی حرفه ای در ایران

فیلم و کتاب دات آی آر

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

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

 

 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
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 , سورس pascal , سورس ضرب ماتريس , سورس هاي پاسكال , ضرب دو ماتريس در هم , ضرب دو ماتريس در پاسكال , ضرب ماتريس ها در پاسكال , پروژه pascal , پروژه هاي دانشجويي , دانشجو , دانلود , آموزش , فارسی , نرم افزار , کامپیوتر ,
بازدید : 1132 تاریخ : زمان : نویسنده : بهرام محمدپور نظرات ()
ارسال نظر برای این مطلب

نام
ایمیل (منتشر نمی‌شود) (لازم)
وبسایت
:):(;):D;)):X:?:P:*=((:O@};-:B/:):S
نظر خصوصی
مشخصات شما ذخیره شود ؟[حذف مشخصات] [شکلک ها]
کد امنیتی
تبلیغات
Rozblog.com رز بلاگ - متفاوت ترين سرويس سایت ساز

آمار سایت
  • کل مطالب : 4311
  • کل نظرات : 17
  • افراد آنلاین : 6
  • تعداد اعضا : 2920
  • آی پی امروز : 0
  • آی پی دیروز : 0
  • بازدید امروز : 1,531
  • باردید دیروز : 2,137
  • گوگل امروز : 15
  • گوگل دیروز : 45
  • بازدید هفته : 1,531
  • بازدید ماه : 3,668
  • بازدید سال : 3,668
  • بازدید کلی : 5,575,191
  • مطالب
    کدهای اختصاصی