Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Массивы

Автор: Beseech 11.05.2007 15:46

Задано 20 пар чисел х,у. Каждая пара чисел интерпретируется как координаты (х,у) некоторой точки плоскости. Определить, сколько точек попадет в круг радиусом R с центром в точке с координатами (a,b). Вывести на экран кол - во и координаты точек, попавших в круг.(Указание: Координаты точек задать в виде одномерных массивов X and Y по 20 элементов каждый. Точка с координатами (х,у) попадает в круг, если выполняется условие (x-a) в квадрате +(y-b) в квадрате<R в квадрате.)
Долго думал как сделать эту задачу но ниче у меня не получилось((( mad.gif

Автор: arhimag 11.05.2007 15:52

 
const
  n = 20; {Сколько всего точек}
  ar_x : array [1 .. n] of real = (1, 2, 3, 4, 5, -1, -2, -3, -4, -5, 1, 2, 3, 4, 5, -1, -2, -3, -4, -5); {Массив х координат}
  ar_y : array [1 .. n] of real = (1, 2, 3, 4, 5, -1, -2, -3, -4, -5, -1, -2, -3, -4, -5, 1, 2, 3, 4, 5); {Массив y координат}
  r = 3; {радиус}
  center_x = 0; {X координата центра}
  center_y = 0; {У координата центра}
var i : integer; {Переменная для цикла}
    count : integer;{Количество точек которые в круге}
begin
  count:=0;{Обнуляем количество точек в круге}
  for i:= 1 to n do {Пробегаем по массивам}
    if (ar_x[i]-center_x)*(ar_x[i]-center_x)+(ar_y[i]-center_y)*(ar_y[i]-center_y)<=r*r then begin {Проверка на принадлежность кругу}
      inc(count); {Если принадлежит, то увеличиваем количество принадлежащих на 1}
      writeln(ar_x[i]:0:6,' ',ar_y[i]:0:6); {Если принадлежит, то выводим эту пару}
    end;
  writeln(count);{Выводим количество}
  readln;{Ждем нажатия Enter, для завершения}
end.



Автор: Beseech 11.05.2007 16:09

Большое спс blum.gif

Автор: Lapp 11.05.2007 16:22

 ! 
 Beseech, ты испытываешь терпение Администрации?
Что такого информативного в "интересная" и "помогите"? mad.gif

Не переименуешь - получишь премодерацию


Автор: volvo 11.05.2007 19:02

arhimag упорно не хочет читать задания... dry.gif Он их исключительно просматривает, и делает так, как ЕМУ удобно... Русским языком сказано:

Цитата
Задано 20 пар чисел х,у
Где у тебя 20 пар? Я не вижу... 2 вектора - вижу, 20 пар - нет...

Автор: arhimag 11.05.2007 19:48

Volvo , видимо твое желание найти у меня ошибку, превысило твою внимательность, но я думаю, что это можно тебе простить.

Цитата
Координаты точек задать в виде одномерных массивов X and Y по 20 элементов каждый

Автор: Beseech 11.05.2007 22:24

Уважаемый администратор сорри за такие темы...
Просто я уже незнаю как их писать... unsure.gif