happytor的专栏

Pascal基础语法(一) 序言 有时无聊,翻看pascal,奈何看完即忘.于是记录之 pascal听说将被NOIP停用,我没有去验证.管他呢,本来只是好奇 环境 用的免费的编译器 fpc [https://www.freepascal.org/] 编辑器随便找个自己喜欢的就行, IDE 可以选 lazarus[https://www.lazarus-ide.org/],跨平台 pascal版本有更迭,支持的方言很多,基于目前的最佳实践，所有代码里使用 ${mode objfpc } {$H+}{$J-}{

前言 乱弹 常见的游戏开发有c/c++(Unreal), C#(Unity)等, Pascal语言的也有(https://wiki.freepascal.org/Game_Engine),但是和前者对比不够流行。 关于pascal的优势，网上都说时易于教学，可以培养良好的程序习惯云云，我只是听之而已。 如果说最后需要c++，为什么一开始就面对呢，非要用pascal绕一圈，得不偿失的。 以上仅是个人观点 为什么有这系列文章 在Pascal基础系列文章第一篇我曾写到闲的无聊，学习一下pascal, 目前也是如此

Procedure Shuffle(Var data:Array Of integer); Var i: integer; j: integer; k: integer; Begin randomize; i := high(data); Repeat j := trunc(random()*100) Mod i; k := data[i]; data[i] := data[j]; data[j] := k; dec(i); Until i