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

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

Метки нет (Все метки)

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

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

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

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.

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

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

02.11.2010, 09:31

Ответы с готовыми решениями:

Вывести на печать номера точек, лежащих в круге радиусом R с центром в начале координат
Вывести на печать номера точек, лежащих в круге радиусом R с центром в начале координат. Координаты точек заданы...

Определить, сколько точек попадает в кольцо с внутреним радиусом r1 и внешним радиусом r2
вводятся по очереди координаты n точек определить сколько из них попадает в кольцо с внутреним радиусом r1 и внешним радиусом r2

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

02.11.2010, 09:31

Помогаю со студенческими работами здесь

Вычислить, сколько точек находится в круге радиусом r
Три точки заданы на плоскости своими координатами. Помогите, пожалуйста, вычислить, сколько точек находится в круге радиусом r с центром в...

Сколько точек с целочисленными координатами находится в круге радиусом R
Сколько точек с целочисленными координатами находится в круге радиусом R? Точка, находящаяся на окружности, считается принадлежащей кругу....

вывести на печать номера точек лежащих в круге радиусом r
Пожалуйста переделайте в дэлфи uses crt; function Rasst(x,y:real):real; begin Rasst:=sqrt(sqr(x-1)+sqr(y-1)); end; var...

Выведите на печать номера точек, лежащих в круге радиусом R с центром в начале координат
Помогите пожалуйста) Выведите на печать номера точек, лежащих в круе радиусов R с центром в начале координат. Координаты точек заданы...

Отпечатать расстояния от начала координат для тех точек,которые принадлежат кругу с заданным радиусом, и число таких точек.
1)Значение f(k) заключено между значениями t1= -a - √(b+m), t2=√(a+b+m),но не равно нулю. 2)Дана матрица из 2 столбцов и 10 строк.Первый...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

Наверх