ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی “ ورود به حساب” کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمیشود، اینجا را کلیک کنید.





صفحه 1 از 5 1234 ... آخرین
نمایش نتایج: از 1 به 10 از 43
  1. #1
    Propascal
    كاربر عادي
    http://up.vbiran.ir/images/rgk38wbh3cfxod62rhr2.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gif
    تاریخ عضویت
    2011 Dec
    نوشته ها
    49
    3
    0

    مجموعه سورس كد هاي كاربردي پاسكال

    سلام محمد هستم مديري بخش دلفي و پاسكال اميد وارم پروژه هايي خوبي براتون اماده كنم.

    در اين بخش سورس كدهاي بدرد بخور پاسكال رو براتون اماده كردم.

    لطفا سوال نپرسيد و فقط به جايي كلامات ممنون و مرسي از گزينه تشكر استفاده كنيد.
  2. #2
    Propascal
    كاربر عادي
    http://up.vbiran.ir/images/rgk38wbh3cfxod62rhr2.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gif
    تاریخ عضویت
    2011 Dec
    نوشته ها
    49
    3
    0

    سورس پروژه انتقال عدد از مبنای 2 به 10

    سورس انتقال عدد از مبنای 2 به 10
    کد PHP:
    uses wincrt;

    var
       
    num : array[1..20of integer;
       
    i,j,a,integer;
       
    longint;
    begin
         writeln
    ('Enter Number in base 2');
         
    readln(a);
         
    i:=1;
         while 
    a>do
               
    begin
                    num
    [i]:=(a mod 10);
                    
    a:=(a div 10);
                    
    inc(i);
               
    end;
         
    s:=0;
         
    c:=1;
         for 
    j:= 1 to i do
             
    begin
                  s
    :=s+(num[j]*c);
                  
    c:=c*2;
             
    end;
         
    writeln;
         
    writeln('Number In 10 Base Is : ',s);
           
    end
  3. #3
    Propascal
    كاربر عادي
    http://up.vbiran.ir/images/rgk38wbh3cfxod62rhr2.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gif
    تاریخ عضویت
    2011 Dec
    نوشته ها
    49
    3
    0

    Sorting Method #1: Bubble Sort

    Sorting Method #1: Bubble Sort
    کد PHP:

    Procedure BubbleSort
    (numbers : Array of Integersize Integer);
    Var 
    ijtemp Integer;


    Begin
       
    For := size-1 DownTo 1 do
           For 
    := 2 to i do
               If (
    numbers[j-1] > numbers[j]) then
                    Begin
                         temp 
    := numbers[j-1];
                         
    numbers[j-1] := numbers[j];
                         
    numbers[j] := temp;
                    
    End;

    End
  4. #4
    Propascal
    كاربر عادي
    http://up.vbiran.ir/images/rgk38wbh3cfxod62rhr2.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gif
    تاریخ عضویت
    2011 Dec
    نوشته ها
    49
    3
    0

    Sorting Method #2: Insertion Sort

    Sorting Method #2: Insertion Sort
    کد PHP:
    Procedure InsertionSort(numbers : Array of Integersize Integer);
    Var 
    ijindex Integer


    Begin
    For := 2 to size-do
      
    Begin
       index 
    := numbers[i];
       
    := i;
       While ((
    1) AND (numbers[j-1] > index)) do
        
    Begin
         numbers
    [j] := numbers[j-1];
         
    := 1;
        
    End;
       
    numbers[j] := index;
      
    End;

    End
  5. #5
    Propascal
    كاربر عادي
    http://up.vbiran.ir/images/rgk38wbh3cfxod62rhr2.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gif
    تاریخ عضویت
    2011 Dec
    نوشته ها
    49
    3
    0
    Sorting Method #3: Quick Sort
    کد PHP:
    Procedure QSort(numbers : Array of Integer;
                    
    left Integerright Integer);
    Var 
    pivotl_ptrr_ptr Integer;


    Begin
    l_ptr 
    := left;
    r_ptr := right;
    pivot := numbers[left];
    While (
    left right) do
      
    Begin
       
    While ((numbers[right] >= pivot) AND (left right)) do
        
    right := right 1;
       If (
    left <> rightthen
        Begin
         numbers
    [left] := numbers[right];
         
    left := left 1;
        
    End;
       While ((
    numbers[left] <= pivot) AND (left right)) do
        
    left := left 1;
       If (
    left <> rightthen
        Begin
         numbers
    [right] := numbers[left];
         
    right := right 1;
        
    End;
    End;
    numbers[left] := pivot;
    pivot := left;
    left := l_ptr;
    right := r_ptr;
    If (
    left pivotthen
      QSort
    (numbersleftpivot-1);
    If (
    right pivotthen
      QSort
    (numberspivot+1right);
    End
  6. #6
    Propascal
    كاربر عادي
    http://up.vbiran.ir/images/rgk38wbh3cfxod62rhr2.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gif
    تاریخ عضویت
    2011 Dec
    نوشته ها
    49
    3
    0

    سورس هشت وزیر

    سورس هشت وزیر

    [برای نمایش لینک باید عضو شوید. ]
  7. #7
    Propascal
    كاربر عادي
    http://up.vbiran.ir/images/rgk38wbh3cfxod62rhr2.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gif
    تاریخ عضویت
    2011 Dec
    نوشته ها
    49
    3
    0

    سورس تبدیل اعداد رومی به صحیح

    سورس تبدیل اعداد رومی به صحیح

    [برای نمایش لینک باید عضو شوید. ]
  8. #8
    Propascal
    كاربر عادي
    http://up.vbiran.ir/images/rgk38wbh3cfxod62rhr2.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gif
    تاریخ عضویت
    2011 Dec
    نوشته ها
    49
    3
    0

    سورس رمز گشا

    سورس رمز گشا

    [برای نمایش لینک باید عضو شوید. ]
  9. #9
    Propascal
    كاربر عادي
    http://up.vbiran.ir/images/rgk38wbh3cfxod62rhr2.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gif
    تاریخ عضویت
    2011 Dec
    نوشته ها
    49
    3
    0

    تعویض قطر اصلی و فرعی ماتریس n در n

    تعویض قطر اصلی و فرعی ماتریس n در n
    کد PHP:
    uses wincrt;

    var
       
    : array[1..100,1..100of integer;
       
    i,j,temp,integer;

    begin
         writeln
    ('Enter Number For n: ');
         
    readln(n);
         for 
    i:= 1 to n do
             for 
    j:= 1 to n do
                 
    begin
                      writeln
    ('Enter a[',i,j,']');
                      
    readln(a[i,j]);
                 
    end;
         
    writeln;

         
    writeln('Matrix :');
         for 
    i:= 1 to n do
             
    begin
                   
    for j:= 1 to n do
                       
    writea[i,j]:3);
                   
    writeln;
             
    end;
         
    j:=n;
         for 
    i:=1 to n do
             
    begin
                  temp 
    := a[i,i];
                  
    a[i,i] := a[i,j];
                  
    a[i,j] := temp;
                  
    dec(j);
             
    end;
         
    writeln;
         
    writeln('Matrix Tavize Ghotre asli Va Farei :');
         for 
    i:= 1 to n do
             
    begin
                   
    for j:= 1 to n do
                       
    writea[i,j]:3);
                   
    writeln;
             
    end;
    end
  10. #10
    Propascal
    كاربر عادي
    http://up.vbiran.ir/images/rgk38wbh3cfxod62rhr2.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gifhttp://up.vbiran.ir/images/qndtfn66fcrrq7cw6yh.gif
    تاریخ عضویت
    2011 Dec
    نوشته ها
    49
    3
    0

    دفترچه تلفن

    دفترچه تلفن

    دانلود سورس : [برای نمایش لینک باید عضو شوید. ]

    دانلود فایل اجرایی : [برای نمایش لینک باید عضو شوید. ]
صفحه 1 از 5 1234 ... آخرین
نمایش نتایج: از 1 به 10 از 43

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پاسخ: 0
    آخرين نوشته: 2012-10-07, 03:33 PM
  2. سورس پروژه تبديل حروف بزرگ و كوچك در پاسكال
    توسط MspSoft در انجمن پروژه‌های Open Source
    پاسخ: 0
    آخرين نوشته: 2012-02-17, 01:10 PM
  3. مجموعه سورس هاي دلفي
    توسط MspSoft در انجمن برنامه نویسی در Delphi
    پاسخ: 5
    آخرين نوشته: 2012-01-17, 02:59 PM
  4. دانلود مجموعه سورس پروژه هاي كريستال در ويژوال بيسيك
    توسط MspSoft در انجمن گزارش سازی با Crystal Report
    پاسخ: 0
    آخرين نوشته: 2011-12-30, 08:12 PM
  5. سورس پروژه مغلوب عدد در پاسكال
    توسط Propascal در انجمن مباحث عمومی دلفی و پاسکال
    پاسخ: 0
    آخرين نوشته: 2011-12-16, 01:02 PM

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  

Content Relevant URLs by vBSEO 3.6.0 RC 2