Program Mass;
var
i: integer;
X,Y:array[1..15] of integer;
K: array [0..4] of integer;
const
M = 15;
begin
for i := 0 to 15 do
K [ i ] := 0;
for i := 0 to M - 1 do begin
if (X [ i ] > 0) and (Y [ i ] > 0) then
inc(K[1-1]);
if (X [ i ] < 0) and (Y [ i ] > 0) then
inc(K[2-1]);
if (X [ i ] < 0) and (Y [ i ] < 0) then
inc(K[3-1]);
if (X [ i ] > 0) and (Y [ i ] < 0) then
inc(K[4-1]);
end;
readln;
end.
Массивы
Не могу понять надо тут ченить выводить или не надо подскажите пожалуйста.
При заданных масивах X(15) абсцис Y(15) ординат точек плоскости XoY, определите сколько из них находится в 1,2,3,4 квадратах(четвертях) плоскости.
При заданных масивах X(15) абсцис Y(15) ординат точек плоскости XoY, определите сколько из них находится в 1,2,3,4 квадратах(четвертях) плоскости.
Код:
Программа по идее правильная но я не знаю выводить что на экран, точки? я не совсем понимаю что от меня требуется((( спросить у препода ответ? проще собрать всех людей на планете имя которых начинается с буквы Ц.)))
канешнаже нада выводить... и выводить нада колл. точек в каждой плоскости...
Чето ваще перестал соображать надо K выводить
Код:
uses crt;
const
M = 15;
var
i: word;
X,Y:array[1..M] of integer;
K: array [1..4] of integer;
begin
//вводим все 15 точек, задавая x и y
for i:=1 to M do
begin
writeln('Vvedite x and y:');
readln(X,Y);
end;
//печатаем полученные от пользователя данные
for i:=1 to m do
Writeln('X[',i,']:=',X,' ','Y[',i,']:=',Y);
//определяем сколько точек вошло в ту или иную четверть
for i := 1 to M do
begin
if (X [ i ] > 0) and (Y [ i ] > 0) then
inc(K[1]);
if (X [ i ] < 0) and (Y [ i ] > 0) then
inc(K[2]);
if (X [ i ] < 0) and (Y [ i ] < 0) then
inc(K[3]);
if (X [ i ] > 0) and (Y [ i ] < 0) then
inc(K[4]);
end;
//выводим результат работы программы
for i:=1 to 4 do
writeln('v ',i,' chetverti nahoditsa ',K,' tochka(tochek)');
readln;
end.
const
M = 15;
var
i: word;
X,Y:array[1..M] of integer;
K: array [1..4] of integer;
begin
//вводим все 15 точек, задавая x и y
for i:=1 to M do
begin
writeln('Vvedite x and y:');
readln(X,Y);
end;
//печатаем полученные от пользователя данные
for i:=1 to m do
Writeln('X[',i,']:=',X,' ','Y[',i,']:=',Y);
//определяем сколько точек вошло в ту или иную четверть
for i := 1 to M do
begin
if (X [ i ] > 0) and (Y [ i ] > 0) then
inc(K[1]);
if (X [ i ] < 0) and (Y [ i ] > 0) then
inc(K[2]);
if (X [ i ] < 0) and (Y [ i ] < 0) then
inc(K[3]);
if (X [ i ] > 0) and (Y [ i ] < 0) then
inc(K[4]);
end;
//выводим результат работы программы
for i:=1 to 4 do
writeln('v ',i,' chetverti nahoditsa ',K,' tochka(tochek)');
readln;
end.