在Pascal语言下实现动态数组和大数组的讨论(三)

本文介绍了一种在Pascal语言中实现动态数组的方法,并通过示例代码详细解释了其工作原理。此外,还讨论了如何利用这种方法来创建大型动态数组,并提供了一个具体的实现案例。

我在youkuaiyun.com的2000年合订本光盘上看到了这样的一段代码:
作者是谁,我忘记了。

{$R-} { <-- essential For this trick }
Type
tFlexArray = Array[1..1] of Integer;
Var
pFlexArray : ^tFlexArray;
NumofElements,i : Integer;
begin
Write('How many elements do you want in the Array? ');
readln(NumofElements);
getmem(pFlexArray, (NumofElements * sizeof(Integer)));
For i := 1 to NumofElements do
    pFlexArray^[i] := i;
Write('Test which element? (Will contain same value as index) ');
readln(i);
Writeln('Element ',i,' contains ',pFlexArray^[i]);
end.

这个可以称之为动态数组了。和我最初的相法类似,但是可以看出,
Pascal语言,或称之为计算机语言上的类型方面需要注意的问题。
这个数组的原理在于
Type tFlexArray = Array[1..1] of Integer;
Var pFlexArray : ^tFlexArray;
pFlexArray^[i]可以访问,但是注意别超出分配的界限。
因为Pascal语言7.0版本的时候还没有不支持运算符重载,所以,
它的伟大意义在于使程序的可读性大大的增强了。因为使用了[]操作。

既然具备了这个基础,我们可以用^pFlexArray的方法实现动态大数组。
这个读者可以自己去实现,抑或,
Type
tFlexArray = Array[1..1] of Integer;
pFlexArray = ^tFlexArray;
tFlexArray2 = Array[1..1] of pFlexArray;
pFlexArrayEx = ^tFlexArray2;

下面我们讨论一下大数组的问题,如同上面的一段代码中所描述的,
可以实现大的动态数组。需要知道,在Pascal语言中,
一个数组最多可以分配65535个空间,如果你真的分配这么多空间的话,
那你就别想用太多的其他变量了!
编译器会报出"变量太多...."之类的错误。

下面是有人实现的大数组的程序。
Uses Crt;
Type
ar_64K   = Array[1..65521] of Byte;
po_ar64K = ^ar_64K;
ar_Po64K = Array[1..200] of po_ar64K;

Var
by_Index : Byte;
Buffer   : ar_Po64K;
begin
ClrScr;
by_Index := 0;
While (MaxAvail > SizeOf(ar_64K)) do
begin
    Inc(by_Index);
    New(Buffer[by_Index]);
    GotoXY(1,1);
    ClrEol;
    Writeln('Maximum Memory Available: ', MaxAvail);
    Delay(300);
end;
end.

Tips : 小心Crt单元在Windows 98 OR Higher下不好用!!!
       至于怎么解决这个问题,我另有文章描述。
       CRT单元在新版本DOS系统的除0问题

 
源码地址: https://pan.quark.cn/s/3916362e5d0a 在C#编程平台下,构建一个曲线编辑器是一项融合了图形用户界面(GUI)构建、数据管理及数学运算的应用开发任务。 接下来将系统性地介绍这个曲线编辑器开发过程中的核心知识点:1. **定制曲线面板展示数据曲线**: - 控件选用:在C#的Windows Forms或WPF框架中,有多种控件可用于曲线呈现,例如PictureBox或用户自定义的UserControl。 通过处理重绘事件,借助Graphics对象执行绘图动作,如运用DrawCurve方法。 - 数据图形化:通过线性或贝塞尔曲线连接数据点,以呈现数据演变态势。 这要求掌握直线与曲线的数学描述,例如两点间的直线公式、次贝塞尔曲线等。 - 坐标系统与缩放比例:构建X轴Y轴,设定坐标标记,并开发缩放功能,使用户可察看不同区间内的数据。 2. **在时间轴上配置多个关键帧数据**: - 时间轴构建:开发一个时间轴组件,显示时间单位刻度,并允许用户在特定时间点设置关键帧。 时间可表现为连续形式或离散形式,关键帧对应于时间轴上的标识。 - 关键帧维护:利用数据结构(例如List或Dictionary)保存关键帧,涵盖时间戳关联值。 需考虑关键帧的添加、移除及调整位置功能。 3. **调整关键帧数据,通过插值方法获得曲线**: - 插值方法:依据关键帧信息,选用插值方法(如线性插值、样条插值,特别是Catmull-Rom样条)生成平滑曲线。 这涉及数学运算,确保曲线在关键帧之间无缝衔接。 - 即时反馈:在编辑关键帧时,即时刷新曲线显示,优化用户体验。 4. **曲线数据的输出**: - 文件类型:挑选适宜的文件格式存储数据,例如XML、JSON或...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值