| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1144 人关注过本帖
标题:[求助]各位大虾初来乍到,问个路~~~!!!
只看楼主 加入收藏
fancyfancy
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-7-17
收藏
 问题点数:0 回复次数:2 
[求助]各位大虾初来乍到,问个路~~~!!!
有那位好心人可以帮我画个流程图啊,

教流程图那天我翘课了,现在是追悔莫及啊~~~自己完全不懂,

关于闰年问题的,程序如下:

data segment ;定义数据段

infon db 0dh,0ah,'Please input a year: $' ; 提示输入一个年份

Y db 0dh,0ah,'This is a leap year! $' ;这是一个闰年

N db 0dh,0ah,'This is not a leap year! $';这不是一个闰年

w dw 0

buf db 8

db ?

db 8 dup(?)

data ends

stack segment stack

db 200 dup(0)

stack ends

code segment

assume ds:data,ss:stack,cs:code

start : mov ax,data

mov ds,ax

lea dx,infon ;在屏幕上显示提示信息

mov ah,9

int 21h

lea dx,buf ;从键盘输入年份字符串

mov ah,10

int 21h

mov cl, [buf+1]

lea di,buf+2

call datacate

call ifyears

jc a1

lea dx,n

mov ah,9

int 21h

jmp exit

a1: lea dx,y

mov ah,9

int 21h

exit: mov ah,4ch

int 21h

datacate proc near;

push cx;

dec cx

lea si,buf+2

tt1: inc si

loop tt1

;lea si,cx[di]

pop cx

mov dh,30h

mov bl,10

mov ax,1

l1: push ax

sub byte ptr [si],dh

mul byte ptr [si]

add w,ax

pop ax

mul bl

dec si

loop l1

ret

datacate endp

ifyears proc near

push bx

push cx

push dx

mov ax,w

mov cx,ax

mov dx,0

mov bx,4

div bx

cmp dx,0

jnz lab1

mov ax,cx

mov bx,100

div bx

cmp dx,0

jnz lab2

mov ax,cx

mov bx,400

div bx

cmp dx,0

jz lab2

lab1: clc

jmp lab3

lab2: stc

lab3: pop dx

pop cx

pop bx

ret

ifyears endp

code ends

end start

好心的人,谢先~~~~

搜索更多相关主题的帖子: 初来乍到 year 流程图 闰年 
2005-07-17 17:44
fancyfancy
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2005-7-17
收藏
得分:0 
哭,没人理偶
2005-07-19 17:57
李展1
该用户已被删除
收藏
得分:0 
回复 楼主 fancyfancy
提示: 作者被禁止或删除 内容自动屏蔽
2010-05-03 13:48
快速回复:[求助]各位大虾初来乍到,问个路~~~!!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.081852 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved