1. , .
2. .
3. .
4. .
31
, P ( x, y ) ABCD ( W).
, ABCD.
AB: y =-x + 1,
BC: y = x+1,
CD: y = - x - 1,
DA: y = x - 1.
ABCD :
x | y | ||
(1, 0) W | |||
(1, 1) W |
Program Point_in_area;
var x, y: real;
begin
write ( );
read (x, y);
writeln ( (, x: 3: 2, ,, y: 3: 2,);
if abs (y) >1 - abs (x) then
writeln ( );
writeln ( W )
end.
if ";". .
2. 5 18
5
: .
1. ; , .
2. , , . .
3. - . , , .
4. .
31
. , .
-
m n .
. n.
const m =5;
n =4;
type t_diap =1.. n;
t_row =array[ t_diap ] of integer;
t_matr =array[1.. m ] of t_row;
1. . Read_matr.
|
|
1) : procedure Read_matr (var a: t_matr).
2) . m ´ n (m =5, n =4).
3) :
4) : a.
-
2. sort_arr.
1) : function sort_arr (const a: t_row): boolean;.
2) . true, a n =4 , false - .
3) : a.
4) : .
-