Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.01.2011, 13:49   #11
Алексей325
 
Регистрация: 12.01.2011
Сообщений: 8
По умолчанию

Блин а как мне это в делфи записать и куда?помогите самоучке
Алексей325 вне форума Ответить с цитированием
Старый 14.01.2011, 13:51   #12
}|{opa KopHeB
Пользователь
 
Регистрация: 14.01.2011
Сообщений: 23
По умолчанию

http://www.softportal.com/getsoft-41...yuschih-1.html

Начни с этого.
}|{opa KopHeB вне форума Ответить с цитированием
Старый 14.01.2011, 14:59   #13
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
1.Проверить попадает ли точка в окружность заданная своим центром и радиусом.
Простейшая консольная на Делфи:
Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
function aga(x,y:integer):boolean;
const cx=10;cy=10;r=100;
begin
 Result:=sqrt(sqr(cx-x)+sqr(cy-y))<=r;
end;

begin
 if aga(10,113) then write('Popala') else write('nop');
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.
Цитата:
Задать массив точек и определить сколько из них попадает вокружность.
А вот тут тебе придется почитать про массивы Паскаля, и как и писать и наполнять.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 14.01.2011, 15:32   #14
Косюра
Пользователь
 
Аватар для Косюра
 
Регистрация: 14.01.2011
Сообщений: 74
По умолчанию

Алексей, во первых не хами. Это людям не нравятся и тебе изза этого могут отказать в помощи. Тебе и так бескорыстно помогают.

Лично для тебя запихну код который написали ранее в прогу, напишу комменты и скопирую обратно со всем скелетом программы:
Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
X, Y, R: integer;          //  центр и радиус окружности
Popadaet: boolean;         //  Переменная которая выдает Да или Нет
Px, Py : array of integer; //  Массив из координат точек
N: Integer;                //  Количество точек
K: Integer;                //  Количество точек которые попадают в окружность
I: Integer;                //  Переменная цикла

begin
  Write('Введите центр и радиус окружности:  ');
  ReadLn(X,Y,R);
  Write('Введите количество точек, которые вы будете рассматривать: ');
  ReadLn(N);

  //Выделяем место в массивах
  Setlength(Px,N);
  SetLength(Py,N);

  K:=0;
  //Ищем количество точек попадающих в окружность
  for I:=1 to N do
    begin
     // Ищем расстояние от центра окружности до точки.
     // Если Расстояние меньше радиуса, то попадает
     if sqrt((X-Px)^2+(Y-Py)^2)<R then Popadaet:=True;
     K:=K+1;
    end;

WriteLn('Количество точек, попавших в окружность = ',K);

end.
Девушка - переменная бинарного типа с рандомным значением
Косюра вне форума Ответить с цитированием
Старый 14.01.2011, 15:38   #15
Косюра
Пользователь
 
Аватар для Косюра
 
Регистрация: 14.01.2011
Сообщений: 74
По умолчанию

Да, и не могу всё таки не остановиться на этом. Такая уж моя женская натура.
Алексей325, многое из того что знаю лично я - я узнавала с таких же форумов и различных мануалов. Так вот. Если Вы считаете, что Вы сделали правильно, что нахамили человеку, который Вам написал ответ на Ваш вопрос, посчитав что он не прав, то я Вам сочувствую. Перед тем как ему что-то ответить я думаю стоило почитать хоть что-то про тот язык, которым Вы заинтересованы. В предь советую Вам раньше думать чем писать.
Девушка - переменная бинарного типа с рандомным значением
Косюра вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
pascal за ночь нужно справиться((( Настёна_19 Помощь студентам 4 22.12.2010 03:21
Не могу справиться с Padeg.dll LAnLorD Microsoft Office Excel 10 17.11.2010 12:48
Плмлгите справиться с ошибкой! Mr.Steroid Помощь студентам 3 24.09.2010 23:06
Помогите справиться с задачей hunter05 Microsoft Office Excel 4 24.12.2009 15:51
Просто, но справиться не могу. Небесный Общие вопросы Delphi 1 05.05.2008 11:32