برنامه هایی که تا حالا تو کامپیوتر نوشتید

مدیر انجمن: parse

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

نام: iceberg

محل اقامت: ice field

عضویت : جمعه ۱۳۹۱/۸/۵ - ۱۵:۰۴


پست: 225

سپاس: 36

جنسیت:

تماس:

برنامه هایی که تا حالا تو کامپیوتر نوشتید

پست توسط کوه یخ »

لطفا کدشو بذارید دیگران میتونن ازش استفاده کنن اگه++c باشه بهتره smile018
کوه یخم من که رو آب شدم شناور
داغ حوادث میکنه آبم سراسر

(ابی)
این آخرین باره من ازت میخوام برگردی به خونه//این آخرین باره من ازت میخوام عاقل شی دیوونه...
(ابی+این آخرین باره...)

*و صدای متلاشی شدن شیشه شادی در شب...(سهراب سپهری)

*داداش وقتی داری خالی میندی حرفه ای خالی ببند!!! ما رو خر فرض نکن!!!

ما که رسوای جهانیم//غم عالم به پشم

نمایه کاربر
- Keyhan -

عضویت : چهارشنبه ۱۳۹۱/۹/۸ - ۱۷:۰۸


پست: 329

سپاس: 141

جنسیت:

تماس:

Re: برنامه هایی که تا حالا تو کامپیوتر نوشتید

پست توسط - Keyhan - »

خودت بلدی برنامه نویسی کنی؟ تا حالا برنامه ای نوشتی؟

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

نام: iceberg

محل اقامت: ice field

عضویت : جمعه ۱۳۹۱/۸/۵ - ۱۵:۰۴


پست: 225

سپاس: 36

جنسیت:

تماس:

Re: برنامه هایی که تا حالا تو کامپیوتر نوشتید

پست توسط کوه یخ »

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

(ابی)
این آخرین باره من ازت میخوام برگردی به خونه//این آخرین باره من ازت میخوام عاقل شی دیوونه...
(ابی+این آخرین باره...)

*و صدای متلاشی شدن شیشه شادی در شب...(سهراب سپهری)

*داداش وقتی داری خالی میندی حرفه ای خالی ببند!!! ما رو خر فرض نکن!!!

ما که رسوای جهانیم//غم عالم به پشم

Hooman kh

نام: هومن خدایاری

محل اقامت: تهران

عضویت : سه‌شنبه ۱۳۹۱/۲/۱۹ - ۲۱:۰۳


پست: 322

سپاس: 62

جنسیت:

تماس:

Re: برنامه هایی که تا حالا تو کامپیوتر نوشتید

پست توسط Hooman kh »

pharaz.com باهمکاری یکی از دوستام نوشتیم

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

نام: iceberg

محل اقامت: ice field

عضویت : جمعه ۱۳۹۱/۸/۵ - ۱۵:۰۴


پست: 225

سپاس: 36

جنسیت:

تماس:

Re: برنامه هایی که تا حالا تو کامپیوتر نوشتید

پست توسط کوه یخ »

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

(ابی)
این آخرین باره من ازت میخوام برگردی به خونه//این آخرین باره من ازت میخوام عاقل شی دیوونه...
(ابی+این آخرین باره...)

*و صدای متلاشی شدن شیشه شادی در شب...(سهراب سپهری)

*داداش وقتی داری خالی میندی حرفه ای خالی ببند!!! ما رو خر فرض نکن!!!

ما که رسوای جهانیم//غم عالم به پشم

نمایه کاربر
ADMIN

عضویت : شنبه ۱۳۸۴/۲/۲۴ - ۱۹:۱۷


پست: 2401

سپاس: 560

جنسیت:

تماس:

Re: برنامه هایی که تا حالا تو کامپیوتر نوشتید

پست توسط ADMIN »

بازی جورچین اعداد
تابستان 1379

کد: انتخاب همه

//====================================================================
//==                [Puzzle Game]
//==                
//==                TC > Menu >  Option > Linker > Libaries > Active Graphics Library
//==                
//==                By Ashkan Arefi (c) 2000
//==                
//====================================================================
#include <graphics.h>
#include <stdlib.h>
#include <stdio.h>
#include <conio.h>
//====================================================================
class puzzle_class
   {
   int table[5][5];
   private:
   void graphics_mode();
   void fill_table();
   void show();
   void background();
   int  get_key();
   void go_up();
   void go_down();
   void go_left();
   void go_right();
   void check_win();
   public:
   void run();
   }puzzle;
//====================================================================
void puzzle_class::fill_table()
   {
    randomize();
    int i,j,i1,i2,j1,j2,temp,k,g;
    g = random(50)+50;
    for(i=0;i<5;i++)
       for(j=0;j<5;j++)
	  table[i][j] = i*5+j;
    for(k=1;k<g;k++)
       {
       i1 = random(5);
       j1 = random(5);
       i2 = random(5);
       j2 = random(5);
       temp = table[i1][j1];
       table[i1][j1] = table[i2][j2];
       table[i2][j2] = temp;
       }
   }
//====================================================================
void puzzle_class::show()
   {
    int i,j,k,w;
    char d[10];
    settextstyle(1,0,4);
    for(i=0;i<5;i++)
       {
       for(j=0;j<5;j++)
	  {
	  k = table[i][j];
	  if (k!=0)
	  {
	  itoa(k,d,10);
	  setfillstyle(1, 8);
	  bar(j*70+150, i*70+70, j*70+210, i*70+130);
	  setcolor(14);
	  w=0;
	  if (table[i][j] < 10) w=13;
	  outtextxy(j*70+160+w, i*70+80, d);
	  }
	  else
	  {
	  setfillstyle(1, 0);
	  bar(j*70+150, i*70+70, j*70+210, i*70+130);
	  }
	  }
       }
   }
//====================================================================
void puzzle_class::background()
   {
	  setfillstyle(6, 1);
	  bar(45, 25, 595, 460);
	  setfillstyle(7, 8);
	  bar(50, 30, 590, 455);
	  setfillstyle(5, 1);
	  bar(135, 55, 4*70+225, 4*70+145);
	  setfillstyle(1, 0);
	  bar(140, 60, 4*70+220, 4*70+140);
    int i,j;
    for(i=0;i<5;i++)
       for(j=0;j<5;j++)
	  {
	  setfillstyle(8, 6);
	  bar(j*70+146, i*70+66, j*70+214, i*70+134);
	  setfillstyle(1, 6);
	  bar(j*70+149, i*70+69, j*70+211, i*70+131);
	  }
	 settextstyle(1,0,6);setcolor(9);
	 outtextxy(75,50,"P");outtextxy(75,110,"U");
	 outtextxy(75,170,"Z");outtextxy(75,230,"Z");
	 outtextxy(75,290,"L");outtextxy(75,350,"E");
	 outtextxy(530,50,"P");outtextxy(530,110,"U");
	 outtextxy(530,170,"Z");outtextxy(530,230,"Z");
	 outtextxy(530,290,"L");outtextxy(530,350,"E");
	 settextstyle(2,0,4);setcolor(7);
	 outtextxy(80,463,"[Arrows] : Move               [Space] : New Game                 [Esc] : Exit Game");
	 setfillstyle(1, 0);
	 bar(20, 458, 35, 460-((435/25)*25));
	 bar(603, 458, 618, 460-((435/25)*25));
   }
//====================================================================
int puzzle_class::get_key()
   {
   char i[2];
   i[0] = getch();
   if (i[0]==32) fill_table();
   if (i[0] == 0)
       {
       i[1] = getch();
       if (i[1]==72) go_up();
       if (i[1]==80) go_down();
       if (i[1]==75) go_left();
       if (i[1]==77) go_right();
       }
   return(i[0]);
   }
//====================================================================
void puzzle_class::go_up()
   {
   int i,j,temp=0;
   for (i=0;i<4;i++)
      {
      for(j=0;j<5;j++)
	 {
	 if (table[i][j]==0)
	   {
	    temp = table[i+1][j];
	    table[i+1][j] = table[i][j];
	    table[i][j] = temp;
	    break;
	   }

	 }
	 if (temp!=0) break;
      }
   }
//====================================================================
void puzzle_class::go_down()
   {
   int i,j,temp=0;
   for (i=1;i<5;i++)
      {
      for(j=0;j<5;j++)
	 {
	 if (table[i][j]==0)
	   {
	    temp = table[i-1][j];
	    table[i-1][j] = table[i][j];
	    table[i][j] = temp;
	    break;
	   }

	 }
	 if (temp!=0) break;
      }
   }
//====================================================================
void puzzle_class::go_left()
   {
   int i,j,temp=0;
   for (i=0;i<5;i++)
      {
      for(j=0;j<4;j++)
	 {
	 if (table[i][j]==0)
	   {
	    temp = table[i][j+1];
	    table[i][j+1] = table[i][j];
	    table[i][j] = temp;
	    break;
	   }

	 }
	 if (temp!=0) break;
      }
   }
//====================================================================
void puzzle_class::go_right()
   {
   int i,j,temp=0;
   for (i=0;i<5;i++)
      {
      for(j=1;j<5;j++)
	 {
	 if (table[i][j]==0)
	   {
	    temp = table[i][j-1];
	    table[i][j-1] = table[i][j];
	    table[i][j] = temp;
	    break;
	   }

	 }
	 if (temp!=0) break;
      }
   }
//====================================================================
void puzzle_class::check_win()
   {
   int i,j,win=0,cell;
   for(i=0;i<5;i++)
     for(j=0;j<5;j++)
       {
       cell=table[i][j];
       if(cell==0) cell=25;
       if(cell==i*5+j+1) win++;
       }
	 setfillstyle(1, 0);
	 bar(20, 458, 35, 460-((435/25)*25));
	 bar(603, 458, 618, 460-((435/25)*25));
	 setfillstyle(2, 4);
	 bar(20, 458, 35, 460-((435/25)*win));
	 bar(603, 458, 618, 460-((435/25)*win));

   if (win==25)
      {
	  setfillstyle(5, 1);
	  bar(135, 55, 4*70+225, 4*70+145);
	  setfillstyle(1, 0);
	  bar(140, 60, 4*70+220, 4*70+140);
	  settextstyle(1,0,7);setcolor(12);
	  outtextxy(187,130,"YOU WIN");
	  settextstyle(2,0,5);setcolor(7);
	  outtextxy(190,370,"Press any key to start new game ...");
	  getch();
	  background();
	  fill_table();
      }
   }
//====================================================================
void puzzle_class::graphics_mode()
   {
   int gdriver = DETECT, gmode;
   initgraph(&gdriver, &gmode, "");
   }
//====================================================================
void puzzle_class::run()
   {
   graphics_mode();
   int my_key = 0;
   fill_table();
   background();

   while (my_key != 27)
      {
      show();
      my_key = get_key();
      check_win();
      }
   closegraph();
   }
//====================================================================
int main()
{
puzzle.run();
return(0);
}
//====================================================================
موجیم که آسودگی ما عدم ماست ... ما زنده به آنیم که آرام نگیریم ...

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

نام: iceberg

محل اقامت: ice field

عضویت : جمعه ۱۳۹۱/۸/۵ - ۱۵:۰۴


پست: 225

سپاس: 36

جنسیت:

تماس:

Re: برنامه هایی که تا حالا تو کامپیوتر نوشتید

پست توسط کوه یخ »

تایم تمومه میخوام تاپیکو احیا کنم smile072( اگه برنامه ای خواستید بگید شاید داشتمش smile072 )فقط در++Cاولین برنامه:
به تعداد متغییر که وارد میکنید ستاره میده:
#include<iostream>
#include<conio.h>
using namespace std;
int main()
{
int e,n=1,f=1;
cin>>e;
( while(n<=e
{
( while(f)
{
cout<<"*";
f--;

}
cout<<endl;
n++;
f=n;
}
getch();
return 1;
}
کوه یخم من که رو آب شدم شناور
داغ حوادث میکنه آبم سراسر

(ابی)
این آخرین باره من ازت میخوام برگردی به خونه//این آخرین باره من ازت میخوام عاقل شی دیوونه...
(ابی+این آخرین باره...)

*و صدای متلاشی شدن شیشه شادی در شب...(سهراب سپهری)

*داداش وقتی داری خالی میندی حرفه ای خالی ببند!!! ما رو خر فرض نکن!!!

ما که رسوای جهانیم//غم عالم به پشم

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

نام: iceberg

محل اقامت: ice field

عضویت : جمعه ۱۳۹۱/۸/۵ - ۱۵:۰۴


پست: 225

سپاس: 36

جنسیت:

تماس:

Re: برنامه هایی که تا حالا تو کامپیوتر نوشتید

پست توسط کوه یخ »

دومین برنامه:++C
#include<iostream>
#include<conio.h>
using namespace std;
int main()
{
int a,b,c=0,d;
cin>>a;
d=a;
while(d!=0)
{
b=d%10;
c=c+(b*b*b);
d=d/10;
}
if(c==a)
cout<<"armstrong";
else
cout<<"its not armstrong";
getch();
return 1;
}

عدد آرمسترانگ ARMSTRONGرو چک میکنه (مثلا اگه 153 رو بهش بدید پیتم yes رو نمایش میده چون اگه تک تک ارقام 153 رو به توان 3برسونی باهم جمع کنی مساوی خود153 میشه پس این عدد آرمسترنگه) smile072
کوه یخم من که رو آب شدم شناور
داغ حوادث میکنه آبم سراسر

(ابی)
این آخرین باره من ازت میخوام برگردی به خونه//این آخرین باره من ازت میخوام عاقل شی دیوونه...
(ابی+این آخرین باره...)

*و صدای متلاشی شدن شیشه شادی در شب...(سهراب سپهری)

*داداش وقتی داری خالی میندی حرفه ای خالی ببند!!! ما رو خر فرض نکن!!!

ما که رسوای جهانیم//غم عالم به پشم

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

نام: iceberg

محل اقامت: ice field

عضویت : جمعه ۱۳۹۱/۸/۵ - ۱۵:۰۴


پست: 225

سپاس: 36

جنسیت:

تماس:

Re: برنامه هایی که تا حالا تو کامپیوتر نوشتید

پست توسط کوه یخ »

برنامه سوم:
خط تصادفی با رنگ تصادفی:(برای کار گرافیکی باید یه کارایی بکنید :مثلا این کد (lbgi -lgdi32 -lcomdlg32 -luuid -loleaut32 -lole32-)رو تو یکی از باکسهای کامپلیر آمپشنز COMPILER OPTIONS کپی کنید وبالاشو تیک دار کنید و یه include و یه libدانلود کنید و به DEV اضافه کنید البته اگه نداره!
#include<cstdlib>
#include<iostream>
#include<graphics.h>
using namespace std;
int main()
{
int x1,y1,x2,y2,C;
srand(time(NULL));
initwindow(800,600);
while(!kbhit())
{
delay(20);
x1=rand()%getmaxx();
y1=rand()%getmaxy();
x2=rand()%getmaxx();
y2=rand()%getmaxy();
C=rand()%15;
setcolor(C);
line(x1,y1,x2,y2);
}
closegraph();
return 0 ;
}
کوه یخم من که رو آب شدم شناور
داغ حوادث میکنه آبم سراسر

(ابی)
این آخرین باره من ازت میخوام برگردی به خونه//این آخرین باره من ازت میخوام عاقل شی دیوونه...
(ابی+این آخرین باره...)

*و صدای متلاشی شدن شیشه شادی در شب...(سهراب سپهری)

*داداش وقتی داری خالی میندی حرفه ای خالی ببند!!! ما رو خر فرض نکن!!!

ما که رسوای جهانیم//غم عالم به پشم

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

نام: iceberg

محل اقامت: ice field

عضویت : جمعه ۱۳۹۱/۸/۵ - ۱۵:۰۴


پست: 225

سپاس: 36

جنسیت:

تماس:

Re: برنامه هایی که تا حالا تو کامپیوتر نوشتید

پست توسط کوه یخ »

برنامه چهارم:
عدد تام را چک میکند(تام عددی است که مجموع مقسوم علیه های کوچکتر از خودش با خودش برابره مثل 6)
#include<iostream>
#include<conio.h>
using namespace std;
int main()
{
int i,n,b,c=0,d;
cin>>n;
i=1;
while(i<n)
{
b=n%i;
if(b==0)
c=c+i;
i++;
}
if(c==n);
cout<<"taam bid";

getch();
return 1;
}
کوه یخم من که رو آب شدم شناور
داغ حوادث میکنه آبم سراسر

(ابی)
این آخرین باره من ازت میخوام برگردی به خونه//این آخرین باره من ازت میخوام عاقل شی دیوونه...
(ابی+این آخرین باره...)

*و صدای متلاشی شدن شیشه شادی در شب...(سهراب سپهری)

*داداش وقتی داری خالی میندی حرفه ای خالی ببند!!! ما رو خر فرض نکن!!!

ما که رسوای جهانیم//غم عالم به پشم

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

نام: iceberg

محل اقامت: ice field

عضویت : جمعه ۱۳۹۱/۸/۵ - ۱۵:۰۴


پست: 225

سپاس: 36

جنسیت:

تماس:

Re: برنامه هایی که تا حالا تو کامپیوتر نوشتید

پست توسط کوه یخ »

برنامه پنجم: smile072
دوتاعدد بهش بدید(اولی کوچکتر از دومی)تااعدادبینشونو بهتون بگه(اگه اولی از دومی کوچکتر نباشه از تون خواهش میکنه که دو عدد جدید رو درست وارد کنید)
#include<iostream>
#include<conio.h>
#include<math.h>
using namespace std;
int main()
{
int n=0,x;
cout<<"please enter {n} and {x} :-) (n<x)\n";
cin>>n;
cin>>x;
while(1)
{
if(n<=x)
{
while(n<x)
{
cout<<endl<<n;
n++;
}
}
else
cout<<endl<<"azyyat nakon (n) jadid ra kochecktar az (x) bedeh :-( \n";

cin>>n;
cin>>x;
getch();
return 1;
}
کوه یخم من که رو آب شدم شناور
داغ حوادث میکنه آبم سراسر

(ابی)
این آخرین باره من ازت میخوام برگردی به خونه//این آخرین باره من ازت میخوام عاقل شی دیوونه...
(ابی+این آخرین باره...)

*و صدای متلاشی شدن شیشه شادی در شب...(سهراب سپهری)

*داداش وقتی داری خالی میندی حرفه ای خالی ببند!!! ما رو خر فرض نکن!!!

ما که رسوای جهانیم//غم عالم به پشم

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

نام: iceberg

محل اقامت: ice field

عضویت : جمعه ۱۳۹۱/۸/۵ - ۱۵:۰۴


پست: 225

سپاس: 36

جنسیت:

تماس:

Re: برنامه هایی که تا حالا تو کامپیوتر نوشتید

پست توسط کوه یخ »

برنامه ششم:دایره را بزرگ و کوچیک میکنه باa,b
#include<iostream>
#include<graphics.h>
#include<conio.h>
using namespace std;
int r=2;
char c;
int main()
{
initwindow(700,700);
circle(349,349,r);
while(1)
{
c=getch();
setcolor(COLOR(0,0,0));
circle(349,349,r);
setcolor(COLOR(255,255,255));
if(int(c)==97)r+=2;
if(int(c)==98)r-=2;
if(r<2)r=2;
circle(349,349,r);
}
cin>>r;
}
کوه یخم من که رو آب شدم شناور
داغ حوادث میکنه آبم سراسر

(ابی)
این آخرین باره من ازت میخوام برگردی به خونه//این آخرین باره من ازت میخوام عاقل شی دیوونه...
(ابی+این آخرین باره...)

*و صدای متلاشی شدن شیشه شادی در شب...(سهراب سپهری)

*داداش وقتی داری خالی میندی حرفه ای خالی ببند!!! ما رو خر فرض نکن!!!

ما که رسوای جهانیم//غم عالم به پشم

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

نام: iceberg

محل اقامت: ice field

عضویت : جمعه ۱۳۹۱/۸/۵ - ۱۵:۰۴


پست: 225

سپاس: 36

جنسیت:

تماس:

Re: برنامه هایی که تا حالا تو کامپیوتر نوشتید+کمک در برنامه

پست توسط کوه یخ »

برنامه ششم:عدد را وارد میکنید برعکس و تعداد ارقامش را میدهد
[left#include <iostream.h>
int n,d,p,x;
int main(){
cin >>n;
while(n){
d=n%10;
n=(n-d)/10;
p++;
x=x*10+d;
}
cout <<p<<endl<<x;
cin >>n;
}][/left]
کوه یخم من که رو آب شدم شناور
داغ حوادث میکنه آبم سراسر

(ابی)
این آخرین باره من ازت میخوام برگردی به خونه//این آخرین باره من ازت میخوام عاقل شی دیوونه...
(ابی+این آخرین باره...)

*و صدای متلاشی شدن شیشه شادی در شب...(سهراب سپهری)

*داداش وقتی داری خالی میندی حرفه ای خالی ببند!!! ما رو خر فرض نکن!!!

ما که رسوای جهانیم//غم عالم به پشم

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

نام: iceberg

محل اقامت: ice field

عضویت : جمعه ۱۳۹۱/۸/۵ - ۱۵:۰۴


پست: 225

سپاس: 36

جنسیت:

تماس:

Re: برنامه هایی که تا حالا تو کامپیوتر نوشتید

پست توسط کوه یخ »

برنامه هفتم:یه برنامه ساده:ساعت و گذشت زمان را وارد میکنید تا بهتون بگه بعد گذشت ساعت چند خواهد بود smile072
#include<iostream>
#include<conio.h>
using namespace std;
int main()
{
int n,x,a,b;
cout<<"sa at mored nazar ra vared konid: ";
cin>>n;
cout<<"gozasht zaman ra vared konid: ";
cin>>x;
a=n+x;
b=a%12;
cout<<"sa at alan "<<"("<<b<<")"<<" ast.";
getch();
return 1;
}
فردا برنامه تاس رو میذارم smile015
کوه یخم من که رو آب شدم شناور
داغ حوادث میکنه آبم سراسر

(ابی)
این آخرین باره من ازت میخوام برگردی به خونه//این آخرین باره من ازت میخوام عاقل شی دیوونه...
(ابی+این آخرین باره...)

*و صدای متلاشی شدن شیشه شادی در شب...(سهراب سپهری)

*داداش وقتی داری خالی میندی حرفه ای خالی ببند!!! ما رو خر فرض نکن!!!

ما که رسوای جهانیم//غم عالم به پشم

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

نام: iceberg

محل اقامت: ice field

عضویت : جمعه ۱۳۹۱/۸/۵ - ۱۵:۰۴


پست: 225

سپاس: 36

جنسیت:

تماس:

Re: برنامه هایی که تا حالا تو کامپیوتر نوشتید

پست توسط کوه یخ »

برنامه هشتم:این رسم مزخرف ریاضی

#include<iostream>
#include<graphics.h>
#include<conio.h>
using namespace std;
int main()
{
initwindow(800,800,"vprb");
int i=800,j=0;
while(i>800,j<800)
{
line(0,i,j,0);
j+=80;
i-=80;
}

getch();
return 0;
}

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

(ابی)
این آخرین باره من ازت میخوام برگردی به خونه//این آخرین باره من ازت میخوام عاقل شی دیوونه...
(ابی+این آخرین باره...)

*و صدای متلاشی شدن شیشه شادی در شب...(سهراب سپهری)

*داداش وقتی داری خالی میندی حرفه ای خالی ببند!!! ما رو خر فرض نکن!!!

ما که رسوای جهانیم//غم عالم به پشم

ارسال پست