Pascal在线运行

版本:

所属目录
点击了解高性能代码运行API
运行结果
教程手册
代码仓库
极速运行
终端运行
图形+终端

                        
显示目录

功能



学习嵌入式的绝佳套件,esp8266开源小电视成品,比自己去买开发板+屏幕还要便宜,省去了焊接不当搞坏的风险。 蜂鸣版+触控升级仅36元,更强的硬件、价格全网最低。

点击购买 固件广场

功能

子程序

子程序是执行特定任务的程序单元/模块.这些子程序组合在一起形成更大的程序.这基本上称为"模块化设计".子程序可以由子程序/程序调用,称为调用程序.

Pascal提供两种子程序 :

  • 功能 : 这些子程序返回单个值.

  • 程序 : 这些子程序不会直接返回值.


函数

A 函数是一组一起执行任务的语句.每个Pascal程序至少有一个函数,它是程序本身,所有最简单的程序都可以定义其他函数.

函数声明告诉编译器关于函数的名称,返回类型和参数.函数定义提供函数的实际主体.

Pascal标准库提供了程序可以调用的许多内置函数.例如,函数 AppendStr()附加两个字符串,函数 New()动态地将内存分配给变量和更多函数.

定义函数

在Pascal中,使用function关键字定义函数.函数定义的一般形式如下 :

function name(argument(s): type1; argument(s): type2; ...): function_type;
local declarations;

begin
   ...
   < statements >
   ...
   name:= expression;
end;

Pascal中的函数定义包含函数标题,本地声明和函数体的.函数头由关键字函数和赋予函数的名称组成.以下是函数的所有部分 :

参数 : 参数建立了调用程序和函数标识符之间的联系,也称为形式参数.参数就像一个占位符.调用函数时,将值传递给参数.该值称为实际参数或参数.参数列表是指函数的类型,顺序和参数数量.使用这种形式参数是可选的.这些参数可能具有标准数据类型,用户定义的数据类型或子范围数据类型.

函数语句中出现的形式参数列表可以是简单的或下标的变量,数组或结构化变量,或子程序.

  • 返回类型 : 所有函数都必须返回一个值,因此必须为所有函数分配一个类型. function-type 是函数返回的值的数据类型.它可以是标准的,用户定义的标量或子范围类型,但不能是结构化类型.

  • 本地声明 : 局部声明引用标签,常量,变量,函数和过程的声明,它们仅适用于函数体.

  • 函数体 : 函数体包含一组语句,用于定义函数的功能.它应始终包含在保留字开头和结尾之间.它是所有计算完成的函数的一部分.在函数体中必须有一个类型为 name:= expression; 的赋值语句,它为函数名赋值.执行该函数时返回该值.正文中的最后一个语句必须是结束语句.

以下是一个示例,说明如何在pascal : 中定义函数;

(* function returning the max between two numbers *)
function max(num1, num2: integer): integer;

var
   (* local variable declaration *)
   result: integer;

begin
   if (num1 > num2) then
      result := num1

   else
      result := num2;
   max := result;
end;

函数声明

函数声明告诉编译器函数名称以及如何调用该函数.函数的实际主体可以单独定义.

函数声明包含以下部分和减号;

function name(argument(s): type1; argument(s): type2; ...): function_type;

对于上面定义的函数max(),以下是函数声明 :

function max(num1, num2: integer): integer;

在一个源文件中定义函数并在另一个文件中调用该函数时,需要函数声明.在这种情况下,你应该在调用函数的文件顶部声明函数.


调用函数

在创建函数时,你给出函数必须做的定义.要使用函数,您必须调用该函数来执行定义的任务.当程序调用一个函数时,程序控制被转移到被调用的函数.被调用的函数执行已定义的任务,当执行其返回语句或达到最后结束语句时,它会将程序控制返回给主程序.

要调用函数,只需要传递必需的参数和函数名称,如果函数返回一个值,那么你可以存储返回的值.下面是一个简单的例子来显示用法 :

program exFunction;
var
   a, b, ret : integer;

(*function definition *)
function max(num1, num2: integer): integer;
var
   (* local variable declaration *)
   result: integer;

begin
   if (num1 > num2) then
      result := num1

   else
      result := num2;
   max := result;
end;

begin
   a := 100;
   b := 200;
   (* calling a function to get max value *)
   ret := max(a, b);

   writeln( 'Max value is : ', ret );
end.

编译并执行上述代码时,会产生以下结果 :

Max value is : 200
由JSRUN为你提供的Pascal在线运行、在线编译工具
        JSRUN提供的Pascal 在线运行,Pascal 在线运行工具,基于linux操作系统环境提供线上编译和线上运行,具有运行快速,运行结果与常用开发、生产环境保持一致的特点。
yout