ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
01.12.2008, 14:29
|
|
Участник форума
Регистрация: 02.07.2007
Сообщений: 189
Провел на форуме:
1843300
Репутация:
212
|
|
всем привет. Блин покажите на примере плиз многопоточную программу
на примере.
типа
поток 1
idpop31.Connect
idpop31.Disconnect
поток 2
idpop31.Connect
idpop31.Disconnect
поток 3
idpop31.Connect
idpop31.Disconnect
|
|
|
01.12.2008, 22:36
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от Freedom
всем привет. Блин покажите на примере плиз многопоточную программу
на примере.
типа
поток 1
idpop31.Connect
idpop31.Disconnect
поток 2
idpop31.Connect
idpop31.Disconnect
поток 3
idpop31.Connect
idpop31.Disconnect
Хм, не совсем правильно спрашиваешь помоему)...
Переформулируй.
МОжно сделать массив компонентов и юзать CreateThread, можно же через Класс TThread, можно через BeginThread(не советую...)
|
|
|
|
01.12.2008, 17:45
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
TThread class юзай
{
http://forum.vingrad.ru/forum/topic-60076.html - отличная статья
}
либо CreateThread()
{
http://msdn.microsoft.com/en-us/library/ms682453(VS.85).aspx
http://www.vsokovikov.narod.ru/New_MSDN_API/Process_thread/fn_createthread.htm
}
толку от многопоточности если они у тебя юзают 1 объект
так нельзя делать, либо его лочить, либо создавать объекты налету.
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
Последний раз редактировалось W!z@rD; 01.12.2008 в 17:47..
|
|
|
|
01.12.2008, 21:08
|
|
Познающий
Регистрация: 25.05.2007
Сообщений: 56
Провел на форуме:
154266
Репутация:
27
|
|
Парни, над написать программу и запустить ее на выполнение. Вычислить площадь круга, если известна его длина.
Очень прошу, нужна на завтра! Помогите плизззззз
|
|
|
|
01.12.2008, 22:17
|
|
Участник форума
Регистрация: 24.06.2007
Сообщений: 299
Провел на форуме:
467372
Репутация:
212
|
|
Парни, над написать программу и запустить ее на выполнение. Вычислить площадь круга, если известна его длина.
Очень прошу, нужна на завтра! Помогите плизззззз
Формула доболе простая - L=2PR
Отсюда следует: R=L/2P
А дальше: S:=PR^2
Какой язык?
|
|
|
|
01.12.2008, 22:37
|
|
Познавший АНТИЧАТ
Регистрация: 09.06.2006
Сообщений: 1,359
Провел на форуме:
5301021
Репутация:
1879
|
|
Длинна окружности=Pi*диаметр => диаметр=длина/Pi=>площадь=Pi*r^2
На делфе примерно (FloatToStr(Pi*(diam/2)*(diam/2)))) так...
|
|
|
|
01.12.2008, 22:44
|
|
Постоянный
Регистрация: 18.03.2008
Сообщений: 411
Провел на форуме:
7469280
Репутация:
2389
|
|
Площадь круга=pi*r^2
Длина окружности=2*pi*r
Скачать файл KRUG.exe
Паскаль:
Код:
PROGRAM Ce;
CONST
p1 = 3.14159;
VAR
dlina : Real;
Square, Len : Real;
BEGIN
WriteLn('dlina');
Read (dlina);
Len :=dlina /(2 * p1);
Square := p1 * sqr(Len);
WriteLn('s= ', Square :6:2);
readln;
END.
уже отпостил в болталке
Последний раз редактировалось Godfather Bulan; 01.12.2008 в 23:22..
|
|
|
|
01.12.2008, 22:59
|
|
Участник форума
Регистрация: 24.06.2007
Сообщений: 299
Провел на форуме:
467372
Репутация:
212
|
|
Впринцыпе тоже самое только покороче - написал на коленке:
program Ploschadj;
{$APPTYPE CONSOLE}
uses SysUtils, Math, System;
var i:integer; a:real;
begin
write('Naberi dlinu okruzhnosti : ');
readln(i);
a:=(i/2*pi);
writeln('Radius:', a);
a:=pi*a*a;
writeln('Ploschadj:', a);
writeln('Dla zaversinia nazhmi Enter!');
readln;
end.
|
|
|
|
01.12.2008, 23:07
|
|
Постоянный
Регистрация: 18.03.2008
Сообщений: 411
Провел на форуме:
7469280
Репутация:
2389
|
|
Впринцыпе тоже самое только покороче - написал на коленке:
program Ploschadj;
{$APPTYPE CONSOLE}
uses SysUtils, Math, System;
var i:integer; a:real;
begin
write('Naberi dlinu okruzhnosti : ');
readln(i);
a:=(i/2*pi);
writeln('Radius:', a);
a:=pi*a*a;
writeln('Ploschadj:', a);
writeln('Dla zaversinia nazhmi Enter!');
readln;
end.
лишнее:
{$APPTYPE CONSOLE}
uses SysUtils, Math, System;
|
|
|
|
03.12.2008, 02:58
|
|
Новичок
Регистрация: 19.11.2008
Сообщений: 6
Провел на форуме:
16517
Репутация:
1
|
|
сможит ли кто написать программку кпторая бы отпровляла IP на маил или сайт?
Программа должна отправлять IP посли каждой перезагрузки ПК.
Пинч не нужен.
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид