paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ fix some wrong logical comparisons

Browse Source
This commit is contained in:
carl 2002-02-22 21:47:00 +00:00
parent ea597abcc3
commit fdb9c8f41e
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
demo/text/blackbox.pp
View File

@ -85,7 +85,7 @@ begin
Writeln ('Please enter beam start coordinates : '); Writeln ('Please enter beam start coordinates : ');
Repeat Repeat
GetCoords (x,y,z); GetCoords (x,y,z);
OK:=((X=1) or (X=MaxSize)) or ((y=1) or (Y=MaxSize)) or OK:=((X=1) or (X=MaxSize)) and ((y=1) or (Y=MaxSize)) and
((Z=1) or (z=maxsize)); ((Z=1) or (z=maxsize));
if Not OK then if Not OK then
writeln ('The beam should enter at an edge. Please try again'); writeln ('The beam should enter at an edge. Please try again');
@ -101,8 +101,8 @@ begin
Writeln ('Please enter atom coordinates : '); Writeln ('Please enter atom coordinates : ');
Repeat Repeat
getcoords (x,y,z); getcoords (x,y,z);
OK:=((X>=1) or (X<=MaxSize)) or ((y>=1) or (Y<=MaxSize)) or OK:=((X>=1) and (X<=MaxSize)) and ((y>=1) and (Y<=MaxSize)) and
((Z>=1) or (z<=maxsize)); ((Z>=1) and (z<=maxsize));
if Not OK then if Not OK then
writeln ('These are not valid coordinates. Please try again'); writeln ('These are not valid coordinates. Please try again');
until OK; until OK;
@ -189,10 +189,7 @@ end.
{ {
$Log$ $Log$
Revision 1.1 2001-05-03 21:39:34 peter Revision 1.2 2002-02-22 21:47:00 carl
* moved to own module + fix some wrong logical comparisons
Revision 1.2 2000/07/13 11:33:10 michael
+ removed logs
} }