mirror of
https://gitee.com/mirrors_PX4/PX4-Autopilot.git
synced 2026-04-14 10:07:39 +08:00
add995c32e
git-svn-id: https://nuttx.svn.sourceforge.net/svnroot/nuttx/trunk@4200 7fd9a85b-ad96-42d3-883c-3090e2eb8679
48 lines
1.4 KiB
ObjectPascal
48 lines
1.4 KiB
ObjectPascal
PROGRAM stringops;
|
|
CONST
|
|
lexbig = 'zzzLexically Great';
|
|
lexmiddle1 = 'ZZZLexically Middle+';
|
|
lexmiddle = 'ZZZLexically Middle';
|
|
lexmiddle2 = 'ZZZLexically Middl';
|
|
lexsmall = 'AAALexically Small';
|
|
lexnothing = ''
|
|
VAR
|
|
string1, string2 : string;
|
|
BEGIN
|
|
IF (lexbig <= lexmiddle) THEN
|
|
writeln('ERROR: ', lexbig, ' <= ', lexmiddle)
|
|
else
|
|
writeln('OKAY: ', lexbig, ' > ', lexmiddle);
|
|
|
|
IF (lexmiddle > lexmiddle1) THEN
|
|
writeln('ERROR: ', lexmiddle, ' > ', lexmiddle1)
|
|
else
|
|
writeln('OKAY: ', lexmiddle, ' <= ', lexmiddle1);
|
|
|
|
IF (lexmiddle <> lexmiddle) THEN
|
|
writeln('ERROR: ', lexmiddle, ' <> ', lexmiddle)
|
|
else
|
|
writeln('OKAY: ', lexmiddle, ' = ', lexmiddle);
|
|
|
|
IF (lexmiddle = lexnothing) THEN
|
|
writeln('ERROR: ', lexmiddle, ' = ', lexnothing)
|
|
else
|
|
writeln('OKAY: ', lexmiddle, ' <> ', lexnothing);
|
|
|
|
IF (lexnothing <> lexnothing) THEN
|
|
writeln('ERROR: ', lexnothing, ' <> ', lexnothing)
|
|
else
|
|
writeln('OKAY: ', lexnothing, ' = ', lexnothing);
|
|
|
|
IF (lexmiddle < lexmiddle2) THEN
|
|
writeln('ERROR: ', lexmiddle, ' < ', lexmiddle2)
|
|
else
|
|
writeln('OKAY: ', lexmiddle, ' >= ', lexmiddle2);
|
|
|
|
IF (lexsmall >= lexmiddle) THEN
|
|
writeln('ERROR: ', lexsmall, ' >= ', lexmiddle)
|
|
else
|
|
writeln('OKAY: ', lexsmall, ' < ', lexmiddle)
|
|
|
|
END.
|