pascal语法结构

gaohaikuo1

Functions/Procedures
在Pascal中， procedure是要执行的指令集，没有返回值， function是具有返回值的过程。 功能/程序的定义如下 -

1. Function Func_Name(params...) : Return_Value;
   
2. Procedure Proc_Name(params...);

复制代码

变量 (Variables)
变量定义放在以var关键字开头的块中，然后是变量的定义，如下所示:

1. var A_Variable, B_Variable ... : Variable_Type;

复制代码

Pascal变量在函数的代码体外声明，这意味着它们不在begin和end对中声明，但它们在过程/函数的定义之后和begin关键字之前声明。 对于全局变量，它们在程序头之后定义。

gaohaikuo1

1. PROGRAM SimSS;

复制代码

pascal首行都是program开始，接程序名字

gaohaikuo1

1. {$UNITPATH ../Units/} {first tell compiler where our own units are located}
   
2. 
   
3. 
   
4. USES {our own, generic ones:}
   
5.      TypesAndConstants,
   
6.      InputOutputUtils,
   
7.      NumericalUtils,
   
8.      {our drift-diffusion stuff:}  
   
9.      DDTypesAndConstants,
   
10.      TransferMatrix,
    
11.      DDRoutines,
    
12.      {and normal units:}
    
13.      Math,  
    
14.      StrUtils,
    
15.      SysUtils;
    

复制代码

pascal语言的程序中，通过在程序的开头使用uses命令，说明所需要使用的单元
也就是pascal有些函数并不是开始就加载的，需要哪些就用哪些，有点像C语言的头文件

需要注意的是{$UNITPATH ../Units/} ，这个{$打头的语句不是注释，是告诉系统单元的目录在哪里

gaohaikuo1

1. VAR parameterFile : ShortString;
   
2. 
   
3.         prev, curr, new : TState; {store the previous point in time, the current one and the new}
   
4.         {curr: solved, stored, done, 1 time step ago
   
5.         new: to be solved, latest time that was read}
   
6. 
   
7.         stv : TStaticVars; {all variables that are calculated at the start of the simulation and then remain constant}
   
8. 
   
9.         par : TInputParameters; {all input parameters}
   
10. 
    
11.         VCount, MainIt, CountAcceptedSolutions : INTEGER;
    
12. 
    
13.         quit_Voc, Conv_Main, acceptNewSolution : BOOLEAN;
    
14. 
    
15.         uitv , log : TEXT; {the output files}
    
16. 
    
17.         JVSim, JVExp : TJVList; {stores the current-voltage characteristics}
    
18.    
    
19.         MsgStr : ANSISTRING = ''; {Ansistrings have no length limit, init string to ''}
    
20.        
    
21.         StatusStr : ANSISTRING;

复制代码

定义全局变量，里面的格式是 变量名：数据类型

gaohaikuo1

接下来直接看主函数部分

1. BEGIN {main program}
   
2.         Print_Welcome_Message(ProgName, version);

复制代码

看到里面调用了Print_Welcome_Message函数，这个函数就在DDRoutines单元中
打开DDRoutines单元 源文件 DDRoutins.pas，可以找到

1. PROCEDURE Print_Welcome_Message(ProgName : TProgram; version : STRING);
   
2. {Prints a welcome message, lists the authors and shows the name and verion of the program.}
   
3. VAR strprogname : STRING;
   
4. BEGIN
   
5.     Str(ProgName, strprogname); {convert variable ProgName to a string}
   
6.     WRITELN('Welcome to ',strprogname,' version ',version,'.');
   
7.     WRITELN('Copyright (C) 2020, 2021, 2022, 2023, 2024, S. Heester, Dr T.S. Sherkar,');
   
8.     WRITELN('Dr V.M. Le Corre, Dr M. Koopmans, F. Wobben,');
   
9.     WRITELN('and Prof L.J.A. Koster, University of Groningen.');
   
10.     WRITELN;
    
11. END;

复制代码

gaohaikuo1

   

1. {if '-h' or '-H' option is given then display some help and exit:}
   
2.     IF hasCLoption('-h') THEN Display_Help_Exit(ProgName);
   
3.         writeln('参数是---------------------',parameterFile); {此时parameterFIle还没有定义}
   
4.     Determine_Name_Parameter_File(parameterFile); {either default or user-specified file with all the parameters}
   
5.         writeln('参数是---------------------',parameterFile); {simulation_setup.txt}
   
6.     IF NOT Correct_Version_Parameter_File(parameterFile, version, TRUE, ProgName) THEN Stop_Prog('Version of SIMsalabim and '+parameterFile+' do not match.', EC_DevParCorrupt);

复制代码

从上面语句可以看出；
Determine_Name_Parameter_File(parameterFile)语句，给parameterFile进行了赋值，赋值为simulation_setup.txt，而这个文件则记录了参数文件。
这个函数使用SysUtils 单元中的 ParamStr() 函数获取命令行参数（这个函数具体怎么运作还没搞清楚，和主题算法无关，不做深究）

gaohaikuo1

接下来是初始化：

1. {Initialisation:}
   
2.     Read_Parameters(parameterFile, MsgStr, par, stv, ProgName); {Read parameters from input file}
   
3.     Check_Parameters(stv, par, ProgName); {perform a number of chekcs on the paramters. Note: we need Vt}
   
4.     Set_Number_Digits(par.limitDigits, SizeOf(myReal)); {limits number of digits in floating point}
   
5.     Prepare_Log_File(log, MsgStr, par, version); {open log file}
   
6.     IF par.autoTidy THEN Tidy_Up_Parameter_Files(parameterFile, FALSE, stv, par); {clean up file but don't exit!}

复制代码