0 / 0 / 0
Регистрация: 17.09.2013
Сообщений: 15
1

Задано N точек на плоскости. Составить программу для подсчета количества точек, попавших в заданную область

21.10.2013, 19:16. Показов 2531. Ответов 2
Метки нет (Все метки)

Задано N точек на плоскости. Составить программу для подсчета количества точек, попавших в заданную область.

Задано N точек на плоскости. Составить программу для подсчета количества точек, попавших в заданную область
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.10.2013, 19:16
Ответы с готовыми решениями:

Составить программу для подсчета количества точек попавших в заданную область
Составить программу для:1)подсчета количества точек попавших в заданную область;2)формирования...

Разработать программу для подсчета количества точек, попавших в заданную область
Все здравствуйте. Подобная тема была уже, но возникли некоторые сложности с кодом. Не могу понять...

Задано N точек на плоскости: подсчитать количество точек попавших в заданную область
1. Записать логическое выражение соответствующие заданной области истинности 2. Составить...

Подсчет количества точек, попавших в заданную область
привет всем!помогите составить программу для подсчета количества точек попавших в заданную область....

2
Супер-модератор
6109 / 2848 / 1299
Регистрация: 04.03.2013
Сообщений: 5,738
Записей в блоге: 1
22.10.2013, 08:02 2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
const n = 10;
var
  a : array[1..n, 1..2] of real;
  z : array[1..n] of boolean;
  i, j, k : byte;
begin
  k := 0;
  for i := 1 to n do
    z[i] := false;
  {формируем массив точек}
  for i := 1 to n do
  begin
    writeln('введите ', i, ' точку:');
    readln(a[i, 1], a[i, 2])
  end;
  for j := 1 to 2 do
  begin
    for i := 1 to n do
      write(a[i, j]:4);
    writeln
  end;
  writeln;
  {проверка точек}
  for i := 1 to n do
    begin
      if (sqrt(sqr(a[i, 1]) + sqr(a[i, 2])) >= 2) and
        (a[i,1] >= -3) and (a[i,1] <= 3) and
        (a[i,2] >= -3) and (a[i,2] <= 3) then
        begin
          z[i] := true;
          inc(k)
        end
    end;
  {вывод}
  writeln('Количество точек попадающих в область: ', k);
  writeln('Номера точек:');
  for i := 1 to n do
    if z[i] = true then write(i:4);
  readln
end.
1
0 / 0 / 0
Регистрация: 25.09.2014
Сообщений: 14
25.09.2014, 01:15 3
Можно пожалуйста блок схему тоже.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.09.2014, 01:15
Помогаю со студенческими работами здесь

Подсчет количества точек, попавших в заданную область
Задано N точек на плоскости. 1) Составить программу для: подсчета количества точек, попавших в...

Количество точек, попавших в заданную область
помогите решить) Задано N точек на плоскости. записать логическое выражение, соответствующее...

Определить количество точек, попавших в заданную область и сформировать массив из их координат
Координаты n точек заданы в текстовом файле. Определить количество точек, попавших в заданную...

Составить программу подсчета количества точек
Составить программу подсчета количества точек, попавших в серую область:


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru