ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
01.12.2008, 22:17
|
|
Участник форума
Регистрация: 24.06.2007
Сообщений: 299
Провел на форуме:
467372
Репутация:
212
|
|
Парни, над написать программу и запустить ее на выполнение. Вычислить площадь круга, если известна его длина.
Очень прошу, нужна на завтра! Помогите плизззззз
Формула доболе простая - L=2PR
Отсюда следует: R=L/2P
А дальше: S:=PR^2
Какой язык?
|
|
|
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, 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 посли каждой перезагрузки ПК.
Пинч не нужен.
|
|
|
|
03.12.2008, 03:22
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от Andrej1928
сможит ли кто написать программку кпторая бы отпровляла IP на маил или сайт?
Программа должна отправлять IP посли каждой перезагрузки ПК.
Пинч не нужен.
А что если сделать на гейт???
Пример:
твоя страница sait.com/myscript.php
содержание:
myscript.php:
(тут пример, допишешь скрипт сам.)
Код:
if ($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"] != ""){
$IP = $HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"];
$proxyip = $HTTP_SERVER_VARS["REMOTE_ADDR"];
}else{
$IP = $HTTP_SERVER_VARS["REMOTE_ADDR"];
}
или же проще:
Код:
$userIP = $_SERVER["REMOTE_ADDR"];
И просто get'ом набрать адрес: "sait.com/myscript.php"
усе 
Код:
uses winsock;
var
get:string;
s:TSOCKET;
addr:sockaddr_in;
Begin
get:='';// здесь гет запрос:)
s:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
FillChar(addr, SizeOf(sockaddr_in), 0);
addr.sin_family:=AF_Inet;
addr.sin_port:=htons(80);
addr.sin_addr.S_addr:=inet_addr(IP хоста) ;
Connect(S,addr,SizeOf(TSockAddr));
Send(...) ;//GET запрос.
application.processmessage;
Shutdown(S,SD_Send);
closesocket(s);
End;
Все на скорую руку, я просто показал как работать)
|
|
|
|
03.12.2008, 13:56
|
|
Новичок
Регистрация: 19.11.2008
Сообщений: 6
Провел на форуме:
16517
Репутация:
1
|
|
Так выходит жертву будет постояна выкидевать на мой сайт со скриптом да? а если она поменяет домашнию страницу то тю тю нет мне IP или я не так понил?
Если не так то раскожите пошагово если возмошна буду очень блогодарин спосиба все зарание.
|
|
|
|
03.12.2008, 21:46
|
|
Участник форума
Регистрация: 26.11.2007
Сообщений: 266
Провел на форуме:
3412198
Репутация:
341
|
|
Плиз подкинте инфу по созданию билдера
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [Dezzter]](/avatars/avatar45529.jpg?975453){kind=avatar}
Похожие темы
Линейный вид
