Question

free pascal常见语句

Answer 1

if
then
begin
...
end
else
begin
...
end

for i:= m to n do（也可以为for i:=n downto m do)
begin i为整形变量,m,n为常数
...
end

while ... do
begin
...
end

repeat
...
until ... 循环

case ... of
...
else ...
end case条件语句

goto (标号) ：转向

function (表达式):函数类型
label ...
const ...
var ...
begin
...
end （子程序）

procedure (表达式)
label ...
const ...
var ...
begin
...
end （编译过程）

with ... do
begin
...
end

break,exit,halt :退出循环

Answer 2

1.for .. to .. do
(begin

end);
2.if then do
else
3.while do

until ;
4.repeat
begin

end;

Answer 3

begin
end;

for i:=1 to n do
begin
end;

while i<=n do
begin
end;

repeat
until;

break;
halt;
exit;

procedure a(a:longint);
var
begin
end;

function a(a:longint):longint;
var
begin
end;

Answer 4

if
then
begin
...
end
else
begin
...
end

for i:= m to n do（也可以为for i:=n downto m do)
begin i为整形变量,m,n为常数
...
end

while ... do
begin
...
end

repeat
...
until ...

case ... of
...
else ...
end

goto (标号)

function (表达式):函数类型
label ...
const ...
var ...
begin
...
end

procedure (表达式)
label ...
const ...
var ...
begin
...
end

with ... do
begin
...
end

break,exit,halt

Answer 5

read/readln 输入
write/writeln 输出
if……then(……else） 条件判断
for i:=a to b do 计数循环
repeat/until 直到循环
while …… do 当循环
assign 创建文件
function 函数名（参数：类型）：返回值类型 //创建函数
procedure 过程名 （参数：类型）// 创建过程
exit 退出函数
break 退出循环
continue 进行下次循环
halt 结束程序

Answer 6

program
begin
end
write
const
var
else
ln换行读取
sart开根号
integer整数
real实数
read把数据储存至指定内存
div整除
mod取余
if如果