Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите пожалуйста (ввожу прогу на ABS NET ,программа выполняется ,)
помогите пожалуйста
ввожу прогу на ABS NET ,программа выполняется ,но когда ввожу значения ,то выдает ошибку ((

program v;
var x,y,r1,r2:real;
begin
write('x,y,r1,r2=');
readln(x,y,r1,r2);
if((x*x+sqr(y)<=sqr(r1))and(x>=0)and(sqr(x-r1)+sqr(y)>=sqr(r2)))or((sqr(x)+sqr(y)>sqr(r1))and(sqr(x-r1)+sqr(y)<=sqr(r2)))
then write('принадлежит')
else write('непринадлежит')
end.
1 | Автор: metla-01 | 2014-12-08, 20:24 | Изменено: metla-01 - Пн, 2014-12-08, 20:24   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите пожалуйста (ввожу прогу на ABS NET ,программа выполняется ,)
Страница 1 из 11
Поиск: