Генератор случайных чисел+таблица Опции

[tory]

Вот такое:
Использовать генератор случайных чисел для задания знвчений х,у в пределах от -2 до 2.
Для любых комбинаций х,у указать, попадают ли точки с координатами х,у в окружность радиусом
r=1с центром в начале координат. Результат оформить в виде таблицы и вывести на принтер и экран дисплея

[tory]

вот написал такое

x,y: integer;
begin
	randomize;
	x:=random(5);
	x:=x-2;
	y:=random(5);
	y:=y-2;
	if sqr(x)+sqr(y)>1 then 
	writeln('не входит в окружность');
	else
	writeln('входит в окружность');
	readln;
end.

как теперь заполнить таблицу? Да к тому же еще и все возможные значения

Пользуйся тегами! Про новые теги читай в Новостях

Сообщение отредактировано: lapp - 2.11.2006 22:52