УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 526 из 677

526

Опции темы

Поиск в этой теме

Опции просмотра

#5251

17.12.2009, 23:48

patcher

Познающий

Регистрация: 15.12.2009

Сообщений: 81

Провел на форуме:
393444

Репутация: 24

Отправить сообщение для patcher с помощью ICQ

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
Нужно в цикле запускать нужное кол-во раз

Вообще на форуме куча примеров связанных с прогопоточностью. ВОт и возьми какойить один из них