Составьте программу, определяющую…

Question

Составьте программу, определяющую, лежит ли точка с указанными координатами X, Y на окружности радиуса R с центром в начале координат.Program Frankenstein; varx,y,r: integer; Begin Write ('Введите координату X: '); Readln (x); Write ('Введите координату Y: '); Readln (y); Write ('Введите длину радиуса R: '); Readln (r); If (sqr (x)+sqr (y)=rthen writeln ('Точка лежит на окружности! ') Else writeln ('Точка не лежит на окружности! '); End. Почему программа всегда показывает что точка не лежит на окружности, хотя на самом деле она лежит! Где я ошибся?

Answer 1

34

nbveh88

20 февраля 2023

Varx,y,r: integer; BeginWrite ('Введите координату X: '); Readln (x); Write ('Введите координату Y: '); Readln (y); Write ('Введите длину радиуса R: '); Readln (r); If (sqr (x)+sqr (y)=sqr (r) then writeln ('Точка лежит на окружности! ') Else writeln ('Точка не лежит на окружности! '); End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: