pascal | 易学教程

Scar Divi Float or Double to Int

阅读更多关于 Scar Divi Float or Double to Int

问题 Scar Divi Float or Double to Int. How I pass a Float/Double to Integer? Here's the code. I'm trying to Find the bitmap and click on the center, the problem is when I try to divide the x or y to find the img center. program FindBitmap; label main; var Bmp: TSCARBitmap; x, y: Integer; temp1, temp2: String; begin ClearDebug; Bmp := TSCARBitmap.Create('deNqtzGkKglAUhuE2Ea2pwXm8atpAFCIVRdEKi' + 'qJCkBBpAeVQa+zCBRGH++cEz6/Dd95Oq92ajoZwE8eCG9sm3GhowDkWgrNNHc4' + 'yNDgTqbnz6fjNMrr49XIXs

Scar Divi Float or Double to Int

阅读更多关于 Scar Divi Float or Double to Int

Array as an argument of a function

阅读更多关于 Array as an argument of a function

问题 I have 2 2-dimensional arrays and a function. I would like that function to take the array as an argument. I tried code like this: var array1:array[1..10,1..10] of integer; array2:array[1..20,1..10] of integer; function name(var my_array:array of array of integer, n:integer); function name(var my_array:array[1..n,1..10] of integer;const n:integer); But I got errors while trying to compile the code. Any tips? If you would like me to paste error codes for each version please leave a comment

Write apostrophe sign in writeln function - Pascal

阅读更多关于 Write apostrophe sign in writeln function - Pascal

问题 How can I print the apostrophe sign in Pascal using the writeln function? Example: writeln('My brother's book'); wouldn't work because s book is out of "writing" function, so the compiler returns an error: Fatal: Syntax error, ")" expected but "identifier S" found Fatal: Compilation aborted 回答1: According to the Free Pascal Reference: The single quote character can be embedded in the string by typing it twice: writeln('By brother''s book'); 回答2: In Dev-Pascal 1.9.2 you will need three ''' ,

程序设计语言发展回顾与展望

阅读更多关于程序设计语言发展回顾与展望

文章转载自：计算机世界网，原文链接地址：http://www2.ccw.com.cn/1995/13/138106.shtml 编者按：程序设计语言是与现代计算机共同诞生、共同发展的,至今已有40余年的历史,早已形成了规模庞大的家族。进入80年代以后,随着计算机的日益普及和性能的不断改进,程序设计语言也相应得到了迅猛发展。《程序设计语言发展回顾与展望》一文对程序设计语言的发展历程进行了回顾,并对一些著名语言的背景、特点、长处与不足,及其对程序设计语言发展的贡献作出了评述。《面向对象方法、语言与支撑环境的特征与缺陷》一文对面向对象方法、语言与支撑环境的优缺点进行了详细的评述,并对其发展方向做出了展望。《实时程序语言的过去、现在和将来》一文中,阐述了计算机实时应用中对程序设计语言的特殊要求,介绍了一些具有代表性的实时语言的设计和使用,并指出了实时程序设计语言的发展方向。《三种Windows Basic的介绍》一文中,介绍了用于Windows环境下的Basic语言的发展情况。对Windows下的CA-Realizer 2.0、GFA Basic 4.1O和Visual Basic 3.0进行了介绍和比较。本期技术纵横:《奔腾(Pentium)芯片的瑕疵》。文中对Pentium芯片在做双精除法时出现错误的发现过程做了详细介绍,并分析了这种瑕疵产生的原因

Atitit.词法分析的理论原理 part2

阅读更多关于 Atitit.词法分析的理论原理 part2

Atitit. 词法分析的理论原理 part2 1 . 转换图 1 1 .1. 转换图是由程序流程图改进而成的。同样，转换图也可以等价地转换为程序流程图 3 1 .2. 2.2.3 构造词法分析器（2）流程程序2-1虽然只有26行，却是词法分析器的核心 4 1 .3. 单词存储形式就是三元组（单词 ID ，单词备注，单词行号）。 4 1 .4. 单词流是如何传递给语法分析器的。 5 1 .5. 词法定义 5 1 .6. 词法分析器主要包括：构造转换图与转换表、设计词法分析器算法。 6 1 .7. 超前搜索几个字符与词法定义有关，有些设计不精良的语言可能需要超前搜索三个甚至四个字符才能正确识别单词 7 1. 转换图从图2-2中，不难发现，其中只有"搜索指针后移一个字符"一种处理动作（方框）。那么，读者不妨想象一下，词法分析器是否就只有这种处理动作呢？仔细分析手工识别单词的过程后，就可以发现事实确实如此。既然词法分析器的流程中条件判断（菱形框）比较复杂，而处理动作非常单一，因此，可以将普通流程图改造成一种专门用于描述条件判断的流程图。具体改造步骤如下： 1）把图2-2中所有上、下菱形（判断）之间的箭头用圆表示。 2）把图2-2中所有的菱形直接用箭头线表示，箭头上写上原菱形的判断成立与否的条件，即可得到图2-3。图2-3 识别Pascal标识符的状态转换图这里省略了出错处理

Atitit.词法分析的理论原理 part2

阅读更多关于 Atitit.词法分析的理论原理 part2

Delphi: Easiest way to search for string in memorystream

阅读更多关于 Delphi: Easiest way to search for string in memorystream

问题 What's the easiest way to search for a string within a memory stream (and multiple strings) and return true or false? 回答1: var ms:TMemoryStream; strS:TStringStream; aStr:string; aPos:integer; found:boolean; begin ms:=TMemoryStream.Create; ms.LoadFromFile('c:\aFile.txt'); strS:=TStringStream.Create; strS.LoadFromStream(ms); aPos:=pos(aStr,strS.dataString); found:=aPos>0; end; TStringStream is an often forgetten but very useful tool - easier and safer than messing with pChars, etc. For multiple

Get a files last updated time using pascal (innosetup)

阅读更多关于 Get a files last updated time using pascal (innosetup)

问题 In the uninstall portion of an innosetup script, I'd like to add a check to see if a specific file's last update datetime occured within the last 10 mins. Does anyone know the innosetup compatable pascal code for this? 回答1: You can use the Windows API function GetFileAttributesEx to get the last modification date. Putting this in your [CODE] section should work: const GetFileExInfoStandard = $0; type FILETIME = record LowDateTime: DWORD; HighDateTime: DWORD; end; WIN32_FILE_ATTRIBUTE_DATA =

28. Triangle && Pascal's Triangle && Pascal's Triangle II

阅读更多关于 28. Triangle && Pascal's Triangle && Pascal's Triangle II

Triangle Given a triangle, find the minimum path sum from top to bottom. Each step you may move to adjacent numbers on the row below. For example, given the following triangle [ [2], [3,4], [6,5,7], [4,1,8,3] ] The minimum path sum from top to bottom is 11 (i.e., 2 + 3 + 5 + 1 = 11). Note: Bonus point if you are able to do this using only O ( n ) extra space, where n is the total number of rows in the triangle. 思想：经典的动态规划题。 class Solution { public: int minimumTotal(vector<vector<int> > &triangle) { vector<int> pSum(triangle.size()+1, 0); for(int i = triangle.size()-1; i >= 0; --i) for(int j =

订阅 pascal