Форум программистов, компьютерный форум CyberForum.ru

Определить радиус и центр окружности.... - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Сложение столбиком. http://www.cyberforum.ru/cpp-beginners/thread286262.html
Привет всем!Я недавно начал изучать с++ и решил написать свою функцию сложения больших чисел т.е. длинную арифметику.Смысл не сложный.Мы считываем 2 числа в 2 строки в обратном порядке,получаем целочисленный тип каждого из них,складываем и записываем в 3 массив.Если результат выходит больше 9,то записываем в 3 строковую переменную <результат сложения>-10.И при следующем проходе цикла прибавляем...
C++ Как перевести убывающий цикл из паскаля в C++? Не могу понять как перевести строчку кода из Pascal на C++. Подскажите пожалуйста For j:=n Downto (i+1) Do http://www.cyberforum.ru/cpp-beginners/thread286226.html
Подскажите, как считать из файла структуру C++
Только начали работу с файлами на С. Поэтому пока что не совсем разобралась, что и куда. Struct notebook { char model; //наименование struct size { //габаритные размеры float x; float y; float z; }; float w; //вес
C++ как записать в переменную символьного типа (думерный массив) несколько строк, после инициализации этой переменной?
как записать в переменную символьного типа (думерный массив) несколько строк, после инициализации этой переменной? тоесть при инициализации канает char a={"dfbsdb","dfvsdfv"} а если после инициализации записать, a={"dfbsdb","dfvsdfv"} то выдаёт ошибку! или я мб нетак записываю? подскажите в чём ошибка!!
C++ Перезаписать память начиная с указателя Bitmap[1] элементами начиная с указателя Bitmap[0] http://www.cyberforum.ru/cpp-beginners/thread286186.html
Задан массив из 3 указателей Bitmap, по адресу Bitmap необходимо записать 480*640 элементов из массива Bitmap. В последнем цикле for выдает ошибку при i=2: Необработанное исключение в "0x004139be" в "Blue.exe": 0xC0000005: Нарушение прав доступа при записи "0xcccccccc". int i=0; BYTE* Bitmap; //Выделяем память for (i=0; i<=2; Bitmap=(BYTE *)malloc(480*640*sizeof(BYTE)));
C++ Численное интегрирование(ошибка при расчете) Прога считает определенные интеграл на заданном отрезке. Пользователь вводит начало и конец отрезка (я ввожу 0.1 и 0.6 соответственно в связи с особенностью интегрирования функции), ну и понеслась. Ошибка возникает в 46 строчке при расчете I. Трейсил прогу, выяснил, что значение y почему то равно -9.2559631349317831e+061, хотя при заполнении массива y значение присваивается вполне нормально...... подробнее

Показать сообщение отдельно
Паника
0 / 0 / 0
Регистрация: 30.04.2011
Сообщений: 18

Определить радиус и центр окружности.... - C++

30.04.2011, 17:30. Просмотров 914. Ответов 1
Метки (Все метки)

Здравстуйте!!!! Помогите пожалуйста..... Задача: Определить радиус и центр окружности, проходящей по крайней мере через три различные точки заданного множества точек на плоскости и содержащей внутри наибольшее количество точек этого множества.
Есть программа на Pascal ( только я не уверена, что она работает) надо переделать на Си!!!!!!

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
uses crt;
const nmax=28;
      e=0.01;
type
    Point=record {точка}
              x,y:real;{координаты}
            end;
    Okruz=record {окружность}
              o:Point;{координаты центра}
              r:real;{радиус}
            end;
    MassP=array[1..nmax] of Point; {множество-массив точек}
procedure Tochki(var t:MassP;var n:integer);{создание множества точек}
var i:integer;
begin
  repeat
  write('Количество точек 3 do ',nmax,' n=');
  readln(n);
  until n in [3..nmax];
  for i:=1 to n do
   begin
    t[i].x:=10*random;
    t[i].y:=10*random;
   end;
  write('X:');
  for i:=1 to n do
   write(t[i].x:5:2);
  writeln;
  write('Y:');
  for i:=1 to n do
   write(t[i].y:5:2);
  writeln;
end;
{вычисление параметров окружности, проходящей через три точки}
procedure Okr(t1,t2,t3:Point;var ok:Okruz);
var a,b,x,y:real;
    k0,k1,k2,m0,m1,m2:real;
begin
  k0:=sqr(t1.x)-sqr(t2.x)+sqr(t1.y)-sqr(t2.y);
  k1:=2*(t1.y-t2.y);
  k2:=2*(t1.x-t2.x);
  m0:=sqr(t1.x)-sqr(t3.x)+sqr(t1.y)-sqr(t3.y);
  m1:=2*(t1.y-t3.y);
  m2:=2*(t1.x-t3.x);
  a:=k2*m0-k0*m2;
  b:=k2*m1-k1*m2;
  if b=0 then exit;
  y:=a/b;
  ok.o.y:=y;
  if abs(m2) > e then x:=(m0-y*m1)/m2
    else
     if abs(k2) > e then x:=(k0-y*k1)/k2
       else exit;
        ok.o.x:=x;
  ok.r:=sqrt(sqr(t1.x-x)+sqr(t1.y-y));
end;
{определение принадлежности точки окружности}
function Prin(a:Point;ok:Okruz):boolean;
begin
if (sqr(a.x-ok.o.x)+sqr(a.y-ok.o.y))-sqr(ok.r)<-e then Prin:=true
  else Prin:=false
end;
var t:MassP;
    ok:Okruz;
    n,i,j,k,l,kol,mx:integer;
    mxr,mxx,mxy:real;
begin
  clrscr;
  randomize;
  Tochki(t,n);
  mx:=0;
  mxr:=0;
  mxx:=0;
  mxy:=0;
  for i:=1 to n-2 do
   for j:=i+1 to n-1 do
    for k:=j+1 to n do
     begin
      Okr(t[i],t[j],t[k],ok);
      kol:=0;
      for l:=1 to n do
       if Prin(t[l],ok)then kol:=kol+1;
       if kol>mx then
         begin
          mx:=kol;
          mxr:=ok.r;
          mxx:=ok.o.x;
          mxy:=ok.o.y;
         end;
     end;
  if mx=0 then write('Окружности, содержащей точки внутри нет!')
    else
      begin
       writeln('Окружность: координаты центра X=',mxx:0:2,' Y=',mxy:0:2,' R=',mxr:0:2);
       writeln('Внутри точек=',mx);
      end;
  readln;
end.
 Комментарий модератора 
Используйте теги форматирования кода!
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru