新一代Pascal.Net编程语言---PascalABC.Net开发平台

1 篇文章 0 订阅
1 篇文章 0 订阅

新一代Pascal.Net编程语言---PascalABC.Net开发平台

PascalABC.Net的基本情况

PascalABC.Net是新一代Pascal编程语言,它结合了经典Pascal的简单性、扩展了大量现代的Microsof的广泛功能,基于.NET框架。它提供了Pascal语言的几个扩展,包括foreach运算符、块内变量定义、变量定义中的自动类型推断、简化的单元语法、类和记录中的方法实现、用于对象构造的新运算符、匿名类、自动类、大整数等。

主要特征

  1. Pascal语言的几个扩展,包括foreach运算符、块内变量定义、变量定义中的自动类型推断、单元的简化语法、类和记录内的方法实现、用于对象构造的新运算符、匿名类、自动类、大整数等。

  2. 编程语言最现代的特性:n维动态数组、泛型、接口、运算符重载、异常、垃圾收集、lambda表达式。

  3. 高效生成.Net平台的代码。

  4. 与Delphi对象Pascal高度兼容。

  5. 程序执行速度快。

  6. 能够访问大量的.Net库。

  7. 集成调试器、智能感知系统、代码模板和代码自动格式化的IDE。

  8. 内置窗体设计器,用于快速开发Windows桌面应用程序。

  9. 简单高效的位图和矢量图形库。

  10. 一些用于并行编程的OpenMP指令。

  11. 可用于学校信息学的机器人和绘图员单元。

  12. 内置编程任务书-关于编程的电子习题书,包含1100个学习任务,涵盖基本编程课程的几乎所有部分。

  13. 自动检查学生程序计算结果正确性的子系统。

  14. 命令行PascalABC.NET编译器,可在Windows(在.NET下)和Linux(在Mono下)上使用。

PascalABC.NET由俄罗斯和德国程序员联合开发。在俄罗斯,开发中心位于南部联邦大学数学、力学和计算机科学研究所。

PascalABC.NET在俄罗斯和周边国家的许多中学和大学中使用。在南部联邦大学,它被用作“编程基础”课程中信息技术学生的主要教学语言,同时也被俄罗斯最大的计算机学校之一用作儿童教学语言。

最新版本

PascalABC.NET 3.8.2,
下载链接:本地下载
https://download.csdn.net/download/weixin_43233162/65491783
http://pascalabc.net/en/

例子

PascalABC.NET 3.8.2的界面:
最新版本的运行界面
'Hello,World!'的例子:

program Hello_World;
begin
  writeln('Hello,World!');
end.

运行结果:
在这里插入图片描述
另一个自带的3D例子:

uses Graph3D;

begin
  Window.Title := 'Вращение планет';
  View3D.HideAll;
  View3D.BackgroundColor := Colors.Black;
  
  var s := Sphere(0,0,0,30);
  s.BackMaterial := ImageMaterial('skymap.jpg');

  var Sun := Sphere(0,0,0,2,ImageMaterial('sunmap.jpg'));
  var Earth := Sphere(-7,0,0,1,ImageMaterial('earthmap.jpg'));
  var Moon := Sphere(2,0,0,0.5,ImageMaterial('moonmap.jpg'));
  Earth.AddChild(Moon);
  
  var tr := ParametricTrajectory(0,2*Pi,100,t->P3D(7*cos(t),7*sin(t),0));
  Polyline3D(tr,1.2,GrayColor(70));
  
  Moon.AnimRotateAt(OrtZ,360,P3D(-2,0,0),2.sec).Forever.Begin;
  Earth.AnimRotateAtAbsolute(OrtZ,360,Origin,20.sec).Forever.Begin;
  Earth.AnimRotate(OrtZ,-360,5.sec).Forever.Begin;
  Sun.AnimRotate(OrtZ,-360,20.sec).Forever.Begin;
end.

运行结果:
在这里插入图片描述

  • 1
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
program Hackdiy; uses Windows, Messages; var TheMessage: TMsg; const ClassName = 'MainForm_FOrm1'; // 窗体过程回调函数 function FormProc(hForm, MsgID, WParam, LParam: LongWord): LongWord; stdcall; const {$J+} TempFont: DWORD = 0; {$J-} ControlID1 = 1; ControlID2 = 2; ControlID3 = 3; var EditText: array[0..30] of Char; begin Result := DefWindowProc(hForm, MsgID, WParam, LParam); // 标准处理 case MsgID of WM_CREATE: begin TempFont := CreateFont(12, 6, 0, 0, FW_EXTRALIGHT, Byte(FALSE), Byte(FALSE), Byte(FALSE), GB2312_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH, '宋体'); CreateWindowEx(0, 'BUTTON', '退出程序', WS_CHILD or WS_VISIBLE, 60, 20, 70, 25, hForm, ControlID2, HInstance, nil); SendMessage(GetDlgItem(hForm, ControlID2), WM_SETFONT, TempFont, 1); end; WM_COMMAND: begin if (HIWORD(wParam) = BN_CLICKED) then // 单击按钮 begin case LOWORD(wParam) of // 控件ID ControlID1: begin end; ControlID2: SendMessage(hForm, WM_CLOSE, 0, 0); end; end; end; WM_DESTROY: begin PostQuitMessage(0); DeleteObject(TempFont); end; end; end; // 注册窗体类 procedure Register_MainForm; var FormClass: TWndClass; begin FormClass.Style := CS_HREDRAW or CS_VREDRAW; FormClass.lpfnWndProc := @FormProc; FormClass.cbClsExtra := 0; FormClass.cbWndExtra := 0; FormClass.hInstance := SysInit.HInstance; FormClass.hIcon := LoadIcon(HInstance, 'Cool'); FormClass.hCursor := LoadCursor(0, IDC_ARROW); FormClass.hbrBackground := COLOR_WINDOW; FormClass.lpszMenuName := nil; FormClass.lpszClassName := ClassName; RegisterClass(FormClass); end; // 注销窗体类 procedure Unregister_MainForm; begin UnregisterClass(ClassName, HInstance); end; // 建立主窗体 procedure Create_MainForm; begin CreateWindowEx(WS_EX_TOPMOST, ClassName, 'Form1', WS_VISIBLE or WS_TILED or WS_SYSMENU or WS_MINIMIZEBOX or WS_SIZEBOX, 200, 200, 200, 100, 0, 0, HInstance, nil); end; begin Register_MainForm; Create_MainForm; while GetMessage(TheMessage, 0, 0, 0) do begin TranslateMessage(TheMessage); DisPatchMessage(TheMessage); end; end.

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值