汇编：实现日历星期数查询工具

编制一个简单日历查询工具，输入年、月、日，能够判断当日的星期数，并进行输出，数据的输入和结果的输出要有必要的提示，且提示独占一行。

查阅资料

​ 经过查阅资料，发现有两个相关的算法可以解决这个问题：

  1. 蔡勒公式
    W=[C/4]−2C+Y+[Y/4]+[13∗(M+1)/5]+D−1W=[C/4]-2C+Y+[Y/4]+[13*(M+1)/5]+D-1 W=[C/4]−2C+Y+[Y/4]+[13∗(M+1)/5]+D−1
    公式中的符号含义如下：

    • W：星期； W对7取模得：0-星期日，1-星期一，2-星期二，3-星期三，4-星期四，5-星期五，6-星期六，需要注意的是对负数的处理
    • C：世纪-1（前两位数）
    • Y：年（后两位数）
    • M：月（M大于等于3，小于等于14，即在蔡勒公式中，某年的1、2月要看作上一年的13、14月来计算，比如2003年1月1日要看作2002年的13月1日来计算）
    • D：日
    • [ ]代表取整，即只要整数部分。

  2. 基姆拉尔森计算公式
    Week=(d+2∗m+3∗(m+1)/5+y+y/4−y/100+y/400+1)mod7Week = (d+2*m+3*(m+1)/5+y+y/4-y/100+y/400+1) mod 7 Week=(d+2∗m+3∗(m+1)/5+y+y/4−y/100+y/400+1)mod7
    公式中的符号含义如下：

    • y : 年份（四位数）
    • m: 月份（m大于等于3，小于等于14，某年的1、2月要看作上一年的13、14月来计算，比如2003年1月1日要看作2002年的13月1日来计算）
    • d : 日期
    • 当Week==0Week==0Week==0的时候为周日

设计构思

​ 基姆拉尔森计算公式的输入更加友好，因此我决定使用基姆拉尔森计算公式解决问题。

​ 公式主要涉及加减乘除四则运算，输入主要是年月日三个数字。输出为星期数。

​ 因此主要的工作有：

  • 提示用户输入年月日，并进行错误检查（检查是否是数字，位数是否错误）
  • 检查月份是否在正确的范围内（0~12)
  • 检查日期是否在正确的范围内
    • 是否小于1
    • 是否大于该月的最大日期
    • 是否是闰月，如果是闰月需要特别对待
  • 使用基姆拉尔森计算公式计算星期数
  • 输出结果，并询问是否再次输入

流程图

在这里插入图片描述

实现代码

ASSUME cs:CODE, ds:DATA, ss:STACK DATA SEGMENTS_Year 	db 	5,0,5 dup(0)S_Month db	3,0,3 dup(0)S_Day 	db	3,0,3 dup(0)YearIn	db	'please input year(eg:2020):$'MonthIn	db	'please	input month(eg:05):$'DayIn	db	'please input day(eg:01):$'WrongInfo db 'your input is illegal,please input again!$'ReaptInfo db 'Would you like to check again?(Y/n)	$'year 	dw	0month 	db	0day 	db	0Max_Day db	0,31,28,31,30,31,30,31,31,30,31,30,31tmp		dw	0week1	db	'Monday$'week2	db	'Tuesday$'week3	db	'Wednesday$'week4	db	'Thursday$'week5	db	'Friday$'week6	db	'Saturday$'week7	db	'Sunday$'hint	db	' is $'DATA ENDSSTACK SEGMENTdb 256	dup(0)
STACK ENDSCODE SEGMENTNEXTLINE PROC NEAR	;输出换行mov ah, 02Hmov	dl, 0DHint 21Hmov dl, 0AHint 21Hret
NEXTLINE ENDPMAIN PROC
START:mov ax,DATAmov ds,ax	;初始化
INPUTYEAR:call NEXTLINElea dx, YearIn	;提示输入yearmov ah, 09Hint 21Hlea dx, S_Year 	;读入yearmov ah, 0AHint 21Hcall NEXTLINE	;换行;检查Year是否合法mov cl, S_Year+1	;将实际长度保存到cx中mov ch, 0cmp cx, 4		;检查长度，同时计算year的值jnz WRONGYEARmov year, 0mov si, 2
CHECKYEAR:;判断是否是数字mov dl, S_Year[si]cmp dl, '0'jl	WRONGYEARcmp dl, '9'jg	WRONGYEAR;是数字，计算yearmov ax, yearmov bx, 10mul bxmov dl, S_Year[si]sub dl, '0'mov dh, 0add ax, dxmov year, axinc siloop CHECKYEAR;year计算完毕jp	INPUTMONTHWRONGYEAR:lea dx, WrongInfo	;输出错误信息mov ah, 09Hint 21Hcall NEXTLINE		;换行jp	INPUTYEAR		;重新输入INPUTMONTH:lea dx, MonthIn		;提示输入monthmov ah, 09Hint 21Hlea dx, S_Month 	;读入monthmov ah, 0AHint 21Hcall NEXTLINE		;换行;检查Month是否合法mov cl, S_Month+1	;将实际长度保存到cx中mov ch, 0cmp cx, 2			;检查长度，同时计算month的值jnz WRONGMONTHmov month, 0mov si, 2
CHECKMONTH:;判断是否是数字mov dl, S_Month[si]cmp dl, '0'jl	WRONGMONTHcmp dl, '9'jg	WRONGMONTH;是数字，计算monthmov al, monthmov bl, 10mul blsub dl, '0'add al, dlmov month, alinc siloop CHECKMONTH;month计算完毕;判断month是否在合法范围内mov dl, monthcmp dl, 1jl	WRONGMONTHcmp dl, 12jg	WRONGMONTHjmp INPUTDAYWRONGMONTH:lea dx, WrongInfo	;输出错误信息mov ah, 09Hint 21Hcall NEXTLINE		;换行jmp	INPUTMONTH		;重新输入INPUTDAY:lea dx, DayIn	;提示输入daymov ah, 09Hint 21Hlea dx, S_Day 	;读入daymov ah, 0AHint 21Hcall NEXTLINE	;换行;检查day是否合法mov cl, S_Day+1	;将实际长度保存到cx中mov ch, 0cmp cx, 2		;检查长度，同时计算day的值jnz WRONGDAY_TMPmov si, 2mov day, 0
CHECKDAY:;判断是否是数字mov dl, S_Day[si]cmp dl, '0'jl	WRONGDAY_TMPcmp dl, '9'jg	WRONGDAY_TMP;是数字，计算daymov al, daymov bl, 10mul blsub dl, '0'add al, dlmov day, alinc siloop CHECKDAY;day计算完毕;检查day是否在合法范围内mov dl, daycmp dl, 1jl	WRONGDAYmov cl, monthmov ch, 0mov si, cxcmp dl, Max_Day[si]	;检查有没有该月份最大的一天jg	CHECKLEAP		;检查是不是闰月jmp	INPUTEND		;输入结束WRONGDAY_TMP:jmp WRONGDAYCHECKLEAP:mov dh, monthcmp dh, 2jne WRONGDAY		;如果不是2月就肯定不对;判断是不是闰年if(year%4==0 && year%100!=0 || year%400==0) 是闰年mov ax, yearmov dx, 0mov bx, 400div bxcmp dx, 0je	ISLEAP 			;可以被400整除说明是闰月mov ax, yearmov dx, 0mov bx, 4div bxcmp dx, 0jne ISNOTLEAP		;不能被4整除说明不是闰月mov ax, yearmov dx, 0mov bx, 100div bxcmp dx, 0je 	ISNOTLEAP		;能被100整除说明不是闰月
ISLEAP:mov dl, daycmp dl, 29			jg	WRONGDAY		;比29还大jmp	INPUTEND		;输入结束ISNOTLEAP:
WRONGDAY:lea dx, WrongInfo	;输出错误信息mov ah, 09Hint 21Hcall NEXTLINE		;换行jmp	INPUTDAY		;重新输入INPUTEND:				;输入合法，开始使用基姆拉尔森公式计算答案mov dl, monthcmp dl, 1je	ADDMONTHcmp	dl, 2je 	ADDMONTHjmp CALCULATEADDMONTH:mov al, monthadd al, 12mov month, almov ax, yearsub ax, 1mov year, axCALCULATE:mov bl, daymov bh, 0			;bx := dayadd bl, monthadd bl, month 		;bx += 2*monthmov al, monthadd al, 1mov ah, aladd al, ah add al, ah 			;al := 3*(month+1)mov ah, 0mov cl, 5div clmov ah, 0			;ax := al/5add bx, ax			;bx += axadd bx, year 		;bx += yearmov ax, yearmov dx, 0mov cx, 4div cxadd bx, ax			;bx += year/4mov ax, yearmov dx, 0mov cx, 100div cxsub bx, ax			;bx -= year/100mov ax, yearmov dx, 0mov cx, 400div cxadd bx, ax			;bx += year/400add bx, 1			;bx += 1mov ax, bxmov dx, 0mov cx, 7div cx				;bx %= 7mov bx, dx;基姆拉尔森公式计算完毕OUTPUT:call NEXTLINEmov al, S_Year+1add al, 2mov ah, 0mov si, ax	mov S_Year[si], '$'	;加上字符串终结符$lea dx, S_Year+2	;输出年份mov ah, 09Hint 21Hmov dl, '\'mov ah, 02Hint 21Hmov al, S_Month+1add al, 2mov ah, 0mov si, ax	mov S_Month[si], '$'lea dx, S_Month+2mov ah, 09Hint 21Hmov dl, '\'mov ah, 02Hint 21Hmov al, S_Day+1add al, 2mov ah, 0mov si, ax	mov S_Day[si], '$'lea dx, S_Day+2mov ah, 09Hint 21Hlea	dx,	hintmov ah,	09Hint 21Hmov al, blcmp al, 0jnz D1lea dx, week7mov ah, 09Hint 21Hjmp	D7INPUTYEAR_TMP1:call NEXTLINEjmp INPUTYEARD1:	cmp al, 1jnz D2lea dx, week1mov ah, 09Hint 21Hjmp	 D7
D2:cmp al, 2jnz D3lea dx, week2mov ah, 09Hint 21Hjmp	D7 
D3:cmp al, 3jnz D4lea dx, week3mov ah, 09Hint 21Hjmp	D7 
D4:cmp al, 4jnz D5lea dx, week4mov ah, 09Hint 21Hjmp	D7 
D5:cmp al, 5jnz D6lea dx, week5mov ah, 09Hint 21Hjmp	D7 
D6:cmp al, 6jnz D7lea dx, week6mov ah, 09Hint 21H
D7:call NEXTLINEcall NEXTLINElea dx, ReaptInfo	;输出重复查询信息mov ah, 09Hint 21Hmov ah, 01H			;输入字符int 21Hcmp al, 'Y'jz INPUTYEAR_TMP1	;跳转到中继点1cmp al, 'y'jz INPUTYEAR_TMP1 	;跳转到中继点1mov ax, 4C00H		;程序结束int 21H
MAIN ENDPCODE ENDS
END START

运行结果

我将自己运行结果的视频上传在CSDN上啦：传送门

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处：http://www.mzph.cn/news/383649.shtml

如若内容造成侵权/违法违规/事实不符，请联系多彩编程网进行投诉反馈email:809451989@qq.com，一经查实，立即删除！

相关文章

一个通用纯C队列的实现

一个通用纯C队列的实现

https://blog.csdn.net/kxcfzyk/article/details/31728179 队列并不是很复杂的数据结构，但是非常实用，这里实现一个队列是因为在我的另一篇博客非常精简的Linux线程池实现中要用到。 队列API定义如下： //queue.h #ifndef QUEUE_H_INCLUDED…
阅读更多...
Dijkstra算法介绍+正确性证明+性能分析

Dijkstra算法介绍+正确性证明+性能分析

算法介绍 源点s,数组d[u]表示s到u的最短距离，空集S，点集Q初始化：将源点s从点集中去掉，加入S，d[s]0，∀v∈Q,d[v]w[s][v]\forall v\in Q ,d[v]w[s][v]∀v∈Q,d[v]w[s][v]将Q中d[v]最小的点去掉加入S,并对u∈…
阅读更多...
Linux C 实现一个简单的线程池

Linux C 实现一个简单的线程池

https://www.cnblogs.com/GyForever1004/p/9185240.html 线程池的定义 线程池是一种多线程处理形式，处理过程中将任务添加到队列，然后在创建线程后自动启动这些任务。线程池线程都是后台线程。每个线程都使用默认的堆栈大小，以默认的优先级…
阅读更多...
斐波那契数列求解+尾递归

斐波那契数列求解+尾递归

1.普通递归 这里观察f[4]的递归树代替f[10]的递归树（后者比较大，画不下）。 使用递归求解的时候复杂度为T(n)T(n−1)T(n−2)T(n)T(n-1)T(n-2)T(n)T(n−1)T(n−2)，观察递归树，发现降速最快的是最右边每次减2&#xff0c…
阅读更多...
循环服务器，并发服务器模型以及I/O多路转接模型

循环服务器，并发服务器模型以及I/O多路转接模型

https://blog.csdn.net/xinianbuxiu/article/details/53455784 一、基于TCP/IP协议的基本循环服务器 tcp_server.c #include <stdio.h> #include <stdlib.h> #include <string.h> #include <sys/types.h> #include <sys/socket.h> #incl…
阅读更多...
c++继承父类的子类,如何调用父类的同名函数?

c++继承父类的子类,如何调用父类的同名函数?

https://blog.csdn.net/qq_26399665/article/details/52080215 子类调用父类的同名函数&#xff1a; 子类和父类返回值参数相同&#xff0c;函数名相同&#xff0c;有virtual关键字&#xff0c;则由对象的类型决定调用哪个函数。 子类和父类只要函数名相同&#xff0c;没有vi…
阅读更多...
LCS最长公共子串

LCS最长公共子串

问题介绍 LCS问题(longest common subsequence problem)指的是求解两个字符串最长公共子序列问题。这里的子序列是可以不连续的。LCS问题广泛地出现在计算生物学中&#xff08;DNA序列、系统生成树等等&#xff09;。这里介绍如何解决LCS问题&#xff0c;以及算法的正确性证明…
阅读更多...
将字符串中的空格用%20替换

将字符串中的空格用%20替换

如果不需要原地操作&#xff0c;则一遍遍历&#xff0c;将非空串复制&#xff0c;遇到空格加上%20&#xff0c;如果需要原地操作&#xff0c;首先进行遍历出空格的个数x,然后扩容2x,从后往前遍历实现。如果非空格字符串比空格字符串多的多的时候而且字符串非常长的时候使用原地…
阅读更多...
12步轻松搞定python装饰器

12步轻松搞定python装饰器

http://python.jobbole.com/81683/ 呵呵&#xff01;作为一名教python的老师&#xff0c;我发现学生们基本上一开始很难搞定python的装饰器&#xff0c;也许因为装饰器确实很难懂。搞定装饰器需要你了解一些函数式编程的概念&#xff0c;当然还有理解在python中定义和调用函数…
阅读更多...
操作系统【六】虚拟内存

操作系统【六】虚拟内存

传统存储管理方式的不足 一次性&#xff1a;作业必须一次性全部装入内存后才能开始运行。这会造成&#xff1a;当作也很大时不能全部装入内存&#xff1b;当大量作业要求运行时&#xff0c;由于内存无法容纳所有作业&#xff0c;因此只有少量作业能够运行&#xff0c;导致多道…
阅读更多...
python装饰器详解

python装饰器详解

https://blog.csdn.net/xiangxianghehe/article/details/77170585 你会Python嘛&#xff1f; 我会&#xff01; 那你给我讲下Python装饰器吧&#xff01; Python装饰器啊&#xff1f;我没用过哎 以上是我一个哥们面试时候发生的真实对白。 ———————————————-分…
阅读更多...
SQL Server【一】简介和基本概念和命令

SQL Server【一】简介和基本概念和命令

数据结构和数据库的区别 数据库是应用软件级别研究数据的存储和操作&#xff08;主要针对磁盘上的数据&#xff09; 数据结构是在系统软件级别研究数据的存储和操作&#xff08;主要是针对内存中的数据&#xff09; 对硬盘数操作是数据库的强项&#xff0c;是数据库研究的核心…
阅读更多...
SQL Server【二】单表查询

SQL Server【二】单表查询

查询 计算列 select * from emp; -- *通配符&#xff0c;表示所有的字段 -- from emp 从emp表查询select empno, ename from emp; select ename as "员工姓名", sal*12 as "年薪" from emp;-- as可以省略&#xff0c;用于设置字段名 -- 注意用双引号将字…
阅读更多...
SQL Server【三】连接查询

SQL Server【三】连接查询

将两个表或者两个以上的表以一定的连接条件连接起来&#xff0c;从中检索出满足条件的数据。 内连接 使用inner join&#xff0c;inner可以省略 -- 查询员工的姓名和部门名称 select "E".ename as "员工姓名", "D".dname as "部门名称&q…
阅读更多...
Linux下网络socket编程——实现服务器（select）与多个客户端通信

Linux下网络socket编程——实现服务器（select）与多个客户端通信

一、关于socket通信 服务器端工作流程&#xff1a; 调用 socket() 函数创建套接字 用 bind() 函数将创建的套接字与服务端IP地址绑定调用listen()函数监听socket() 函数创建的套接字&#xff0c;等待客户端连接 当客户端请求到来之后调用 accept()函数接受连接请求&#xff0c…
阅读更多...
SQL Server【四】

SQL Server【四】

identity 主键自动增长&#xff0c;用户不需要为identity修饰的主键赋值 create table student (std_id int primary key identity(10,5),--(10,5)可以省略&#xff0c;默认为(1,1)std_name nvarchar(200) not null ) select * from student insert into student values (张三…
阅读更多...
TCP服务器/客户端实例(C/C )

TCP服务器/客户端实例(C/C )

1.1、Linux下的TCP服务器&#xff1a; #include <stdio.h> #include <stdlib.h> #include <string.h> #include <unistd.h> #include <arpa/inet.h> #include <sys/types.h> #include <sys/socket.h>void error_handling(char *mess…
阅读更多...
pip代理解决pip下载失败问题

pip代理解决pip下载失败问题

在用pip下载各种库的时候发现速度实在是太慢了&#xff0c;还会有各种奇奇怪怪的问题&#xff0c;动不动就玄学失败。 在网上找来找去找到知乎上一位大佬的回答&#xff1a;传送门&#xff0c;用了豆瓣的代理。哇咔咔&#xff0c;妈妈再也不用担心我下载失败了。 代理&#x…
阅读更多...
实现Linux select IO复用C/S服务器代码

实现Linux select IO复用C/S服务器代码

服务器端#include<stdio.h> #include<unistd.h> #include<stdlib.h> #include<string.h> #include<sys/socket.h> #include<sys/stat.h> #include<arpa/inet.h> #include <sys/select.h>#define MAXBUF 256 #define MAXLISTEN…
阅读更多...
Bellman-Ford算法和SPFA算法

Bellman-Ford算法和SPFA算法

Belloman-Ford算法 算法介绍 Dijkstra可以解决单源无负边最短路径问题。但是当遇到含有负边的单源最短路径问题就需要使用Bellman-Ford算法来解决。Bellman-Ford算法还可以检测出负环。 算法步骤 源点s,数组d[u]d[u]d[u]表示s到u的最短距离初始化&#xff1a;d[s]0d[s]0d[s…
阅读更多...
最新文章

Copyright @ 2022~2023