1樓：羽翼灬靈魂
pascal行嗎？
var i,s:integer;
begin
s:=0;
for i:=1 to 20 do
if i mod 2<>0 thens:=s+i;
writeln(s);
end.
啊，看錯了，以為是程式語言，sorry
2樓：影者東昇
data segment
sum1 dw 0
sum2 dw 0
data ends
stack segment
s db 1000 dup( 0 )
stack ends
code segment
assume cs:code, ds:data, ss:stackstart:
mov ax, data
mov ds, ax
mov ax, 0
mov cx, 0 ;偶數部分
loop1:
add ax, cx
inc cx
inc cx
cmp cx, 21
jl loop1
mov sum1, ax
mov ax, 0
mov cx, 1 ;奇數部分
loop2:
add ax, cx
inc cx
inc cx
cmp cx, 20
jl loop2
mov sum2, ax
mov ah, 4ch
int 21h
code ends
end start
用組合語言編寫程式計算5 10
超級花生 dseg segment result dw 存放和 dseg ends cseg segment assume cs cseg,ds dsegstart mov ax,dseg mov ds,ax mov ax,5 從5開始加 mov result,0 和的初值賦0 mov cx,20 ...
利用組合語言寫出高效的3x 1程式
愛因景潤 unsigned long d asm 這個程式我除錯過了，只要運算過程中不出現越界就沒問題。變數d你定義到資料段中就行了。另外我還除錯了一下你給的 好像無論怎樣都jmp start6，根本跳不出來耶。還有據我理解，你的 是往前看好幾步，然後2個4個的往上加，我不知道你為什麼採用這種演算法...
大學80C51微控制器程式設計題，請使用組合語言編寫，謝謝
1 mov a,r1 anl a,0f0h xch a,r2 anl a,0fh orl a,r2 mov r3,a 2 mov r0,30h mov 40h,0 mov 41h,0 mov r2,16 loop mov a,r0 add a,40h mov 40h,a mov a,41h addc...