Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.05.2009, 11:16   #1
Otre4eHHbIu
Пользователь
 
Регистрация: 12.05.2009
Сообщений: 31
По умолчанию Паскаль, массивы, наработки есть.

Код:
program lvl4;
const n= 10;
type mas=array[1..n] of integer;
var
	x,y: mas;
	t,a,srx,sry: real;
	i,b: integet;
begin
		sry:=0;
		srx:=0;
		writeln('Input t');
		readln (t);
		writeln('Input b')
		readln (b);
		writeln('VVedite x[i],y[i]');
		for i:= 1 to n do read(x[i], y[i]);
			a:= sqrt(sqr(x[i]-x[b])+sqr(y[i]-y[b]));
			srx:=x;
		if a>t then
			writeln('S ot x[i], y[i] do [b], y[b] > T pri i= ');
			writeln(i);
end
И собственно сама задача:
Даны два массива X и Y, состоящие из N элементов каждый. Каждая пара элементов вида (X[i], Y[i]) задает абсциссу и ординату одной (i-той) точки на плоскости X0Y(всего точек N). Задана также некоторая базовая точка с координатами X[b], Y[b]. Определить, в каком числе случаев расстояние между очередной точкой (из числа N точек) и базово точкой превышает заданную величину T, и найти средние координаты для заданной совокупности точек, исключая базовую.

Собственно прошу помощи в проверке первой части задачи + решение второй части про средние координаты...очень прошу оставлять комментарии к написанному, если по вашему это может быть непонятно мне.
Otre4eHHbIu вне форума Ответить с цитированием
Старый 12.05.2009, 11:50   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Код:
program lvl4;
const n= 10;
type mas=array[1..n] of integer;
var
	x,y: mas;
	t,a,srx,sry: real;
	i,b: integer;
begin
sry:=0;
srx:=0;
writeln('Input t');
readln (t);
writeln('Input b');
readln (b);
writeln('VVedite x[i],y[i]');
for i:= 1 to n do
 readln(x[i], y[i]); 

for i:=1 to n do
 begin
 a:= sqrt(sqr(x[i]-x[b])+sqr(y[i]-y[b]));
 if a>t then
  writeln('S ot x[i], y[i] do [b], y[b] > T pri i= ', i);
 if i<>b then  
  begin
  srx := srx + x[i]; // средние координаты
  sry := sry + y[i];
  end;
 end;

writeln;
srx := srx/(n-1);
sry := sry/(n-1);
writeln('Sred x: ',srx:5:2);
writeln('Sred y: ',sry:5:2);

readln;
end.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Старый 12.05.2009, 12:20   #3
Otre4eHHbIu
Пользователь
 
Регистрация: 12.05.2009
Сообщений: 31
По умолчанию

можно немного подробнее насчет
srx := srx + x[i];
sry := sry + y[i];

и

srx := srx/(n-1);
sry := sry/(n-1);

и огромное спасибо за помощь.
Otre4eHHbIu вне форума Ответить с цитированием
Старый 12.05.2009, 12:26   #4
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Цитата:
можно немного подробнее насчет
Ну ведь вам нужны средние координаты. Вот мы их и вычисляем (сумма всех точек на их количество).
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ПОСМОТРИТЕ, ПОЖАЛУЙСТА, ПРОГРАММЫ НА ЯЗЫКЕ ПАСКАЛЬ!! СРОЧНО!! ЕСТЬ НАРАБОТКИ) НАСТЯ 18:) Помощь студентам 33 10.05.2009 15:23
Паскаль. Массивы cucumber Помощь студентам 4 10.04.2009 16:42
есть один вопрос [ПАскаль] Айат Помощь студентам 1 25.11.2008 10:48
Паскаль. Массивы Sexy Fox Помощь студентам 5 12.04.2008 21:45
у кого есть нармальный паскаль finch Помощь студентам 1 21.06.2007 17:38