موضوعات وبسایت : برنامه نویسی
سوالات امتحان آیین نامه رانندگی

جمع ارقام یک عدد در پایتون

نویسنده : محمد پارسایی | زمان انتشار : 06 فروردین 1401 ساعت 22:46

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

@AlirezaSepand



سوالات امتحان آیین نامه رانندگی

میزان موفقیت زبان های برنامه نویسی از سال 2002 تا 2012

r2168_tpci_trends.png

 میزان موفقیت  ۱۰ زبان برنامه نویسی در سایت TIBO 

+ نوشته شده در پنجشنبه ۱۳۹۱/۰۸/۱۱ ساعت 14:1 توسط مائده شیخ حسنی  | 

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

کد برنامه به زبان هسکل

Sum_digits::Int->Int

Sum_digits number=sum(sum  number)

Sum::Int->Int->Int

Sum a  b=| b==0    =a

              | otherwise= sum(a+mod(b   10)       b/10)

Mod::Int->Int->Int

mod x  y | x             

           | otherwise = mod(x-y  y)

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

ادامه نوشته

+ نوشته شده در سه شنبه ۱۳۹۱/۱۰/۱۲ ساعت 12:12 توسط ساحل تقی پور  | 

زبان برنامه نویسی TCL

proc   sumdigits {number}

{

set  sum  0

while  {$number != 0}

{

set  modnum  [expr {$number % 10}]

set  sum  [expr {$sum+$modnum}]

set  flnum  [expr {number/10}]

set  number  [expr {floor(flnum)}]

}

return  $sum

}

+ نوشته شده در یکشنبه ۱۳۹۱/۱۰/۱۰ ساعت 22:39 توسط مهسا بوجاری  | 

زبان برنامه نویسی ICON

procedure main()

                local   sum , number

                write( "Enter number : " )

                number := read()

                while  number != 0  do {

                                sum := number % 10

                                number: = number / 10

                }

                write( "sum of digits is:" , sum)

end

z768_icon.bmp

+ نوشته شده در یکشنبه ۱۳۹۱/۱۰/۱۰ ساعت 9:6 توسط سودابه امینی منش  | 

زبان برنامه نویسی COBRA

class program

    def  main

    Body

        var _sum  as  Integer

        var _number  as  Integer

        print  'Enter number: '

        get  _number  from  var  as  integer

        while( _number != 0)

        Body

            _sum = _number % 10

            _number = _number / 10

        end Body

        print 'sum of digits is[ _sum ]'

End Body

End  class def

+ نوشته شده در یکشنبه ۱۳۹۱/۱۰/۱۰ ساعت 9:3 توسط سودابه امینی منش  | 

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

تاریخچه مختصری ازAction (بخش ۲-۱)

Action یک زبان برنامه نویسی، با ویرایشگر، اشکال زدا و کامپایلر 6502 مجتمع است که برای ریزرایانه‌های خانواده آماری 8 بیتی طراحی شده است . ACTION توسط clinton parker ساخته و توسط optimized systems software در سال 1983 روی کارتریج عرضه شد و گرامر ان شبیه به گرامر Algol68 است . Action به خاطر کارایی بالا یش که امکان نوشتن بازی ها و هوهای گرافیکی را در یک زبان سطح بالا بدون استفاده از کد های نوشته شده توسط انسان زبان اسمبلی را می دهد، قابل توجه است . ساختار های زبان ACTION به گونه ای طراحی شده بودند که با شفافیت 6502 کد عملیات را نگاشت کنند . یک کتابخانه توسعه به عنوان یک محصول جداگانه با نام ACTION TOOLKIT در دسترس بود . Action!برای توسعه حداقل دو محصول تجاری استفاده شد: مجمو عه بهره وری Homepak و برنامه اجرای بازی های رایانه‌ای. این زبان هرگز به سیستم های دیگر منتقل نشد . در سال 2007 این زبان الهام بخش Effectus یک کامپایلر متقابل که اکنون روی پنجره هایی که هدفشان آتار ی 8 بیتی است اجرا می شود، شد. Effectus گرامر Action را شبیه سازی می کند و به گونه ساخت یافته که تا حد ممکن با ACTION سازگار باشد.

ادامه سرفصلها را در ادامه مطلب ببینید...

ادامه نوشته

+ نوشته شده در جمعه ۱۳۹۱/۱۰/۰۸ ساعت 12:1 توسط مینا درویشی  | 

مقایسه زبان های برنامه نویسی

مقدمه

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

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

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

بقیه در ادامه مطلب...

ادامه نوشته

+ نوشته شده در شنبه ۱۳۹۱/۱۰/۰۲ ساعت 16:13 توسط سودابه امینی منش  | 

زبان برنامه نویسی پرولوگ

کد برنامه به زبان پرولوگ

X is 0,

read(x)

sumofdigits(X, X):-
 X

sumofdigits(X, Y):-
 X > 9, Y1 is X mod 10, X1 is X // 10, sumofdigits(X1, Z), Y is Y1 + Z.

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

ادامه نوشته

+ نوشته شده در شنبه ۱۳۹۱/۱۰/۰۲ ساعت 12:33 توسط ساحل تقی پور  | 

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

تاریخچه مختصری از  Smalltalk(بخش ۲-۱)

انواع مختلف موجود از زبان اسمالتاک همانند سایر زبان‌ها موجود است. لغت اسمالتاک اشاره به نسخه اسمالتاک-۸۰ دارد. اولین نسخه ای از این زبان که بطور عمومی قابل استفاده بود در سال 1980 ساخته شد اسمالتاک محصول تحقیقات گروه پژوهشی زیر نظر الن کی د ر شرکت زیراکس پارک بوده است. آلن کی بیشتر نسخه‌های اولیه این زبان را طراحی نموده است که توسط دان اینگالس پیاده شده‌اند. اولین نسخه این زبان یعنی اسمالتاک-۷۱ در اثر یک شرط‌بندی در مورد امکان بوجود آوردن یک زبان با کد یک صفحه‌ای براساس ارسال پیام همانند سیمولا در عرض چند صبح بوجود آمد. نسخه بعدی که بیشتر در کارهای تحقیقاتی به کار رفت و تاثیری روی ایجاد مدل بازیگر داشت اسمالتاک-۷۲ بود. این نسخه دارای دستورات و مدل اجرایی متفاوتی از بیشتر انواع این زبان در حال حاضر بود. با وجود مسدود نمودن بخشی از مدل اجرایی و بوجود آوردن سلسله مراتب کلاس‌ها همانند سیمولا نسخه اسمالتاک-۷۶ بوجود آمد.

ادامه سرفصلها را در ادامه مطلب ببینید...

ادامه نوشته

+ نوشته شده در شنبه ۱۳۹۱/۱۰/۰۲ ساعت 10:1 توسط مینا درویشی  | 

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

کد برنامه به زبان الگول

begin

int  number,remainder,sum:=0;

 print(("please enter number:"));

read((number));

if  number=0  then

print(("result is:",number));

else

while   number!=0

do

reminder=number%10;

sum+ =reminder;

number/=10;

od

print(("result is:",sum));

fi;

end

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

ادامه نوشته

+ نوشته شده در جمعه ۱۳۹۱/۱۰/۰۱ ساعت 21:45 توسط ساحل تقی پور  | 

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

تاریخچه مختصری از  Scala(بخش ۲-۱)

Scala یک زبان برنامه نویسی میباشد که از عمرش زیاد نمیگذرد و در سال ۲۰۰۳ معرفی شده است. این زبان جزو زبان هاییست که برای اجرا روی JVM یا همان ماشین مجازی جاوا طراحی شده است. اما چیزهایی در مورد این زبان هست که باعث میشود با زبان های دیگری که برای JVM طراحی شدن فرق داشته باشد.
این زبان توسط آقای Martin Odersky ابداع شده که یکی از پرفسورهای فعال در «موسسات تکنولوژی فدرال سوییس» یا EPFL میباشد و از تخصص های اصلیش تحقیق در مورد زبان های برنامه نویسی و آنالیز کدهاست.ایشان طراح و توسعه دهنده ی اصلی کامپایلر حال حاظر جاوا، یعنی javac ، و یکی از طراحان اصلی Generic ها در زبان برنامه نویسی جاوا هستند.

ادامه سرفصلها را در ادامه مطلب ببینید...

ادامه نوشته

+ نوشته شده در جمعه ۱۳۹۱/۱۰/۰۱ ساعت 11:8 توسط مینا درویشی  | 

زبان برنامه نويسي shell

#!bin/bash/

#sumdigits.sh

sum=0

echo "enter a number:"

read number

while test $number != 0

do

x=$expr number%10

sum=$expr x+sum

number=$expr number/10

done

echo "result: $sum"

+ نوشته شده در جمعه ۱۳۹۱/۱۰/۰۱ ساعت 10:19 توسط مهسا بوجاری  | 

زبان برنامه نويسي PYTHON

def sumdigits (number) :<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /?>

    sum=0

    while number != 0 :

        sum = sum + number % 10

       number = number / 10

    return sum

 سرفصل هايي از کتاب درباره پايتون در ادامه مطلب

ادامه نوشته

+ نوشته شده در پنجشنبه ۱۳۹۱/۰۹/۳۰ ساعت 17:24 توسط مهسا بوجاری  | 

زبان برنامه نویسی MATLAB

function

s=sumdigits(a)

s=0;

while

a~=0

     s=s+mod(a,10);

     a=floor(a/10);

end

end

: اجراي برنامه بالا در متلب

>> a=10953;
>> s=sumdigits(a)

s =

    18

>> a=10000000006;
>> s=sumdigits(a)

s =

     7

>> a=7854219;
>> s=sumdigits(a)

s =

    36

سرفصل هایی از کتاب درباره متلب در ادامه مطلب

ادامه نوشته

+ نوشته شده در پنجشنبه ۱۳۹۱/۰۹/۳۰ ساعت 11:43 توسط مهسا بوجاری  | 

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

کد برنامه به زبان پرل

sub sdn{

    $number=0;

    $sum=0;

    printf"Please enter a number:\n";

   $number=;

   $cnumber=$number;

   while ($cnumber>0){

        $sum=$sum+$cnumber%10;

       $cnumber=$cnumber/10;

    }

    print"Sum of digits $number is : $sum";

}

sdn

نمونه اجرا برنامه:(www.compileonline.com)

t376_p.png

سرفصلهایی از کتاب درباره پرل را در ادامه مطلب ببینید...

ادامه نوشته

+ نوشته شده در شنبه ۱۳۹۱/۰۹/۲۵ ساعت 9:43 توسط مائده شیخ حسنی  | 

زبان برنامه نويسي pascal

program sumdigit;<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /?>

var

sum, number : integer;

begin

writeln ('enter number:');

readln (number);

while number0 do

begin

sum := sum + number mod 10;

number := number/10;

end;

writeln (sum);

end

 سرفصل هايي از کتاب درباره پاسکال در ادامه مطلب

ادامه نوشته

+ نوشته شده در جمعه ۱۳۹۱/۰۹/۲۴ ساعت 19:55 توسط مهسا بوجاری  | 

زبان برنامه نویسی جاوا

کد برنامه به زبان جاوا

import java.util.Scanner;

public class Sdn {

    public static void main(String[] args)

    {

        int  sum,number,cNumber;

       Scanner input=new Scanner(System.in);

        System.out.printf("Please enter number:" );

        number=input.nextInt();

        cNumber=number;

        sum=0;

        while(cNumber!=0){

            sum+=cNumber%10;

            cNumber=cNumber/10;

        }

        System.out.printf("Sum of digits of %d is : %d " , number,sum);

    }

 }

نمونه اجرا برنامه:(www.compileonline.com)

f5553_j.png

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

ادامه نوشته

+ نوشته شده در پنجشنبه ۱۳۹۱/۰۹/۲۳ ساعت 19:17 توسط مائده شیخ حسنی  | 

زبان برنامه نویسی COBOL

IDENTIFICATION DIVISION.


PROGRAM-ID. sum of digits.


DATA DIVISION.


WORKING STORAGE SECTION


01 SUM PIC  S9V999  VALUE ZEROS.


01 NUMBER PIC 99   VALUE ZEROS.


01 REMAINDER PIC 99   VALUE ZEROS.


PROCEDURE DIVISION.

Calculator.


DISPLAY " Enter number: "


ACCEPT  NUMBER


PERFORM UNTIL NUMBER>0


    MOD NUMBER BY 10 GIVING REMAINDER


    ADD SUM,REMAINDER GIVING SUM


    DIVIDE NUMBER BY 10 GIVING NUNBER


END_PERFORM.


DISPLAY  " Results is:  "  , SUM


STOP RUN.

...سرفصلهایی از کتاب در ادامه مطلب

ادامه نوشته

+ نوشته شده در دوشنبه ۱۳۹۱/۰۹/۰۶ ساعت 14:55 توسط سودابه امینی منش  | 

زبان برنامه نویسی ++C

#include

using namespace std;

int sum_digit(int number)
{
    int sum=0;
    while(number!=0)
    {
        sum+=number%10;
        number/=10;
    }
    return sum;
}

p5373_c.bmp

  ...سرفصلهایی از کتاب در ادامه مطلب

ادامه نوشته

+ نوشته شده در دوشنبه ۱۳۹۱/۰۹/۰۶ ساعت 14:52 توسط سودابه امینی منش  | 

زبان برنامه نویسی #C

کد برنامه به زبان #C

using System; 
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication1{
class  SumDgites
{
   public  static void Main()
    {
     int remaind = 0;
     int sum = 0;
     int number=0;
     string s;
 
     Console.WriteLine("Please enter number: ");
     s= Console.ReadLine();
     number=Int32.Parse(s);
 
   while(number!=0){
            remaind = number % 10;
           sum = sum + remaind;
          number = number / 10;
     }
 
     Console.Write("Sum of number digites is: ");
     Console.WriteLine("{0}", sum);
 
    }  
}}

نمونه اجرا برنامه در سایت www.compileonline.com

z9921_C.png

سرفصلهایی از کتاب درباره  #C را در ادامه مطلب ببینید...

ادامه نوشته

+ نوشته شده در جمعه ۱۳۹۱/۰۹/۰۳ ساعت 17:19 توسط مینا درویشی  | 

زبان برنامه نویسی Visual Basic

کد برنامه به زبان Visual Basic

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim Number As Integer
        Dim R As Integer
        Dim Sum As Integer
        Number = InputBox("Please enter number :", "sum of number's digits")
        R = 0
        Sum = 0
        While Number 0
            R = Number Mod 10
            Sum = Sum + R
            Number = Number \ 10
        End While
        Print  Sum
    End Sub
End Class

نمونه اجرا برنامه در محیطVisual stadio

n6761_VisualBasic1.png

l78_VisualBasic2.png

البته در این نمونه اجرا برای داشتن پنجره های یک شکل از  InputBox به جای Print  استفاده کرده ام. این محیطدستور Print حاصل را در پنجره dos نشان میداد که زیبا نبود.

سرفصلهایی از کتاب درباره  Visual Basic را در ادامه مطلب ببینید...

ادامه نوشته

+ نوشته شده در جمعه ۱۳۹۱/۰۹/۰۳ ساعت 16:53 توسط مینا درویشی  | 

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

 کد برنامه به زبان سی

#include

#include

void main()
{
   int number,remainder,sum=0;//define variable
   printf("please enter number:\n");
   scanf("%d", &number);//read number
   if(number==0)
      printf("result is:%d",number);
   else{
      while(number!=0){
            remainder=number%10;
            sum+=remainder;
            number/=10;
      }//end while
      printf("result is:%d",sum);
   }//end else
}//end function main

u3983_c.bmp

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

ادامه نوشته

+ نوشته شده در شنبه ۱۳۹۱/۰۸/۲۷ ساعت 16:12 توسط ساحل تقی پور  | 

زبان برنامه نویسی ML

کد برنامه به زبان ML

)fun SumDigites

(val number = 0)  (*int number*)
(val remaind = 0) (*int remaind*)
(val sum = 0)     (*int sum*)

(print("Please enter number: \n"))
(input(number))

(while(let number!=0 ) do(
 (remaind = number mod 10)
 (sum = sum + remaind)
 (number = number div 10)
 )

(print("Sum of number digites is: \t %d",sum))
);

سرفصلهایی از کتاب درباره ML را در ادامه مطلب ببینید...

ادامه نوشته

+ نوشته شده در شنبه ۱۳۹۱/۰۸/۲۷ ساعت 15:12 توسط مینا درویشی  | 

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

کد برنامه به زبان روبی

def sdn()

    sum=0;

    print "Please enter number : \n";

    number=gets.to_i;

    cnumber=number;

     loop do

         break if cnumber

         sum+=cnumber%10;

         cnumber=cnumber/10;

     end

     print "Sum of digits of #{number} is : #{sum} ";

end

sdn()

نمونه اجرا برنامه:(www.compileonline.com)

v2749_r.png

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

ادامه نوشته

+ نوشته شده در چهارشنبه ۱۳۹۱/۰۸/۱۷ ساعت 17:8 توسط مائده شیخ حسنی  | 

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

کد برنامه به زبان لیسپ

(defun sdn()

    (defparameter *number* 0)

    (defparameter *sum* 0)

    (format t "Please enter a number :~% ")

    (setf *number* (read))

    (let ((cnumber *number*))

        (do ((i cnumber (round i 10))) ((

            (setf  *sum* ( +  *sum*(rem i 10)))

        )

    ) 

    (format t "Sum of digits of ~A is : ~A~%" *number* *sum*)

)

(sdn)

نمونه اجرا برنامه:(www.compileonline.com)

f3368_l.png

سرفصلهایی از کتاب درباره لیسپ  را در ادامه مطلب ببینید...

ادامه نوشته

+ نوشته شده در چهارشنبه ۱۳۹۱/۰۸/۱۷ ساعت 17:5 توسط مائده شیخ حسنی  | 

زبان برنامه نویسی فرترن

کد برنامه به زبان فرترن

PROGRAM SDN

    Isum=0

    PRINT * , 'Please enter a number : '

    READ * , Inumber

    Icnumber=Inumber

    convergence_loop: do while(Icnumber>0);

        Isum=Isum+MOD(Icnumber,10)

        Icnumber=Icnumber/10

    enddo convergence_loop

    PRINT * , 'Sum of digits ' , Inumber , ' is :' , Isum

    STOP

END

نمونه اجرا برنامه:(www.compileonline.com)

i6747_f.png

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

ادامه نوشته

+ نوشته شده در چهارشنبه ۱۳۹۱/۰۸/۱۷ ساعت 16:57 توسط مائده شیخ حسنی  | 

تاریخچه زبان برنامه نویسی APL

تاریخچه

APL مخفف عبارت «یک زبان برنامه‌نویسی» است. این زبان در بسیاری از زمینه‌ها (ریاضیات، علوم، مهندسی، طراحی کامپیوتر، روباتیک و ...) کاربرد دارد. APL زبانی بسیار قوی و مختصر و مفید است که به معمولاً در محیط‌های اینتراکتیو استفاده می‌شود. در آغاز این زبان در زمینه دیگری تولید شد، ساختن یک نمادگذاری ریاضی برای توصیف کامپیوتر که بتوان آن را به وسیله یک کامیپوتر تفسیر کرد. یادگیری این زبان ساده است اما خوانایی کمی دارد و برای درک بعضی از برنامه‌هایی که به زبان APL نوشته شده‌اند، زمان زیادی لازم است. زبان‌های کمی وجود دارند که عملیات آرایه‌ای آن‌ها به وسعت APL باشد. <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /?>

APL یک زبان برنامه‌نویسی است که بر مبنای نمادگذاری که Kenneth E. Iverson در سال ۱۹۵۷ در دانشگاه هاروارد ابداع کرد، ایجاد شده است. هدف اولیه تولید این زبان، ایجاد یک زبان مشترک برای تدریس و تحلیل برنامه‌های کامپیوتری بوده است. Iverson جایزهٔ تورینگ را به خاطر این کارش در سال ۱۹۷۹ برد.

عمدتاً برنامه‌های APL تفسیر می‌شوند و کم‌تر کامپایل می‌شوند. در واقع اکثر کامپایلرهای APL، متن برنامهٔ APL را به زبان‌های سطح پایین‌تر مانند C ترجمه می‌کنند. با این‌که توسعه زبان APL خصوصاً اضافه شدن آرایه‌های تودرتو، کامپایل کردن APL را دشوار ساخته، ایدهٔ کامپایل کردن APL هنوز در حال بررسی است.

ادامه نوشته

+ نوشته شده در چهارشنبه ۱۳۹۱/۰۸/۱۷ ساعت 16:27 توسط ساحل تقی پور  | 

زبان برنامه نویسی ادا

کد برنامه به زبان ادا

with Ada.Text_IO; use Ada.Text_IO;

with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Exercise is
   n : integer ;

    r : integer;
   m : integer :=0;
begin 

Put_Line("please enter number:");
    Ada.Integer_Text_IO.Get(N);

if  n=0  then

put_line("result is:" & integer'image(n));

else
while   n>0  loop

    r:= (n mod 10);
    m := m+r;
    n := n/10;
end loop;

end if;
Put_Line("M = " & integer'image(m));

end Exercise;

t944_ada.bmp

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

ادامه نوشته

+ نوشته شده در چهارشنبه ۱۳۹۱/۰۸/۱۷ ساعت 16:19 توسط ساحل تقی پور  | 

زبان برنامه نویسی Delphi

کد برنامه به زبان Delphi

program DigiteSum;
uses wincrt;

var Number,Sum,Remaind:Integer=0;

Begin
writeln('Please enter the number: ');
readln(Number);
begin
while (Number>=0) do
begin
Reamind:= Number mod 10;
Sum:= Remaind+Sum;
Number:= Number div 10;
end;
write('Sum of number digites is :');
writeln(Sum);
End.

سرفصلهایی از کتاب درباره Delphi را در ادامه مطلب ببینید...

ادامه نوشته

+ نوشته شده در چهارشنبه ۱۳۹۱/۰۸/۱۷ ساعت 16:13 توسط مینا درویشی  | 

زبان برنامه نویسی Assembly

کد برنامه به زبان Assembly

include io.h

cr EQU 0dh ;carriage return character
lf EQU 0ah ;linefeed character

stack SEGMENT stack
 DW 100h DUP(?)
stack ENDS

data SEGMENT
prompt DB cr,lf,'sum of number''s digits.'
 DB cr,lf,'Please enter number: ',0
number DB 40 DUP(?)          
answer DB cr,lf,'The result is: '
sum DB 6 DUP(?)
 DB cr,lf,0
data ENDS

code SEGMENT
 ASSUME cs:code,ds:data
start: mov ax,SEG data  ;load data segment
 mov ds,ax

print: output prompt
 inputs number,40
 atoi number
 mov cx,10
 mov bx,0 ;sum
while_loop:
 div cx
 add bx,ah
 add al,0
 jnz while_loop

 mov ax,bx
 itoa sum,ax
 output answer
  
quit: mov al, 0 ;return code 0
mov ah, 4ch  ;DOS function to return
int 21h  ;interupt for DOS services
 
Code ENDS
 END start

 نمونه اجرایی از این برنامه:

n3281_Assembly.png

 درباره Assembly را در ادامه مطلب ببینید...

ادامه نوشته

+ نوشته شده در چهارشنبه ۱۳۹۱/۰۸/۱۷ ساعت 16:0 توسط مینا درویشی  | 

آیا این مطلب برای شما مفید بود؟


منبع: pld.blogfa.com



ارسال نظر

نام


ایمیل


نظر