本站提供最佳梦入神机指标源码服务,欢迎转载和分享。

【iperf源码编译安装】【网店 app 源码】【博客 网站源码】易语言万年历源码_易语言日历

2024-12-25 12:52:51 来源:股票分时图买卖点指标源码 分类:知识

1.如何用pascal编写一个万年历啊?希望大家帮个忙,易语言万源码易语言日急用啊!年历iperf源码编译安装

易语言万年历源码_易语言日历

如何用pascal编写一个万年历啊?希望大家帮个忙,易语言万源码易语言日网店 app 源码急用啊!年历博客 网站源码

       PROGRAM n;

        TYPE

        a=1..;

        b=1..;

        c=..;

        VAR

        year:a;

        month:b;

        day:c;

        days,易语言万源码易语言日thinkphp登录源码num:integer;

        BEGIN

        writeln('please input year month day');

        read(year,month,day);

        IF month=1

        THEN days:day

        ELSE IF month=2

        THEN days:=+day

        ELSE BEGIN

        CASE month OF

        3 :num:=1;

        4,5 :num:=2;

        6,7 :num:=3;

        8 :num:=4;

        9, :num:=5;

        ,:num:=6;

        END;

        IF ((year MOD 4=0) AND (year MOD <>0)) OR (year MOD =0)

        THEN days:=*(month-1)+num+day-1

        ELSE days:=*(month-1)+num+day-2

        END;

        writeln(days,year,month,day);

        END.

【本文网址:http://04.net.cn/html/30c456795402.html 欢迎转载】

copyright © 2016 powered by 皮皮网   sitemap