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





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









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





صفحه 5 از 5 نخست ... 2345
نمایش نتایج: از 41 به 43 از 43
  1. #41
    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

    ترانهاده ماتریس به همراه خود ماتریس در پاسكال

    ترانهاده ماتریس به همراه خود ماتریس

    کد PHP:
    uses wincrt;

    var
       
    b:array[1..5,1..5]of integer;
       
    a:array[1..5,1..5]of integer;
       
    i,j:integer;
       
    t:integer;
    begin
          
    for i:=1 to 5 do
              for 
    j:=1 to 5 do
                  
    begin
                        writeln
    ('a[',i,j,']');
                        
    readln(a[i,j]);
                        
    b[i,j]:=a[i,j];
                  
    end;
          for 
    i:=1 to 5 do
              for 
    j:=1 to 5 do
                  if 
    j>i then
                     begin
                           t
    :=a[i,j];
                           
    a[i,j]:=a[j,i];
                           
    a[j,i]:=t;
                     
    end;
          
    writeln;
          for 
    i:=1 to 5 do
              
    begin
                    
    for j:=1 to 5 do
                        
    begin
                             write
    (b[i,j]:4);
                             if (
    i=1) and (j=5then
                                   write
    ('   ')
                             else if (
    i=2) and (j=5then
                                   write
    ('   ')
                             else if (
    i=3) and (j=5then
                                   write
    (' =>')
                             else if (
    i=4) and (j=5then
                                   write
    ('   ')
                             else if (
    i=5) and (j=5then
                                   write
    ('   ');
                        
    end;
                    for 
    j:=1 to 5 do
                        
    write(a[i,j]:4);
                        
    writeln;  
                      
              
    end;
    end
  2. #42
    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

    مبنای دو در پاسكال

    مبنای دو در پاسكال

    کد PHP:
    uses wincrt;

    var
               
    a:array[1..20]of integer
               
    i,n:integer;
    begin
               writeln
    ('please enter a number');
               
    readln(n);
               
    i:=1;
               while 
    n>do
                      
    begin
                              a
    [i]:=n mod 2;
                              
    i:=i+1;
                              
    n:=n div 2;
                      
    end
               if 
    n<=0 then
                      begin
                              i
    :=i-1;
                              while 
    i>do
                                            
    begin
                                                    write
    (a[i]); 
                                                     
    i:=i-1
                                            
    end
                      
    end;
    end
  3. #43
    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

    حذف صفر عدد

    حذف صفر عدد

    کد PHP:
    uses wincrt;

    var

    n,r,m,p:integer;

    begin

    p
    :=1;

    readln(n);

    m:=0;

    while 
    n>do

    begin

    r
    :=n mod 10;

    n:=n div 10;

    if 
    r>0 then

    begin

    p
    :=p*10;

    m:=m+p*r;

    end;

    end;

    write(m div 10);

    end
صفحه 5 از 5 نخست ... 2345
نمایش نتایج: از 41 به 43 از 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