Сгенерировать случайным образом координаты на плоскости

@roroleva · Регистрация: 21.09.2019

Сгенерировать случайным образом из диапазона от -10 до 10 координаты точки на плоскости. Вывести сообщение принадлежит ли она оси, находится в центре координат или некоторой четверти.

Помогите, пожалуйста.

@Puporev · 21.09.2019, 18:37

Pascal

var x,y:integer;
begin
randomize;
x:=-10+random(21);
y:=-10+random(21);
writeln('x=',x,' y=',y);
if(x=0)and(y=0)then writeln('Точка в начале координат')
else if (x=0)and(y<>0)then writeln('Точка на оси Y')
else if (x<>0)and(y=0)then writeln('Точка на оси Х')
else if (x>0)and(y>0)then writeln('Точка в I четверти')
else if (x<0)and(y>0)then writeln('Точка во II четверти')
else if (x<0)and(y<0)then writeln('Точка в III четверти')
else writeln('Точка в IV четверти')
end.

@roroleva 0 / 0 / 0 Регистрация: 21.09.2019 Сообщений: 41
		1
	Сгенерировать случайным образом координаты на плоскости 21.09.2019, 18:23. Показов 1583. Ответов 1 Метки нет (Все метки) Сгенерировать случайным образом из диапазона от -10 до 10 координаты точки на плоскости. Вывести сообщение принадлежит ли она оси, находится в центре координат или некоторой четверти. Помогите, пожалуйста. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Сгенерировать случайным образом координаты на плоскости

Решение