сервис вопросов и ответовСоставьте программу, определяющую, лежит ли точка с указанными координатами X, Y на окружности радиуса R с центром в начале координат.
10-11 класс|
|
Program Frankenstein;
var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=r
then writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');
End.
Почему программа всегда показывает что точка не лежит на окружности, хотя на самом деле она лежит! Где я ошибся?
Ksysha1901
02 окт. 2014 г., 17:00:23 (9 лет назад)
Evgenia2611
02 окт. 2014 г., 19:01:14 (9 лет назад)
Var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=sqr(r) then
Ответить
Другие вопросы из категории
Помогите, пожалуйста.
В паскале.
найти все двузначные числа, сумма кубов цифр которых делится на 17. (использовать вложенные циклы)
Петя записал IP-адрес школьного сервера на листке бумаги и положил его в карман куртки. Петина мама случайно постирала куртку вместе с запиской. После
стирки Петя обнаружил в кармане 4 обрывка с фрагментами IP-адреса. Эти фрагменты обозначены буквами А 0.144 ;Б 146. ; В 15; Г .100 в ответе укажите последовательность букв, обозначающих фрагменты, в порядке, соответствующем IP-адресу
В упаковке лежат черные и оранжевые фломастеры. Всего в упаковке 64 фломастера. Информация о том, что из упаковки случайным образом достали оранжевый
фломастер, равна 5 битам. Определить, сколько в упаковке черных и сколько оранжевых фломастеров.
Читайте также
Дано задание "Составьте программу, определяющую, лежит ли точка с
указанными координатами X, Y на окружности радиуса R с центром в
начале координат." я её составил но почему у меня всегда получается что точка не лежит на окружности хотя она лежит. Может я где то ошибся ?
var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=r
then writeln('Точка лежит на
окружности!')
Else writeln('Точка не лежит на
окружности!');
End.
Составьте программу, определяющую, лежит ли точка с
указанными координатами X, Y на окружности радиуса R с центром в
начале координат.
расписать в паскале: На плоскости расположена окружность R в центре с началом координат.Определить положение точки X с координатами (A,B) относительно
окружности (лежит ли точка внутри окружности на окружности или вне ее) Если можно полностью
1. Составьте блок-схему и программу вычисления значения функции:
2. Составьте программу, определяющую, является ли данное число делителем числа 3.
3*. Составьте программу, заменяющую из двух данных чисел меньшее число суммой, а большее – произведением этих чисел.
Составить программу в СИ:
1) Составить программу, проверяющую, является ли заданное натуральное число совершенным, то есть равным сумме своих положительных делителей, кроме самого этого числа.
2) Напечатать числа в виде следующей таблицы:
5 5 5 5 5
6 6 6 6
7 7 7
8 8
9
Вы находитесь на странице вопроса "Составьте программу, определяющую, лежит ли точка с указанными координатами X, Y на окружности радиуса R с центром в начале координат.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.