Программа, высчитывающая кол-во целочисленных точек в круге с заданным радиусом

02.11.2010, 09:31. **Показов** 769. **Ответов** 0

Author24 — интернет-сервис помощи студентам

Всем привет!!!!
Я учусь в школи в 9 класе мы проходим паскаль и я пока в класе лучше всех его делаю

Вчера мне задали задачку на дом, сказали, что поставят пятерку. Задача звучит так: "Найти кол-во целочисленных точек в круге с радиусом R. Радиус R задаётся произвольно с клавиатуры"

Я что-то делаю, делаю, а она не делается!
Если составить четреж, то получится, што целочисленных точек в круге с радиусом 2 девять! А у меня выходит то 7, то 13 вообще

Вот какая у меня прога пока:

Pascal

var r,i,x,y:integer;
begin
   writeln ('Введите радиус круга');
   readln (r);
   i:=1;
   y:=0;
   while x*x+y*y<r*r do
   begin
   x:=0;
     while x*x+y*y<r*r do
        begin
         while x*x+y+y<r*r do
           begin
            x:=x+1;
            i:=i+2;
           end;
           y:=y+1;
           i:=i+2;
        end;
   end;
   writeln ('Кол-во точек в круге с подобным радиусом рёвно ',i);
   readln;
end.

Што в ней неверно? Помогите, пазязя

	02.11.2010, 09:31

Опции темы