На плоскости задана прямоугольная система координат, которая делит плоскость на 4 квадранта (четверти). вводятся координаты (х,у). определить какому квадранту (четверти) принадлежит точка.
Uses crt; var x,y: real; begin clrscr; write ('x='); readln (x); write ('y='); readln (y); if (x>0) then begin if (y>=0) then writeln ('1 quater') else writeln ('4 quater'); end else begin if (y>0) then writeln ('2 quater') else writeln ('3 quater'); end; readln (); end.
Const n = 5; var i: integer; a: array[1..n * 2 + 1] of integer; begin writeln('исходный массив: '); for i : = 1 to 2 * n do begin a[i] : = random(99) + 1; write(a[i] : 5); end; for i : = 2 * n + 1 downto n + 1 do a[i] : = a[i - 1]; a[n + 1] : = 0; writeln(); writeln('полученный массив: '); for i : = 1 to 2 * n + 1 do write(a[i] : 5); end.
var x,y: real;
begin
clrscr;
write ('x=');
readln (x);
write ('y=');
readln (y);
if (x>0) then
begin
if (y>=0) then
writeln ('1 quater')
else
writeln ('4 quater');
end
else
begin
if (y>0) then
writeln ('2 quater')
else
writeln ('3 quater');
end;
readln ();
end.