2 задачки-помогите пожалуйста хоть с чем-нибудь

Страница 1 из 1

Модератор форума: stalker, Ekz

Форум » Все о Delphi » Начинающим » 2 задачки-помогите пожалуйста хоть с чем-нибудь

2 задачки-помогите пожалуйста хоть с чем-нибудь

Z-elenaya

Дата: Четверг, 25.12.2008, 00:26 | Сообщение # 1

Ранг 1

Группа: Пользователи

Сообщений: 1

Награды: 0

Репутация: 0

Статус: Offline

1)Найти все такие простые числа,не превосходящие заданного N,двоичная запись которых представляет собой симметричную последовательность нулей и едениц(начинающуюся еденицей)
2)Определить радиус и центр окружности,на которой лежит наибольшее число точек заданного на плоскости множества

Admin

Дата: Четверг, 25.12.2008, 07:36 | Сообщение # 2

Ранг 10

Группа: Пользователи

Сообщений: 1268

Награды: 16

Репутация: 2

Статус: Offline

В чем собственно вопрос? Все за вас сделать? Или наталкнуть на мысль? Или рассказать алгоритм решения?

Не оказываю помощь через личные сообщения и ICQ

Ekz

Дата: Четверг, 25.12.2008, 15:38 | Сообщение # 3

Ранг 10

Группа: Пользователи

Сообщений: 164

Награды: 2

Репутация: 1

Статус: Offline

Quote (codelab)

В чем собственно вопрос? Все за вас сделать? Или наталкнуть на мысль? Или рассказать алгоритм решения?

Думаю все разом и с подробными объяснениями )

Admin

Дата: Четверг, 25.12.2008, 16:56 | Сообщение # 4

Ранг 10

Группа: Пользователи

Сообщений: 1268

Награды: 16

Репутация: 2

Статус: Offline

Z-elenaya, вот код для нахождения самих простых чисел:

Code

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
     flag:Boolean;
begin
   Memo1.Clear;
   for i:=2 to StrToInt(Edit1.Text) do
   begin
     flag:=true;
     For j:=2 to i-1 do
       if i mod j = 0 then
       begin
         flag:=false;
         break;
       end;

     if flag then Memo1.Lines.Add(inttostr(i));
   end;

end;

На форме должны быть TEdit, TMemo, TButton. А дальше попытайтесь сделать сами (все за вас делать не очень то и охото).

Как я понял дальше нужно перевести каждое найденное простое число в двоичное представление и определить симетрично ли оно. Как переводить из десятичного в двоичное представление есть тут

Не оказываю помощь через личные сообщения и ICQ

MegaMen

Дата: Четверг, 22.01.2009, 15:49 | Сообщение # 5

Ранг 5

Группа: Проверенные

Сообщений: 47

Награды: 0

Репутация: 5

Статус: Offline

Quote (Z-elenaya)

уравнение окружности + google тебе в помощь.

для начала попробуй сам написать, если неполучится, выкладывай код, поправим.. если не знаешь с чего начать, то поможем идейными "ассоциациями". по вопросам "решите за меня задачу" обращаются платно/бесплатно (это уже по воле программиста) в соответствующие разделы, которые как я заметил на данном форуме не существуют smile

офф: совет админам - создайте подобный раздел

Чтобы добиться цели, надо прежде всего её добиваться.

Admin

Дата: Четверг, 22.01.2009, 16:11 | Сообщение # 6

Ранг 10

Группа: Пользователи

Сообщений: 1268

Награды: 16

Репутация: 2

Статус: Offline

Спасибо. Поглядим. Сейчас ждем АП. smile

Не оказываю помощь через личные сообщения и ICQ

Форум » Все о Delphi » Начинающим » 2 задачки-помогите пожалуйста хоть с чем-нибудь

Страница 1 из 1