Parsi Coders
مهم ترین سورس کدهای پاسکال مخصوصا برای پروژه های دانشجویی - نسخه قابل چاپ

+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Pascal (http://parsicoders.com/forumdisplay.php?fid=70)
+---- موضوع: مهم ترین سورس کدهای پاسکال مخصوصا برای پروژه های دانشجویی (/showthread.php?tid=617)



مهم ترین سورس کدهای پاسکال مخصوصا برای پروژه های دانشجویی - Amin_Mansouri - 08-04-2011

سلام
از اقای مرتضی نیک زاد استاد قدیمیم تشکر میکنم که ارشیو بزرگی از سورس کدهای پاسکال رو به من دادن
این سورس ها بسیاری از الگوریتمای مهم مخصوصا سورس های که دانشجوها دنبالشن :P


RE: مهم ترین سورس کدهای پاسکال مخصوصا برای پروژه های دانشجویی - Amin_Mansouri - 08-04-2011

سورس کد مینیموم سطر و ستون ماتریس;
کد:
Uses wincrt
var
   i,j,k,n,m : integer;
   A : array[1..5,1..5] of integer;
   min : array[1..10] of integer;
begin
     for i:= 1 to 5 do
         for j:= 1 to 5 do
             begin
                  writeln('Enter A[',i,j,']');
                  read(A[i,j]);
             end;
     for m:= 1 to 5 do  {Row}
         begin
              min[m]:=A[m,1];
              for k:= 2 to 5 do
                  if a[m,k] < min[m] then
                     min[m]:=a[m,k];
         end;
     for m:= 1 to 5 do  {column}
         begin
              min[m+5]:=A[1,m];
              for k:= 2 to 5 do
                  if a[k,m] < min[m+5] then
                     min[m+5]:=a[k,m];
         end;
     for i:= 1 to 5 do
         for j:= 1 to 5 do
             begin
                  write(' ',A[i,j]);
                  if j=5 then
                     begin
                          write('  ',min[i]);
                          writeln;
                     end;
             end;
     writeln;
     for n:=1 to 5 do
        write(' ',min[n+5]);
end.



RE: مهم ترین سورس کدهای پاسکال مخصوصا برای پروژه های دانشجویی - Amin_Mansouri - 08-04-2011

سورس مغلوب عدد
کد:
uses wincrt;

var

n:integer;

begin

readln(n);

while n>0 do

begin

write(n mod 10);

n:=n div 10

end;

end.



RE: مهم ترین سورس کدهای پاسکال مخصوصا برای پروژه های دانشجویی - Amin_Mansouri - 08-04-2011

[align=center]سورس محاسبه دترمینان ماتریس 3 در 3[/align]
کد:
uses wincrt;

var
   a : array[1..3,1..3] of integer;
   diter,m,f,i,j : integer;
begin
     writeln('Enter Number Of Matrix');
     for i:=1 to 3 do
         for j:= 1 to 3 do
             begin
                  writeln('Enter A[',i,j,']');
                  read(A[i,j]);
             end;

     m := ((a[1,1]*a[2,2]*a[3,3])+(a[1,2]*a[2,3]*a[3,1])+(a[1,3]*a[2,1]*a[3,2]));
     f := ((a[1,3]*a[2,2]*a[3,1])+(a[1,2]*a[2,1]*a[3,3])+(a[1,1]*a[2,3]*a[3,2]));
     diter := m-f;
     writeln;
     writeln('Determinant Of Matrix Is : ',diter);
end.



RE: مهم ترین سورس کدهای پاسکال مخصوصا برای پروژه های دانشجویی - Amin_Mansouri - 08-04-2011

سورس محاسبه تعداد اعداد اول
کد:
uses wincrt;

var
   i,a,n,j,cnt,k : integer;
   flag        : boolean;
begin
     writeln('Enter Number For N');
     readln(n);
     cnt:=0;
     for i:= 1 to n do
         begin
              if i<=n then
                 begin
                       writeln('enter ',i,' number');
                       readln(a);
                       if a=1 then
                          begin
                               writeln('number 1 is not prime and complete therefore enter an other number');
                               readln(a);
                               i:=i+1
                          end;
                       flag:=true;
                       k:=0;
                       j:=2;
                 end;
              while (j<=a div 2) and (k=0) do
                    begin
                         if (a mod j =0) then
                            k:=1;
                         j:=j+1;
                    end;
              if (k=0) then
                 cnt:=cnt+1;
         end;
     writeln('number of prime number is :',cnt)
end.



RE: مهم ترین سورس کدهای پاسکال مخصوصا برای پروژه های دانشجویی - Amin_Mansouri - 08-04-2011

سورس محاسبه ب.م.م
کد:
uses wincrt;

var
   m,n,r,temp : integer;
begin
     writeln('Enter two Number');
     readln(m,n);
     if m<n then
        begin
             temp:=n;
             n:= m;
             m:=temp;
        end;
     while m mod n <> 0 do
           begin
                r:=m mod n;
                m:=n;
                n:=r;
           end;
     writeln('B.M.M Of two number is : ',n);
end.



RE: مهم ترین سورس کدهای پاسکال مخصوصا برای پروژه های دانشجویی - parvin - 04-04-2012

آقا امین میشه لطف کنین اگه سورس دارین یه جا واسه دانلود بذارین تا همش رو دانلود کنیم؟