Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 30.11.2020
Сообщений: 37

Количество точек в 1й четверти круга

08.02.2021, 20:33. Показов 790. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Линейный массив A содержит 2*N элементов, значения которых задаются по следующей формуле a[i]:=10*sin(N+i*i). Элементы массива нумеруются с единицы

Найти количество точек, расположенных в первой четверти круга радиуса R с центром в начале координат, если значения элементов А[1] и А[2] - координаты первой точки, элементов А[3] и А[4] - второй точки и т. д.
Входные данные:
Во входном потоке в первой строке задано натуральное число N (N <= 100) и вещественная R (0 < R < 15).
Пример входного файла (input.txt):
96
6.404

Выходные данные:
В выходной поток вывести единственное натуральное число.
Пример выходного файла (output.txt):
7
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
08.02.2021, 20:33
Ответы с готовыми решениями:

Найти количество точек первой четверти круга
Линейный массив A содержит 2*N элементов, значения которых задаются по следующей формуле a:=10*sin(N+i*i). Элементы массива нумеруются с...

Среднее расстояние точек в 1й четверти круга
Линейный массив A содержит 2*N элементов, значения которых задаются по следующей формуле a:=10*sin(N+i*i). Элементы массива нумеруются с...

Количество точек во 2й четверти
Линейный массив A содержит 2*N элементов, значения которых задаются по формуле a:=10*sin(N+i*i). Элементы массива нумеруются с единицы. ...

1
Модератор
10451 / 5741 / 3409
Регистрация: 17.08.2012
Сообщений: 17,474
12.02.2021, 21:30
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  i, n, k: integer;
  x, y, r: real;
begin
  k := 0;
  readln(n, r);
  r := r * r;
  for i := 1 to n do
    begin
      y := 10 * sin(n + 4 * i * i);
      x := 10 * sin(n + 4 * i * (i - 1) + 1);
      if (x > 0) and (y > 0) and (x * x + y * y < r) then inc(k)
    end;
  writeln(k)
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
12.02.2021, 21:30
Помогаю со студенческими работами здесь

Количество точек в 1й четверти
Линейный массив A содержит 2*N элементов, значения которых задаются по формуле a:=10*sin(N+i*i). Элементы массива нумеруются с единицы. ...

Найти среднее расстояние от начала координат до точек, расположенных в четвертой четверти круга радиуса R
Линейный массив A содержит 2*N элементов, значения которых задаются по следующей формуле a:=10*sin(N+i*i). Элементы массива нумеруются с...

Среди трех точек с координатами (x1,y1), (x2,y2), (x3,y3) определить количество точек, лежащих в третьей четверти
Среди трех точек с координатами (x1,y1), (x2,y2), (x3,y3) определить количество точек, лежащих в третьей четверти

Подсчитать количество точек, лежащих в четвертой четверти плоскости
Даны координаты xi и yi n-точек на плоскости. Подсчитать количество точек, лежащих в четвертой четверти. Основные функции программ...

Массивы. Unit-ы. Даны координаты точек на плоскости. Определите количество точек, лежащих в первой четверти
Даны координаты Xi и Yi n точек на плоскости. Определите количество точек,лежащих в первой четверти. Вот как я сделал но у меня не...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
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. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru