Трехмерный массив

[Leisan_S]

В трехмерном пространстве заданы точки (тройками значений x,y,z) и сфера (центр и радиус). Напишите программу, выводящую точки (их координаты), которые попадают в заданную пользователем сферу.

[Leisan_S]

можно было бы загуглить, наверное, и собрать все компоненты в кучу; у меня проблема с программной реализацией((

[anydevelop]

Вот. Если что непонятно, спрашивайте.

program sfera;

var
	dots: array[1..10000, 1..3] of Real;
	sphere: array[1..4] of Real;
	n, i, last: Integer;
	x, y, z: Real;
	
begin
	last := 0;
	write('Введите коодинаты x, y и z центра сферы и её радиус, разделяя пробелом: ');
	readln(sphere[1], sphere[2], sphere[3], sphere[4]);
	write('Введите количество точек: ');
	readln(n);
	writeln('');
	for i := 1 to n do
	begin
		write('Введите координаты x, y и z точки ');
		write(i);
		write(', разделяя их пробелом: ');
		readln(x, y, z);
		if sqrt((x-sphere[1]) * (x-sphere[1]) + (y-sphere[2]) * (y-sphere[2]) + (z-sphere[3]) * (z-sphere[3])) <= sphere[4] then
		begin
			last := last+1;
			dots[last, 1] := x;
			dots[last, 2] := y;
			dots[last, 3] := z;
		end;
	end;
	writeln('');
	
	if last > 0 then
	begin
		write('Вот точки, лежащие внутри сферы: ');
		for i:=1 to last do
		begin
			if i = last then
			begin
				writeln(dots[i, 1], dots[i, 2], dots[i, 3]);
			end else
			begin
				write(dots[i, 1], dots[i, 2], dots[i, 3]);
				write(', ');
			end;
		end;
	end else
		writeln('Все точки вне сферы');
end.

[Leisan_S]

error 22 structure too large на строку dots: array[1..10000, 1..3] of Real;
просмотрела в поиске, народ пишет, что в турбо паскаль ограничение не пройти, а free pascal ну никак не подойдет
Повожусь-ка я еще по лекциям

[Zer0]

Все верно, ограничение не размер структуры, но если это к примеру учебная задача, то первую размерность можно и поменьше сделать, если нет - можно попробовать реализовать динамический список (правда сходу не скажу, какие ограничения на использование памяти накладывает TP)

[amgalan]

можно ли сделать так ?
mass=array [0..51] of array[0..51] of array[0..2] of integer;
допустим

[NetSpace]

в С++ можно было бы сделать: N=10000; double huge dots[N];
а как в Turbo Pascal'е сделать...
а если ты консольку в Delphi накатаешь? - мож, там на память нет такого ограничения?

[Аватар]

А точки в массиве откуда берутся? В общем-то массив здесь ни какой и не нужен, особенно если координаты из файла берутся или вводятся пользователем. При условии, что координаты и радиус сферы вводятся первыми. Прямо в цикле считывания координат обрабатывать каждую точку и забывать про неё