بازی ایرانی گلادیاتوس

لینک زیر به بازی  آنلاین گلادیاتوس می باشد

افرادی که از بازی آنلاین خوششان می آید کلیک کنند

گلادیاتوس

پاسخ به سوالات

دوست عزیز که درخواست نرم افزار سی پلاس پلاس رو داشتید اگه نگاهی به پست های قبلی بندازید جایی هست که من توربو سی پلاس پلاس ۳ رو آپلود کردم که داخل این نرم افزار یک پروژه هم قرار دادم.

همون پستی که نوشتم تقدیم به ابوالحسن شادکام.

------------------------------

در مورد تصحیح آدرس فایل

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

برنامه مثلث خيام پاسكال

#include
#include
#include
#include
int pos,n,k;
long int fact(int k)
{
 if((k==0) || (k==1))
 return 1;
 else
 return k*fact(k-1);
}
//*********************************************
long int tarkib (int k,int i)
{
 return  ceil(fact(k)/(fact(i)*fact(k-i)));
}
//*********************************************
void satr (int k)
{
 int i;
 for (i=0;i<=k;i++)
 printf ("%6u",tarkib(k,i));
}
//*********************************************
void blank()
{
  int i;
  for (i=1;i<=pos;i++)
  cout <<" ";
  pos-=3;
}
//********************************************

void main()
{
pos=33;
cout <<"Enter Your Number:";
cin >>n;
for (k=0;k<=n;k++)
{
blank();
satr(k);
cout <<"\n";
}
getch();
}

برنامه محاسبه لاگرانژ

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

تقدیم به همه ایرانیان

#include
#include
#include
void main()
{
float xi[100],fi[100],temp,li[100],x,p;
int i,n,j;
cout <<"enter number of sentences:\t";
cin >>n;
cout <<"enter value of x:\t";
cin >>x;
for (i=0;i{
cout <<"enter xi["<cin >>xi[i];
cout <<"enter fi["<cin >>fi[i];
}//end of for
for (i=0;i{
li[i]=1;
 for (j=0;j {
 if(i==j)
 continue;
  li[i]*=(x-xi[j])/(xi[i]-xi[j]);
 }//end of for
}//end of for
clrscr();
for (i=0;ili[i]=li[i]*fi[i];
p=0;
for (i=0;ip+=li[i];
cout <<"P"<getch();
}//end of program

نمونه برنامه جهت کار با فایل های متنی در vb6

سلام دوستان امروز یک نمونه برنامه گذاشتم برای دوستانی که میخوان کار با فایلها رو در  ویژوال بیسیک ۶ یا همون vb6 شروع کنند.

بد نیست اگه به این مثال هم نگاهی بندازند.

پروژه نیست ها......... فقط یه نمونه مثال هست برای کار با فایل ها.

نمونه برنامه کار با فایل در ویژوال بیسیک6

موفق باشید.

یا علی...

vb6_file_sample.rar

پروژه گرافیکی با زبان C++

سلام ابوالحسن جان

فایل زیر رو که دانلود کردی وارد درایو C که شدی، همون جا کپی کن و  Extract کن.

سپس وارد پوشه TC و بعد وارد BIN  و بعد وارد پوشه Project که شدی وارد پوشه tree بشو و از اونجا فایل اجرایی رو کلید کن.حتما باید برنامه اجرا بشه.

چند بار تست کردم و مشکلی هم نداره.

پروژه گرافیکی به زبان C++

موفق باشی

یا علی...

برنامه ای گرافیکی به زبان C

تقدیم به جناب شادکام

برای دانلود برنامه کافیست بر روی لینک زیر کلیک نمایید.

توضیحات برنامه هم البته کم داخل برنامه هست توی یک فایل ورد.

چون نمیدونستم چی رو باید توضیح بدم فقط دستورات رو گفتم و چون ۹۰٪ دستورات تکراری بودن پس توضیحات کم شد.

اگر هم سوالی بود هستم خدمتت.

یا علی...

برنامه گرافیکی به زبان c

برنامه ماشین جساب 4 عمل اصلی به زبان اسمبلی

data segment
  temp db 10 dup(0)
  str  db 'Please Enter Number1:',"$"
  str1 db 'Please Enter Operator:',"$"
  str2 db 'Please Enter Number2:' ,"$"
  str3 db 'result:',"$"
  str4 db 'invalid operator',"$"
  num1    dw  ?
  num2    dw  ?
  result    dw  ?
  operator  db  ?
data ends

code segment
 assume cs:code,ds:data  
;------------------------------------getnumber-----------------------------------------
  getnum proc
 push ax
 push bx
 push dx
 again: mov ah,8
 int 21h
 cmp al,13
 je finish
 cmp al,'0'
 jl again
 cmp al,'9'
 jg again
 mov [bx],al
 inc bx
 mov dl,al
 mov ah,2
 int 21h
 jmp again
 finish:mov [bx],al
 pop dx
 pop bx
 pop ax
 ret
  getnum endp
;-------------------------------------------asctobin-------------------------------------------
  asctobin proc
 push bx
 push si
 push dx
 mov si,10
 mov ax,0
 next:  mul si
 mov dl,[bx]
 inc bx
 sub dl,48
 add ax,dx
 cmp byte ptr[bx],13
 jne next

 pop dx
 pop si
 pop bx
 ret
  asctobin endp
;------------------------------------------bintoasc-----------------------------------------------
  bintoasc proc
 push cx
 push dx
 push si
 push bx
 push ax
 mov si,10
 xor cx,cx
 next2: xor dx,dx
 div si
 push dx
 inc cx
 or ax,ax
 jnz next2
 l1: pop dx
 add dl,48
 mov [bx],dl
 inc bx
 loop l1
 mov byte ptr[bx],'$'
 pop ax
 pop bx
 pop si
 pop dx
 pop cx
 ret
  bintoasc endp
;------------------------------------------------amaliat---------------------------------------------------
 amaliat proc
 mov ax,num1
 mov bx,num2
 mov dl,operator
 cmp dl,'+'
 jne menha
 add ax,bx
 ret
menha: cmp dl,'-'
 jne  zarb
 sub ax,bx
 ret
zarb: cmp dl,'*'
 jne taghsim
 mul  bx
 ret
taghsim: cmp dl,'/'
 jne invalid
 sub dx,dx
 div  bx
 ret
invalid:
       lea dx,str4
 mov ah,9h
 int 21h

 ret
 amaliat endp
;------------------------------------------------------------MAIN---------------------------------------------------------
main proc
  mov ax,data
  mov ds,ax

;*****************************************************
  ;clrscr
 mov ah,6h
 mov al,25
 mov ch,0
 mov cl,0
 mov dh,24
 mov dl,79
 mov bh,7
 int 10h
;*****************************************************
   ;cursor move
 mov ah,2h
 mov dh,10
 mov dl,30
 mov bh,0
 int 10h
 
        lea dx,str
 mov ah,9h
 int 21h
        lea bx,temp
        call getnum
        call asctobin
        mov  num1,ax
       

;cursor move
 mov ah,2h
 mov dh,12
 mov dl,30
 mov bh,0
 int 10h

        lea dx,str1
 mov ah,9h
 int 21h

;cursor move
 mov ah,2h
 mov dh,13
 mov dl,30
 mov bh,0
 int 10h

   mov ah,1
   int 21h
  mov operator,al
 

;cursor move
 mov ah,2h
 mov dh,14
 mov dl,30
 mov bh,0
 int 10h

        lea dx,str2
 mov ah,9h
 int 21h

 call getnum
   call asctobin
   mov  num2,ax
   call amaliat
   mov  result,ax
   

 

;***********************************************************
   ;output

 

;cursor move
 mov ah,2h
 mov dh,16
 mov dl,30
 mov bh,0
 int 10h
        lea dx,str3
 mov ah,9h
 int 21h

    
   mov ax,result
   call bintoasc
   mov dx,bx
   mov ah,9
   int 21h
 
;*****************************************************************
   ;exit
 mov  ah,4ch
   int 21h
main endp
code ends
 end main

برنامه ای به زبان اسمبلی

با سلام خدمت دوستان

این برنامه یک رشته رو از کاربر دریافت میکنه و تعداد تکرار کاراکتر a رو نشان میده.

.MODEL SMALL
.DATA
    string  DB 51
            DB ?
            DB 51 DUP (?)
    msg1    DB 13,10,"Please enter a string :",13,10,"$"
    msg2    DB 13,10,"Number Repeat Of 'a' Is :",13,10,"$"
.CODE
.STARTUP
    MOV     AH, 9
    LEA     DX, msg1
    INT     21h
    MOV     AH, 0ah
    LEA     DX, string
    INT     21H
    MOV     AH, 9
    LEA     DX, msg2
    INT     21h
    MOV     CL, string[1]
    CMP     CL, 0
    JZ      go_exit
    MOV     CH, 0 
    LEA     SI, string[2]
    MOV    Ax,0
loop_1:
    MOV     DL, [SI]
    CMP     DL,'a'
    JNE   L1
    cmp al,9
    jne   l2
    inc ah
    mov al,0
    jmp l1
l2:
    INC    AL
L1:
    INC      SI
    DEC     CL
    Jnz      loop_1
go_exit:
     mov cx,ax
     add ch,48
     add cl,48
     mov ah,02h
     mov dl,ch
     int 21h
     mov ah,02h
     mov dl,cl
     int 21h
.EXIT
.STACK
END

 

تقدیم به خواهر عزیزتر از جانم

بفر ما این هم از نرم افزار چت با گوشی تقدیم به شما...

نرم افزار چت با گوشی

البته فراموش نشه که این نرم افزار از وب سایت mihandownload.com

می باشد.