Подсчитать количество точек, лежащих в четвертой четверти плоскости

@дашаБаразненок · Регистрация: 01.10.2013

Студворк — интернет-сервис помощи студентам

Даны координаты xi и yi n-точек на плоскости. Подсчитать количество точек, лежащих в четвертой четверти.
Основные функции программ оформить в виде процедур и функций с параметрами.

@Puporev · 27.12.2013, 18:53

Pascal

uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
procedure koord(var x,y:mas;var n:integer);
var i:integer;
begin
repeat
write('Количество точек от 1 до ',nmax,' n=');
read(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  x[i]:=-10+20*random;
  y[i]:=-10+20*random;
 end;
writeln('Координаты точек');
for i:=1 to n do
 begin
  write(i:3,'(',x[i]:6:2,';',y[i]:6:2,') ');
  if i mod 4=0 then writeln
 end;
writeln;
end;
function kol_toh(x,y:mas;n:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=1 to n do
if(x[i]>0)and(y[i]<0) then k:=k+1;
kol_toh:=k
end;
 
var x,y:mas;
    n:integer;
begin
randomize;
koord(x,y,n);
write('Количество точек в IV четверти=',kol_toh(x,y,n));
end.

@дашаБаразненок 0 / 0 / 0 Регистрация: 01.10.2013 Сообщений: 3
		1
	Подсчитать количество точек, лежащих в четвертой четверти плоскости 27.12.2013, 18:21. Показов 1854. Ответов 1 Метки нет (Все метки) Даны координаты xi и yi n-точек на плоскости. Подсчитать количество точек, лежащих в четвертой четверти. Основные функции программ оформить в виде процедур и функций с параметрами. 0

Опции темы

Подсчитать количество точек, лежащих в четвертой четверти плоскости

Решение