mirror of
https://gitee.com/mirrors_PX4/PX4-Autopilot.git
synced 2026-06-28 04:00:34 +08:00
patacongo
57623d42eb
git-svn-id: http://svn.code.sf.net/p/nuttx/code/trunk@5153 42af7a65-404d-4744-a932-0658087f49c3
18 lines
306 B
ObjectPascal
18 lines
306 B
ObjectPascal
{ writeln with a variety of arguments }
|
|
|
|
program check_writeln(output);
|
|
|
|
const
|
|
floater = 1.8;
|
|
low = 37;
|
|
high = 492;
|
|
range_string = ' range=';
|
|
|
|
var
|
|
range : low..high;
|
|
|
|
begin
|
|
range := (low + high) div 2;
|
|
writeln('A', range_string, range, ' B floater=', floater);
|
|
end.
|