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

[sma519]

سلام عزیز
با Front Page وب سایت رایگانی رو با سرور Freeservers نشر کردم که یک سری از امکانات مثل Counter و Feedback رو پشتیبانی نمی کنه .
لذا با توجه به اینکه چیز زیادی از کد نویسی نمی دونم خواهش دارم در ارائه این گونه کدهای مخصوص در قالب معرفی کتابهای بخصوص و یا هر گونه کمک دیگر مرا یاری کنید
میتونید نتیجه کارم رو در www.sma519.8m.com ببینید
متشکرم

 

[sahebgharan]

!

!

يه سري به اينجا بزن يه راه بي دردسر)
www.webgozar.com

 

[sma519]

ممنون ولی....

ممنون ولی....

يه سري به اينجا بزن يه راه بي دردسر)
www.webgozar.com

عزیز دل میخوام از شر تبلیغات وبگذر خلاص بشم

 

[meysam_e2006]

سلام
من می تونم واست هم کدی بنویسم که تبلیغات سرورت حذف بشه هم واسه کانترت کد بهت بدم

نمانه کد حذف تبلیغات --
http://www.forud.blogfa.com
http://it-group.ir

دوتاش رایگان و دارای تبلیغات ولی دیگه نیست !!

 

[mehrzadmo]

معمولا امكانات موجود در فرانت پيج به ساپورت از طرف سرور نياز داره و معمولا سرور هاي مجاني اين كار رو انجام نمي دن .

 

[imangh]

یک سر به سایت پارس کدرز بزن، در این سایت می تونی پروژه خود را ثبت کنی، در حال حاظر بیش از 720 مجری در این سایت عضو هستند که آماده انجام پروژه شما سریع و با کمترین قیمت هستند.

 

[taha20]

از همه برنامه نویسان محترم خواهش می کنم .....................

از همه برنامه نویسان محترم خواهش می کنم .....................

من نمیدونم چه جوری میشه برنامه هایی که توی توربو پاسکال save میکنم رو بریزم توی فلاپی !
کمک کنین دیگه .
باید تا 3 روزه دیگه بدم به استادم .
دمتون گرم !

 

[t0tem]

واااا !!
دکمه ی F2 رو بزنی Save می کنه. (از رو file هم می تونی Save کنی )
بعد 3 تا فایل می سازه. با فرمت های .pas & .bak & .obj
که فایل pas فایل اصلی شما یا همون Source file هست که اون رو باید تو فلاپی کپی کنی !
فایل obj هم مربوط به کامپایلر می شه ( یه فایل به زبان ماشین که CPU بتونه پردازش کنه)
فایل bak هم یه فایل پشتیبانیه که به هیچ دردی نمی خوره

موفق باشید

 

[fatem]

به من کمک میکنین

به من کمک میکنین

سلام من احتیاج به یک مقاله خوب در مورد mis دارم
تمام مقالاتی که در این مورد پیدا کردم استادم قبول نکردند
لطفا به من کمک کنین

 

[amirand]

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

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

با سلام خدمت مهندسان گرامی. یک برنامه به زبان پاسکال میخوام که اعداد کوچکتر از 4رقم را گرفته وبه صورت حروف در خروجی چاپ کند .
با تشکر.

 

[moongirl]

نمی دونم هنوز هم این برنامه رو احتیاج داری یا نه... یه برنامه واست نوشتم و خودم با چندتا عدد تست کردم جواب می ده. ببخشید عجله ای شد کامند گذاری نکردم اگر جاییش مشکل بود حتما خبرم کن

PROGRAM behoroof (input,output);
VAR
  n : integer;
  test : integer;
  sadgan,dahgan,yekan:integer;

BEGIN
  writeln ('Enter a number (<1000)');
  readln (n);
  test:= n div 1000;
  IF test>1 THEN
    writeln ('Notice that your number is bigger than 999')
  ELSE
    BEGIN
      sadgan:= n div 100;
      case sadgan OF
        0 :;
        1 : write ('sad');
        2 : write ('divist');
        3 : write ('sisad');
        4 : write ('chaharsad');
        5 : write ('pansad');
        6 : write ('sheshsad');
        7 : write ('haftsad');
        8 : write ('hashtsad');
        9 : write ('nohsad');
      END;
      n:= n - (sadgan*100);
      dahgan:= n div 10;
      case dahgan OF
        0 :;
        1 :;
        2 : write ('o bist');
        3 : write ('o si');
        4 : write ('o chehel');
        5 : write ('o panjah');
        6 : write ('o shast');
        7 : write ('o haftad');
        8 : write ('o hashtad');
        9 : write ('o navad');
      END;
      n:= n - (dahgan*10);
      yekan:= n;
      IF (dahgan =1) THEN
        case yekan OF
          0 : write ('o dah');
          1 : write ('o yazdah');
          2 : write ('o davazdah');
          3 : write ('o sizdah');
          4 : write ('o chahrdah');
          5 : write ('o panzdah');
          6 : write ('o shanzdah');
          7 : write ('o hefdah');
          8 : write ('o hejdah');
          9 : write ('o noozdah');
        END
      ELSE
        CASE yekan OF
          0 :;
          1 : write ('o yek');
          2 : write ('o do');
          3 : write ('o se');
          4 : write ('o chahar');
          5 : write ('o panj');
          6 : write ('o shesh');
          7 : write ('o haft');
          8 : write ('o hasht');
          9 : write ('o noh');
        END;
    END;
writeln;
readln;
END

.
​

 

[t0tem]

moongirl عزیز !
من برنامه ی شما رو Trace کردم. عالی بود و جور دیگه ای نمی شد نوشت. فقط یه اشکال کوچولو داشت :
اگه بزنیم "20" چاپ می کنه : "o bist" که البته با این الگوریتمی که شما استفاده کردید فکر نکنم بشه این مشکل رو حل کرد. مگه اینکه چند تا if قبل از case ها بزاره که اون هم طول برنامه تقریبا دو برابر می شه !!!
استفاده از متغیر test هم اضافی بود!
برای 0 هم چیزی چاپ نمی کنه. که اون هم با یه شرط بعد از

 IF test >1 THEN
    writeln ('Notice that your number is bigger than 999');

حل میشه !!

 IF n = 0 THEN
    writeln ('Sefr');

موفق باشید

 

[moongirl]

در مورد تست که باید بگم که اگر اون شرط رو نذاریم اگر کاربر عددی بزرگتر از 1000وارد کنه برنامه کرش می کنه
اما در مورد عددی مثل بیست من امتحان تکردم ولی حتما راهی برای درست کردن این مشکل پیدا می کنم. ممنون که زحمت کشیدی و برنامه رو اجرا کردی... از دقتت خیلی خیلی ممنونم

 

[moongirl]

من برنامه رو به دوتا دستور case تصحیح کردم. دیگه گمونم کامل درست شده باشه. بازم ممنون میشم نگاه کنین

PROGRAM behoroof (input,output);
  {
   barnameyi ke adade koochektar az 1000
   ra az karbar gerefte va be horoof benevisad
       }
VAR
  n : integer; {entery number}
  test : integer; {for situation that entery number is biger than 999}
  sadgan,dahgan,yekan:integer;

BEGIN
  writeln ('Enter a number (<1000)');
  readln (n);
  test:= n div 1000;
  IF test>1 THEN {the program is not defined for more than 999}
    writeln ('Notice that your number is bigger than 999')
  ELSE
    BEGIN
      sadgan:= n div 100;
      case sadgan OF
        0 :;
        1 : write ('sad');
        2 : write ('divist');
        3 : write ('sisad');
        4 : write ('chaharsad');
        5 : write ('pansad');
        6 : write ('sheshsad');
        7 : write ('haftsad');
        8 : write ('hashtsad');
        9 : write ('nohsad');
      END;
      n:= n - (sadgan*100);
      dahgan:= n div 10;
      IF sadgan = 0 THEN
         case dahgan OF
           0 :;
           1 :;
           2 : write ('bist');
           3 : write ('si');
           4 : write ('chehel');
           5 : write ('panjah');
           6 : write ('shast');
           7 : write ('haftad');
           8 : write ('hashtad');
           9 : write ('navad');
        END
      ELSE
        case dahgan OF
          0 :;
          1 :;
          2 : write ('o bist');
          3 : write ('o si');
          4 : write ('o chehel');
          5 : write ('o panjah');
          6 : write ('o shast');
          7 : write ('o haftad');
          8 : write ('o hashtad');
          9 : write ('o navad');
        END;
      n:= n - (dahgan*10);
      yekan:= n;
      IF (dahgan=0) THEN
        CASE yekan OF
          0 : write ('sefr');
          1 : write ('yek');
          2 : write ('do');
          3 : write ('se');
          4 : write ('chahar');
          5 : write ('panj');
          6 : write ('shesh');
          7 : write ('haft');
          8 : write ('hasht');
          9 : write ('noh');
        END

      ELSE
        IF (dahgan =1) THEN
          case yekan OF
            0 : write ('o dah');
            1 : write ('o yazdah');
            2 : write ('o davazdah');
            3 : write ('o sizdah');
            4 : write ('o chahrdah');
            5 : write ('o panzdah');
            6 : write ('o shanzdah');
            7 : write ('o hefdah');
            8 : write ('o hejdah');
            9 : write ('o noozdah');
          END
      ELSE
        CASE yekan OF
          0 :;
          1 : write ('o yek');
          2 : write ('o do');
          3 : write ('o se');
          4 : write ('o chahar');
          5 : write ('o panj');
          6 : write ('o shesh');
          7 : write ('o haft');
          8 : write ('o hasht');
          9 : write ('o noh');
        END;
    END;
writeln;
readln;
END

.

 

[taha20]

برنامه میخوام

برنامه میخوام

من می خوام با پاسکال یه برنامه بنویسم . یکی در مورده معکوس کردن عدد بهصورت بازگشتی و یکی در مورده حل معادله درجه سوم به روش نصف کردن . کی میتونه کمکم کنه ؟ خواهش می کنم یکی بهم یه راهنمایی کوچولو بکنه .

 

[amirand]

گسسته

گسسته

کسانی که حل تمرینات گسسته رو میخوان به سایتwww.infology.irمراجعه کنند.

 

[marjan omidi]

کمک فوری

کمک فوری

سلام من
برنامه ای راجع به شبیه ساری ثبت نام <انشجویان <ارم <ر <رس ++c ضیعف هستم و مشکلات مالی <ارم و نمی توانم برنامه ای بخرم و به نمره این <رس نیار <ارم خواهش می کنم کمکم کنی

 

[Ooli]

مشاوره(کمک)

مشاوره(کمک)

سلام
من در رشته چاپ مشغول به تحصیلم و به دلیل اینکه رشته چاپ در حال حاضر کارشناسی ارشد نداره، من می خوام در رشته ای متناسب با این رشته ادامه تحصلیل دهم.
یکی از اون رشته هایی که مد نظرمه رشته فن آوری اطلاعات که به نظرم هم با ماهیت رشته چاپ یعنی رسانه هماهنگی داره و هم بحث جدیدی رو میتونه وارد علم چاپ کنه.
حالا می خواستم از شما یه مشاوره بخوام و اون اینکه اگه من بخوام رشته IT را برای شرکت در کارشناسی ارشد انتخاب کنم باید چه اطلاعات ابتدایی و مقدماتی (غیر از دروسی که باید برای امتحان بخونم) در این زمینه داشته باشم. یعنی اینکه من باید چه اطلاعاتی داشته باشم تا قابلیت و توانایی ادامه تحصیل در این رشته رو بدست بیارم.

مرسی...

 

[Ooli]

سلام
این رشته 5 ساله برای اولین بار در ایران در گرایش کارشناسی از طریق دانشگاه هنر دانشجو میگیره.
خیلی نزدیک به رشته گرافیکه ولی بیشتر به صورت صنعتی تا هنری. یعنی بیشتر روی چگونگی چاپ کارهای گرافیکی نظارت میکنه حالا این کار میتونه یه تراکت تبلیغاتی باشه یا میتونه ژورنال های با کیفیت رنگ و چاپ بالا باشه.

سه تا بحث تو رشته چاپ وجود داره: پیش از چاپ( که بیشتر به مسائلی مثل نرم افزار های گرافیکی، طریقه گرفتن مناسبترین خروجی ها برای عملیات تولید چاپ، مدیریت رنگ و ... میشه) چاپ( که مربوط به روش های چاپی و طریقه کار با آنها میشه روش هایی مثل چاپ افست، فلکسو گرافی، هلیوگراوور، سلیک اسکرین و ...) و مرحله پس از چاپ ( که مربوط به عملیات تکمیلی مثل صحافی کتاب ها، برش و ... میشه).
امیدوارم توضیحاتم کافی بوده باشه...
اگه ابهامی وجود داره بفرمایید...
مرسی

 

[marjan omidi]

++c

++c

سلام از استاد پرسیدم ثبت نام دانشجویان دانشگاه که با استفاده از کلاس ها که بر اساس نام نام خانوادگی (نام پدر تاریخ تولد) شماره دانشجویی کد ملی مرتب کند که مثلا با استفاده از شماره دانشجویی بتوانیم مشخصات دانشجوی خاصی راپیدا کنیم و بر اساس معدل ترم قبل تعداد واحد های پاس کرده و تعداد واحدهای باقی مانده تعداد ترم های مشروط شده معدل کل شهریه در فایلی ذخیره کند (تو رو خدا کمکم کن)
http://www.www.www.iran-eng.ir/images/statusicon/user_online.gif http://www.www.www.iran-eng.ir/images/buttons/reputation.gif http://www.www.www.iran-eng.ir/images/buttons/report.gif http://www.www.www.iran-eng.ir/images/misc/progress.gif

 

[t0tem]

عزیز می تونی یه کوچولو بیشتر توضیح بدی ! ما که نفهمیدیم ! هر کی فهمید به ما هم بگه شاید بتونیم به دوستمون کمک کنیم....

موفق باشید ...

 

[sadaf_78]

سلام
دوستان پاسخ هاي تمرينات گسسته را مي توانيد از سايت زیر به طور كامل دانلود كنيد.

WWW.FANAVARI-IT.IR

خیلی سایت خوبیه.

 

[saeid99]

کمک در مورد فایل ها از نوع رکورد(باینری)

کمک در مورد فایل ها از نوع رکورد(باینری)

سلام
چطور میشه اطلاعات جدیدی که در یک فایل باینری مثل رکورد رو که وارد میکنیم اضافه بشه(مربوط به پاسکال)
برای اینکه اطلاعات قبلی پاک نشه؟؟
قابل توجه که این فایل ها append رو نمی پذیرند..خودتون که میدونین.
به نظرم باید به انتهای فایل دودویی بره بعدش اضافه کنه ممنون میشم کمکم کنید...
ممنون میشم کدشو پست کنین

 

[saeid99]

آخرش فهمیدم

آخرش فهمیدم

جوابشو آخرش بعد از دیدن یه سری سورس فهمیدم راه حلشو میگم شاید بچه های دیگه هم این مشکلو داشته باشن

assign(fl,'a.dat');
reset(fl);
seek(fl,filesize(fl));​

 

[نسیم]

معرفی کتاب

معرفی کتاب

کسی کتابی رو میشناسه که توش تمرینهای کتاب c++ how to program . دیتل رو حل کرده باشه .
یا کتابی که تمرینهایی شبیه این کتاب داشته باشه با حلشون .

 

[t0tem]

خوب اگه بشینی کدهای خودت رو تست کنی راحتتر نیستی ؟؟؟
دیگه دیباگ کردن 4تا تمرین کاری نداره که !!!
تا کجا بهتون درس دادند ؟

 

[eL2rado]

من می خوام با پاسکال یه برنامه بنویسم . یکی در مورده معکوس کردن عدد بهصورت بازگشتی و یکی در مورده حل معادله درجه سوم به روش نصف کردن . کی میتونه کمکم کنه ؟ خواهش می کنم یکی بهم یه راهنمایی کوچولو بکنه .

نمیدونم چرا دوستان اصرار دارن که برنامه رو براش بنویسن...فقط یک راهنمایی کوچولو خواست...معکوس کردن عدد که با آرایه به راحتی حل میشه.میتونی.اما دومی هم بیشتر ار 10 خط نمیشه فکر کنم. اینم الگوریتم کلی: فرض y=ax^3+bx^2+cx+d
var
begin
read( a, b, c ,d
xای را می یابیم که به ازای این ایکس ,y بین 0.01 و منفی 0.01 قرار گیرد
write(x
end.

اینم یه شبه کد:
if f(100)*f(-100) <0 then
begin
p=0
Q=f(p)
if y*Q<0 then
begin
s=-50
...
else
s=+50
...
موفق باشی

 

[negar afshar]

ساختمان گسسته

ساختمان گسسته

سلام من در مبحث توابع مولد و الگوریتم ها مشکل دارم یعنی آن طور که می خواستم یاد نگرفتم کتاب بهروز قلی زاده را هم خوندم اما بازم مشکل دارم اگه جزوه یا کتاب خوبی برای این مباحث سراغ دارید راهنماییم کنید ممنون

 

[aminson]

سلام عزیز
با Front Page وب سایت رایگانی رو با سرور Freeservers نشر کردم که یک سری از امکانات مثل Counter و Feedback رو پشتیبانی نمی کنه .
لذا با توجه به اینکه چیز زیادی از کد نویسی نمی دونم خواهش دارم در ارائه این گونه کدهای مخصوص در قالب معرفی کتابهای بخصوص و یا هر گونه کمک دیگر مرا یاری کنید
میتونید نتیجه کارم رو در www.sma519.8m.com ببینید
متشکرم

سلام خوبي تا جايي كه من ميدونم اينها از پرتابل هاي قدرتمندي استفاده مي كنن و اگه دست كاريشون كني ديگه كلا به هم ميريزن . نتيجه اينكه به طور كامل نمي توني برشون داري فقط ميتوني يه قسمت كوچيكي ازشون رو برداري كه اين هم فكر نكنم به درد تو بخوره . اميدوارم منظورتو خوب فهميده باشم .

 

[علي سماعي]

دوست عزيز سلام
من برنامه نويسي دستگاه هاي سي ان سي را ميدانم.
ميتوانم به شماكمك كنم.
در صورت نياز تماس بگيريد.