Создание программы - Помощь студентам

Алекс 9 · 13.01.2011, 16:51

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

Alex Cones · 13.01.2011, 16:55

И что дальше? Мы вас сердечно поздравляем с получением задания. Либо наработки, либо во фриланс.

P.S.

Код:

If (Sqr(X) + Sqr(Y) < Srq(R)) Then ShowMessage('Входит');

Z1000000 · 13.01.2011, 16:56

Код:

program lab;
var
 x,y,R: real;
begin
read (x,y,R);
if sqr(x)+sqr(y) <= sqr(R) then writeln('Вошла') else writeln(' Не вошла');
end.

Алекс 9 · 13.01.2011, 16:57

Можно более подробный код, если не сложно.
Заранее спасибо.

13.01.2011, 16:51	#1
Алекс 9 Новичок Джуниор Регистрация: 13.01.2011 Сообщений: 2	Создание программы Нужно составить программу, которая будет показывать, вошла ли точка в радиус круга. Центр круга - (0;0)

13.01.2011, 16:55	#2
Alex Cones Trust no one. Старожил Регистрация: 07.04.2009 Сообщений: 6,526	И что дальше? Мы вас сердечно поздравляем с получением задания. Либо наработки, либо во фриланс. P.S. Код: `If (Sqr(X) + Sqr(Y) < Srq(R)) Then ShowMessage('Входит');` SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА. МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ

13.01.2011, 16:56	#3
Z1000000 Форумчанин Регистрация: 04.05.2010 Сообщений: 495	Код: `program lab; var x,y,R: real; begin read (x,y,R); if sqr(x)+sqr(y) <= sqr(R) then writeln('Вошла') else writeln(' Не вошла'); end.` Нажми на весы, поставь + Для благодарностей : WebMoney WMR R252732729948

13.01.2011, 16:57	#4
Алекс 9 Новичок Джуниор Регистрация: 13.01.2011 Сообщений: 2	Можно более подробный код, если не сложно. Заранее спасибо.