Difference between revisions of "In"
From Free Pascal wiki
Jump to navigationJump to searchm (Fixed syntax highlighting) |
|||
Line 1: | Line 1: | ||
{{In}} | {{In}} | ||
+ | |||
+ | |||
+ | Back to [[Reserved words]]. | ||
+ | |||
The [[Reserved word|reserved word]] <syntaxhighlight lang="pascal" enclose="none">in</syntaxhighlight> tests whether a value is in a [[Set|set]]. It returns the [[Boolean|boolean]] value [[True| | The [[Reserved word|reserved word]] <syntaxhighlight lang="pascal" enclose="none">in</syntaxhighlight> tests whether a value is in a [[Set|set]]. It returns the [[Boolean|boolean]] value [[True| | ||
Line 6: | Line 10: | ||
does not belong to the set. The word <syntaxhighlight lang="pascal" enclose="none">in</syntaxhighlight> is also used with the reserved word [[For|<syntaxhighlight lang="pascal" enclose="none">for</syntaxhighlight>]] in [[for-in loop]]. | does not belong to the set. The word <syntaxhighlight lang="pascal" enclose="none">in</syntaxhighlight> is also used with the reserved word [[For|<syntaxhighlight lang="pascal" enclose="none">for</syntaxhighlight>]] in [[for-in loop]]. | ||
− | == | + | == Example == |
− | |||
<syntaxhighlight lang="pascal"> | <syntaxhighlight lang="pascal"> |
Revision as of 11:46, 17 February 2020
│
Deutsch (de) │
English (en) │
suomi (fi) │
Back to Reserved words.
The reserved word in
tests whether a value is in a set. It returns the boolean value
true
if the value belongs to the set and
false
if the value
does not belong to the set. The word in
is also used with the reserved word for
in for-in loop.
Example
program projectin;
uses SysUtils,TypInfo;
type
Berry = (Blueberry,FlyHoneysuckle, Lingonberry, Raspberry,Snowberry,Strawberry);
Berries = set of berry;
var
basket: Berries;
someberry:berry;
str:string;
i:integer;
begin
basket := [];
writeLn('Choose a berry from the following berries into your basket');
repeat
i:=1;
for someberry in berry do
begin
Str := GetEnumName(TypeInfo(Berry),ord(someberry));
writeln(i,' : ',Str);
inc(i);
end;
writeln('0 : exit ');
writeln;
readln (i);
if i>0 then
begin
someberry :=Berry(i-1);
Include(basket,someberry);
end;
until i=0;
if (FlyHoneysuckle in basket) or (Snowberry in basket) then
begin
writeln ('You have poisonous berries in your basket');
if FlyHoneysuckle in basket then
writeln ('Your basket has a poisonous Fly honeysuckle!') ;
if Snowberry in basket then
writeln ('Your basket has a poisonous Snowberry!');
end;
writeln('So you had these berries in your basket:');
for someberry in basket do
begin
Str := GetEnumName(TypeInfo(Berry),ord(someberry));
writeln(Str);
end;
readln ;
end.