Цитата Drongo:
|
Habetdin, Небольшой совет, делайте отступы в блоках\условиях, так будет легче читать код. Иначе многие специалисты, просто не утрудят себя "ломанием" глаз чтобы прочитать не читабельный код. Понимаете? »
|
Позволю себе процитировать Drongo, т.к. у меня та же мысль звучит в более жестких формах.
Habetdin,
Цитата Habetdin:
|
наверное из-за типа данных integer? »
|
Разумеется.
y - определен как целое, а ему хотят назначить результат с плавающей запятой. результат работы функции sqrt.
Цитата:
|
if sqr(x)+sqr(y)=sqr(r2) then dack(y);
|
dack(y) - вот это что такое?
Цитата Habetdin:
begin
y:=sqrt(sqr(r2)-sqr(x));
if sqr(x)+sqr(y)=sqr(r2) then dack(y);
k:=k+y;
for x:=0 to r1-1 do
begin
if sqr(x)+sqr(y)=sqr(r1) then k:=k-y;
end;
end; »
|
Ошибку не вижу, но чую она есть. Код какой-то неправильный. Не складный.
На будущее операцию возведения в квадрат проще и читабельнее писать как x*x
Всем переменным либо дать более полные и нормальные названия, либо в var прокомментировать их и дать словесное обозначение.
Что такое k - ?
К циклу так же дать комментарии. Т.к. непонятно что делаешь, и что надо проверять.
