Blame lazarus/console/box-and-hole/boxandhole.lpr
|
Ivan Mahonin |
ab6427 |
program boxandhole;
|
|
Ivan Mahonin |
ab6427 |
|
|
Ivan Mahonin |
ab6427 |
var
|
|
Ivan Mahonin |
ab6427 |
a, b, c: integer;
|
|
Ivan Mahonin |
ab6427 |
x, y: integer;
|
|
Ivan Mahonin |
ab6427 |
pass: boolean;
|
|
Ivan Mahonin |
ab6427 |
s: string;
|
|
Ivan Mahonin |
ab6427 |
|
|
Ivan Mahonin |
ab6427 |
begin
|
|
Ivan Mahonin |
ab6427 |
Writeln('Enter box size (a, b, c):');
|
|
Ivan Mahonin |
ab6427 |
Readln(a);
|
|
Ivan Mahonin |
ab6427 |
Readln(b);
|
|
Ivan Mahonin |
ab6427 |
Readln(c);
|
|
Ivan Mahonin |
ab6427 |
|
|
Ivan Mahonin |
ab6427 |
Writeln('Enter hole size (x, y):');
|
|
Ivan Mahonin |
ab6427 |
Readln(x);
|
|
Ivan Mahonin |
ab6427 |
Readln(y);
|
|
Ivan Mahonin |
ab6427 |
|
|
Ivan Mahonin |
ab6427 |
pass := false;
|
|
Ivan Mahonin |
ab6427 |
if (a < x) and (b < y) then pass := true;
|
|
Ivan Mahonin |
ab6427 |
if (b < x) and (c < y) then pass := true;
|
|
Ivan Mahonin |
ab6427 |
if (c < x) and (a < y) then pass := true;
|
|
Ivan Mahonin |
ab6427 |
|
|
Ivan Mahonin |
ab6427 |
if (b < x) and (a < y) then pass := true;
|
|
Ivan Mahonin |
ab6427 |
if (c < x) and (b < y) then pass := true;
|
|
Ivan Mahonin |
ab6427 |
if (a < x) and (c < y) then pass := true;
|
|
Ivan Mahonin |
ab6427 |
|
|
Ivan Mahonin |
ab6427 |
{ or coding conditions in other way:
|
|
Ivan Mahonin |
ab6427 |
pass := ((a < x) and (b < y))
|
|
Ivan Mahonin |
ab6427 |
or ((b < x) and (c < y))
|
|
Ivan Mahonin |
ab6427 |
or ((c < x) and (a < y))
|
|
Ivan Mahonin |
ab6427 |
or ((b < x) and (a < y))
|
|
Ivan Mahonin |
ab6427 |
or ((c < x) and (b < y))
|
|
Ivan Mahonin |
ab6427 |
or ((a < x) and (c < y));
|
|
Ivan Mahonin |
ab6427 |
}
|
|
Ivan Mahonin |
ab6427 |
|
|
Ivan Mahonin |
ab6427 |
if pass then begin
|
|
Ivan Mahonin |
ab6427 |
writeln('Will pass trought');
|
|
Ivan Mahonin |
ab6427 |
end else begin
|
|
Ivan Mahonin |
ab6427 |
writeln('Box too large');
|
|
Ivan Mahonin |
ab6427 |
end;
|
|
Ivan Mahonin |
ab6427 |
|
|
Ivan Mahonin |
ab6427 |
readln(s);
|
|
Ivan Mahonin |
ab6427 |
end.
|