Проверьте пожалуйста правильность программы на паскале
задание : Определить, попадает ли точка (х, у) в круг радиуса R с центром в точке (а; b). Вывести признак N = 1, если точка находится в круге и N = 0 – в противном случае.
var x,y, a,b, R : integer; {все числа целые. если допустимы дробные, тип поменять на real или на double} N : integer; begin WriteLn('Vvedite a,b, R, x,y'); Readln(a,b, R, x,y); if sqrt(sqr(x-a) + sqr(y-b) ) <= R then N := 1 else N := 0; WriteLn(' N = ', N); ReadLn; end. |
димон4ик, все правильно работает. :)
|
Часовой пояс GMT +4, время: 04:01. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.