HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
Ответ
Страница 526 из 677 « Первая < 26426476516 522 523 524 525 526 527 528 529 530 536576626 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #5251  
Старый 17.12.2009, 23:48
patcher
Познающий
Регистрация: 15.12.2009
Сообщений: 81
Провел на форуме:
393444

Репутация: 24
Отправить сообщение для patcher с помощью ICQ
Wink
TPAXTOP, вот, набросал в блокноте. Можно было бы конечно более оптимально решить задачу, но думаю тебе и так пойдет))
Код:
program name_of_program;
var i,s:integer;  
begin  
for i:=100 to 999 do
  begin 
  if i mod 25=0 then  
    s:=s+i;  
  end;  
writeln(s);  
readln;  
end.
 
Ответить с цитированием

  #5252  
Старый 17.12.2009, 23:56
SinatoR
Новичок
Регистрация: 06.11.2009
Сообщений: 3
Провел на форуме:
58213

Репутация: -10
По умолчанию
StealthMaster СПАСИБО тебе большое!!!
 
Ответить с цитированием

  #5253  
Старый 18.12.2009, 00:03
TPAXTOP
Познающий
Регистрация: 10.12.2009
Сообщений: 33
Провел на форуме:
19460

Репутация: 0
По умолчанию
Цитата:
Сообщение от Vish  
писец, парень не тупи, тебе сделали уже давно.. даже выбор есть, 3 варианта тебе предложено
ахах))
действительно, у меня эту страницу не открывало О_о

БЛАГОДАРЮ ВСЕХ ЗА ПОМОЩЬ!
 
Ответить с цитированием

  #5254  
Старый 18.12.2009, 00:07
StealthMaster
Познающий
Регистрация: 03.12.2008
Сообщений: 56
Провел на форуме:
140714

Репутация: 29
Отправить сообщение для StealthMaster с помощью ICQ
По умолчанию
TPAXTOP, тебе же написали целых два способа: с циклом while и с циклом for:

Цитата:
Сообщение от Thenno  
Код:
Program While25;
var
  i,k:integer;
begin
  k:=0;
  i:=100;
  while i<=999 do  // тут 999, а не 1000, как было 
    begin
      k:=k+i;
      i:=i+25;
    end;
  writeln (k);
end.
Цитата:
Сообщение от Vish  
Код:
Program For25;
var
  i:integer;
  k:integer;
begin
  k:=0;
  for i:=100 to 999 do
    if i mod 25 = 0 then
      k:=k+i;
  writeln (k);
end.
Хотя, имхо, второй алгоритм (с циклом for) можно немного доработать: вместо того, чтобы делать 900 сравнений можно посчитать количество чисел делящихся на 25 в пределах от 100 (включительно) до 999, а потом запустить цикл for с таким количеством итераций (фактически, полученный алгоритм очень похож на первый):

Код:
Program For25Extra;
uses
    CRT;
var
  Result:       integer;
  count:        integer;
  number:       integer;
  i:            integer;
begin
  clrscr;
  count := (999 div 25) - (99 div 25);
  Result := 0;
  Number := 100;
  for i := 1 to count do
      begin
           inc(Result, Number);
           inc(Number, 25);
      end;
  writeln('Result: ', Result);
  readln;
end.
Последний раз редактировалось StealthMaster; 18.12.2009 в 00:09..
 
Ответить с цитированием

  #5255  
Старый 18.12.2009, 00:08
mr_walker
Познающий
Регистрация: 09.08.2009
Сообщений: 39
Провел на форуме:
298385

Репутация: 75
По умолчанию
Пост #5252 ктото знает?
 
Ответить с цитированием

  #5256  
Старый 18.12.2009, 00:38
storm-soft
Новичок
Регистрация: 17.06.2007
Сообщений: 8
Провел на форуме:
81711

Репутация: 3
Отправить сообщение для storm-soft с помощью ICQ
По умолчанию
Подскажите пожалуйста кто знает как это сделать
нужно подключится к почтовому серверу и проверить есть ли письма от определённого отправителя.
Заранее спасибо
 
Ответить с цитированием

  #5257  
Старый 18.12.2009, 12:16
Вася Рогов
Новичок
Регистрация: 06.07.2009
Сообщений: 18
Провел на форуме:
42940

Репутация: 0
Отправить сообщение для Вася Рогов с помощью ICQ
По умолчанию
как правильно зацепица (залогиница) на сайте wap.my.mail.ru
сначало делаю post, потом get... но ничего не выходит... снифер пока ничего внятного не выдал.
 
Ответить с цитированием

  #5258  
Старый 18.12.2009, 14:26
romeo[solo]
Новичок
Регистрация: 17.12.2009
Сообщений: 2
Провел на форуме:
3638

Репутация: 0
По умолчанию
нужно сделать 10 потоков, и контроллирующий поток
10 потоков имеют 1 и тот же код, каждый поток при необходимости выполнения какого-то действия отсылает данные на контроллирующийся поток, в котором все потоки становятся в очередь на выполнение, после того как контроллирующий поток обработал запрос за выполнение 1 действия, он отдаёт команду на запрашивающий поток, что можно продолжать работу
т.е. все потоки становятся в очередь в контр поток, и только когда будет обработано действие контр поток возобнавляет работу того потока для которого это действие выполнялось.
ещё такой вопрос: если программа будет содержать много потоков, нагрузка процессора будет распределяться по всем ядрам или нет?
 
Ответить с цитированием

  #5259  
Старый 18.12.2009, 16:46
Nightmarе
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763

Репутация: 1680


Отправить сообщение для Nightmarе с помощью ICQ
По умолчанию
Вопрос по API функции CreateThread, как через неё сделать 10 потоков?
Вот команда на запуск функции:
h1:=beginthread(nil,1024,@incedit1,nil,0,th1);

Не могу только понять, что именно отвечает тут за количество потоков, то ли h1, то ли 1024, то ли 0....
 
Ответить с цитированием

  #5260  
Старый 18.12.2009, 17:48
slesh
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241

Репутация: 3349


Отправить сообщение для slesh с помощью ICQ
По умолчанию
ничего. неотвечает. читай msdn
Нужно в цикле запускать нужное кол-во раз

Вообще на форуме куча примеров связанных с прогопоточностью. ВОт и возьми какойить один из них
 
Ответить с цитированием
Ответ
Страница 526 из 677 « Первая < 26426476516 522 523 524 525 526 527 528 529 530 536576626 > Последняя »



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ