1樓:德意志之盾
var a:array[1..32767]of boolean;
b:array[1..40]of integer;
i,s,t:integer;
begin
for i:=1 to 32767 do a[i]:=false;
write(1:8,2:8);
a[1]:=true;
b[1]:=1;
b[2]:=2;
s:=2;
repeat
i:=1;
while a[i] do i:=i+1;
write(b[s]+i:8);
b[s+1]:=b[s]+i;
for i:=1 to s do
a[b[s+1]-b[i]]:=true;
s:=s+1;
until s=40;
writeln;
end.
設計一個程式,在計算機螢幕輸出40個自然數來,使得其中任意兩個數之差均不相等?
2樓:心飛翔
對的。因為如果兩個不相等的自然數和、差均不是2的倍數,那一定是一個奇數一個偶數,而二者相乘,因含一個偶數,故乘積一定是2的倍數。
設計一個程式,在計算機螢幕輸出40個自然數來,使得其中任意兩個數之差均不相等 用組合語言
3樓:做而論道
assume cs:cc, ds:qwqw segment
x1 dw 1
x2 dw 0
x3 db 0
qw ends
cc segment
s_t:
mov ax, qw
mov ds, ax
mov cx, 40
m_loop:
mov ax, x1
add ax, x2
mov x1, ax
call d_ax_5
mov ax, x2
add ax, 3
mov x2, ax
inc x3
cmp x3, 10
jnz d_09
mov x3, 0
mov ah, 2
mov dl, 13
int 21h
mov dl, 10
int 21h
jmp next
d_09:
mov ah, 2
mov dl, 9
int 21h
next:
loop m_loop
exit:
mov ah, 4ch
int 21h
d_ax_5 proc near
push cx
push ds
push cs
pop ds
lea di, @@x_5
mov cx, 5
mov dl, 20h
@@: mov [di], dl
inc di
loop @b
dec di
mov bx, 10
mov cx, 5
@@: xor dx, dx
div bx
mov [di], dl
dec di
loop @b
inc di
mov ah, 2
mov cx, 5
@@: mov dl, [di]
or dl, 30h
int 21h
inc di
loop @b
pop ds
pop cx
ret@@x_5 db 5 dup(?)
d_ax_5 endp
cc ends
end s_t
emu8086組合語言**軟體輸出40個自然數來,使得其中任意兩個數之差均不相等
4樓:匿名使用者
看見份額是否會慢慢沒看
5樓:匿名使用者
樂迪兩路口摩天樓哦明輪渡來了
6樓:小宇健身人
assume cs:cc, ds:qw
qw segment
x1 dw 1
x2 dw 0
x3 db 0
qw ends
cc segment
s_t:
mov ax, qw
mov ds, ax
mov cx, 40
m_loop:
mov ax, x1
add ax, x2
mov x1, ax
call d_ax_5
mov ax, x2
add ax, 3
mov x2, ax
inc x3
cmp x3, 10
jnz d_09
mov x3, 0
mov ah, 2
mov dl, 13
int 21h
mov dl, 10
int 21h
jmp next
d_09:
mov ah, 2
mov dl, 9
int 21h
next:
loop m_loop
exit:
mov ah, 4ch
int 21h
d_ax_5 proc near
push cx
push ds
push cs
pop ds
lea di, @
mov cx, 5
mov dl, 20h
@@: mov [di], dl
inc di
loop @b
dec di
mov bx, 10
mov cx, 5
@@: xor dx, dx
div bx
mov [di], dl
dec di
loop @b
inc di
mov ah, 2
mov cx, 5
mov dl, [di]
or dl, 30h
int 21h
inc di
loop @b
pop ds
pop cxret
設計一個程式,在計算機螢幕輸出40個自然數來,使得其中任意兩個數之差均不相等 用組合語言 50
7樓:
偽**while 40
print a
a + d -> a
modify d
do loop
用VB設計程式，找出100到1000範圍內所有能同時被
這個可以用直介面算出來的,5 7 3535 3為最小的一個,1000 35 28所以數字是35 3至35 27的數字 for i 100 to 1000if i mod 5 0 or i mod 7 0 then print inext 輸出 1,100 之間同時被5和7整除的數的個數及他們的和?要...
計算機配置方案，設計計算機配置方案
cpu i5 2300 1259 主機板 技嘉 gah67ma u3 b3 679記憶體 金士頓 4g 118 顯示卡 索泰 460 1gd5 毀滅者 999硬碟 希捷 500g 569 顯示器 三星 e2220 寸 839電源 安鈦克 vp550p 389 機箱 自選 100 總共4950 電腦配...
計算機網路課程設計，計算機網路課程設計
給你推薦個 上面有網路工程計劃策略什麼的 對你可能有幫助我也經常上那個 zhulong.設計1 xx網路構建方案設計 設計2 企業內部web站點構建及維護 設計3 企業內部的dns伺服器構建。設計4 利用雙網絡卡主機實現路由功能 首先保證主機有兩塊網絡卡，一塊連線你的 貓 一塊連線副機，然後進入到副...