器普语言代码欣赏－全中文编程时代来临

来源：互联网发布：java格式化html代码编辑：程序博客网时间：2024/05/19 06:18

器普语言编译器开发获得完全成功，人类从此进入全中文编程时代!
器普语言,丰富的关键字,支持多种计算机语言语法,可完全中文化,拥有.net强大类库,人类最先进的计算机语言出现了.

器普语言代码欣赏－全中文编程时代来临

y引用 System;//using
y引用 System.Text;
using System.Runtime.InteropServices;

m名字空间器普关键字//namespace

m名字空间开始//{
b不安全代码 j结构体 Point
{
   public int x;
   public int y;
}
class cPoint { public int x, y:=0; }

l类器普关键字测试样例_让不受训练的人读懂代码_关键字是词语拼音字母开头
l类开始

y引入链接库开始 DllImport("kernel32") y引入链接库结束
public static extern void GetWindowsDirectory(StringBuilder WinDir, int count);

g公开的 j静态全局的 w无返回值主函数 ( z字符串 [s数组结束命令参数数组 c参数结束//（）,[] 后部自解释

   h函数开始

   z整数 k可空的学生数量 := 10;//int? 赋值

   z整数老师数量 f赋值   学生数量 w为空另取 100;//??

   f浮点数老师平均带学生数 f赋值 ( f浮点数 z转换类型结束老师数量 -1;//(类型转换)

       z整数特级老师数量 := 老师数量 d等于 30 s是真取 15 s是假取 20;//?:三元运算符

       //异常处理，避免程序意外退出
       c尝试捕捉异常
       {
           老师数量:=0;
           老师平均带学生数 := y优先计算开始学生数量 w为空另取 0 y优先计算结束 /老师数量;

       }
       b捕捉到异常 ( Exception e )
       {

           Console f访问成员 WriteLine (e.ToString());
           //p抛出异常(e);//抛出异常就会报错，否则程序不报错，但是得不到新计算结果
       }
       b捕捉异常最后处理
       {

       }

       //判断
       z字符串特级老师情况:="";
       //开关选择
       k开关选择(特级老师数量)//只能匹配基本类型数据，否则用if else判断
       {
           p匹配　100　j就
           特级老师情况:="特级老师太多！！";
           j结束匹配;
           p匹配 3:
           p匹配 2:
           p匹配 1:
           特级老师情况:="特级老师太少！！";
           j结束匹配;
           q缺省:
           特级老师情况:="特级老师合适";
           j结束匹配;
       }
       r如果 (特级老师数量==30)
       {
           特级老师情况:="特级老师刚好";
       }
       f否则
       r如果 (特级老师数量>30)
       {
           特级老师情况:="特级老师多了";
       }
       f否则
       r如果 ((特级老师数量<30) b并且 (特级老师数量>10))
       {
           特级老师情况:="特级老师偏少";
       }
       f否则
       {
           特级老师情况:="特级老师少！！";
       }

       //循环
       z字符串命令行 c初始化 "";
       r如果 t条件开始命令参数数组 f访问成员 Length>0 t条件结束
       {
           d带因子循环(z整数索引:=0;索引 < 命令参数数组 f访问成员 Length;索引 z自加1)
           {
               命令行 z自加命令参数数组[索引] j加 ",";
           }
       }
       Console f访问成员 WriteLine ("命令行:{0}",命令行);
       //数组初始化
       z整数 s数组开始 s数组结束学生数学分数 := x新建 z整数 s数组开始 s数组结束 s数组初始化开始 30,90,68,93,100 s数组初始化结束;
       z整数数学平均分;
       s双精度浮点数总分:=0;

       d带因子循环(z整数索引:=0;索引 < 学生数学分数 f访问成员 Length;索引 z自加1)
       {
           总分 z自加学生数学分数 [ 索引 s索引结束;
               }
               数学平均分:= (z整数 z转换类型结束总分 / 学生数学分数 f访问成员 Length;

                   z整数 [ s数组结束学生语文分数 := x新建 z整数 [ s数组结束 { 56,45,78,34,99,78 s数组初始化结束;
                       z整数语文平均分;
                       总分 c初始化 0;
                       z整数及格人数 c初始化 0;
                       b遍历(z整数语文分 w位于学生语文分数)
                       {

                           r如果 (语文分 <60) c从头再循环;//不及格不计算
                           及格人数 z自加1;
                           总分 z自加语文分;
                       }
                       语文平均分:= (z整数 z转换类型结束总分 / 及格人数;
                           Console f访问成员 WriteLine ("老师平均带学生数:{0},{1},数学平均分：{2},及格生语文平均分：{3}",老师平均带学生数,特级老师情况,数学平均分,语文平均分);//Console.WriteLine

                           总分 c初始化 0;
                           z整数循环索引 c初始化 0;
                           r如果(学生数学分数 f访问成员 Length>0 t条件结束
                               {
                                   z执行
                                   d代码段开始
                                   r如果 (循环索引 >= 学生数学分数 f访问成员 Length) t退出循环;//确保访问存在的数组元素
                                   总分 z自加学生数学分数[循环索引];
                                   循环索引 z自加1;

                                   d代码段结束
                                   t条件循环(循环索引 < 学生数学分数 f访问成员 Length t条件结束;
                                       }
                                       数学平均分:= (z整数 z转换类型结束总分 / 学生数学分数 f访问成员 Length;

                                           总分 c初始化 0;
                                           循环索引 c初始化 0;
                                           及格人数 c初始化 0;

                                           t条件循环 t条件开始循环索引 < 学生语文分数 f访问成员 Length t条件结束

                                           d代码段开始

                                           r如果( b不是真 (学生语文分数[循环索引] >= 60))//不及格
                                           {
                                               循环索引 z自加1;//不同x循环和b遍历，他们有递增因子处理，条件循环没有这行就死循环，你可以试试
                                               c从头再循环;
                                           }
                                           及格人数 z自加1;
                                           总分 z自加学生语文分数[循环索引];
                                           循环索引 z自加1;

                                           d代码段结束
                                           语文平均分:= (z整数 z转换类型结束总分 / 及格人数;
                                               Console f访问成员 WriteLine ("老师平均带学生数:{0},{1},数学平均分：{2},及格生语文平均分：{3}",老师平均带学生数,特级老师情况,数学平均分,语文平均分);//Console.WriteLine

                                               Point pt=new Point();
                                               pt.x = 80;
                                               Console f访问成员 WriteLine ("pt.x:{0}",pt.x);
                                               b不安全代码
                                               {
                                                   int x = 10;
                                                   int z指针 pX = &x;
                                                   z指针 pX=100;
                                                   Console d的 WriteLine ("*pX:{0}",z指针 pX);

                                                   int z指针 p_x := z指向地址 pt.x;
                                                   z指针 p_x = 15;
                                                   Console f访问成员 WriteLine ("*p_x:{0}",z指针 p_x);
                                                   Point z指针 ppt := z指向地址 pt;
                                                   ppt z指针指向 x = 10;
                                                   Console f访问成员 WriteLine ("ppt->x:{0}",ppt z指针指向 x);

                                                   cPoint cpt = new cPoint();
                                                   j禁止变量回收重定位 ( z整数 z指针 p = z指向地址 cpt.x )
                                                   {
                                                       z指针 p = 1;
                                                   }
                                               }
                                               h函数结束
                                               l类结束

                                               m名字空间结束

1 1