ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
25.04.2009, 11:10
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Balvan наверное логично было бы задать вопрос в той теме, к которой код относится.
|
|
|
25.04.2009, 11:19
|
|
Познающий
Регистрация: 11.03.2009
Сообщений: 70
Провел на форуме:
251358
Репутация:
6
|
|
И ещё один вопрос:
Как подсчитать поличество цифр в числе?
пример на Си
Код:
{
int digit,i=0;
cout<<"chislo:\n";
cin>>digit;
for(;digit>0;i++){
digit/=10;
}
cout<<" V dannom chisle "<<i<<" cifr\n\n";
cin.get();
cin.get();
}
Ну и также как и прошлый надо на Делфях! |
|
|
|
25.04.2009, 12:00
|
|
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083
Репутация:
270
|
|
Как подсчитать поличество цифр в числе?
Да хотя бы так =)
Код:
var
digit: Integer;
...
writeln('Всего: ', Length(IntToStr(digit)));
|
|
|
|
25.04.2009, 12:24
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
держи , написал с проверкой 
PHP код:
program digit;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
str: string;
i: Integer;
digits: set of '0'..'9';
begin
try
digits := ['0'..'9'];
Readln(str);
for i := 1 to Length(str) -1 do
begin
if str[i] in digits then
begin
end
else
begin
Writeln('Error : ' + str[i]);
Readln;
Halt;
end;
end;
Writeln(Length(str));
readln;
{ TODO -oUser -cConsole Main : Insert code here }
except
on E: Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.
|
|
|
|
25.04.2009, 13:01
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
Сообщение от Nightmarе
к сожалению это не то совсем.
Дело в том, что там помимо интернет подключения есть другие и диапазоны 192.168.0.0-192.168.255.255 там и так везде понатыканны по умолчанию.
По каким параметрам сделать точный парсинг я не знаю, можно через инет узнать IP но крайне нежелательно, может быть есть точные параметры для парсинга?
это и есть точные параметры для парсинга
|
|
|
|
25.04.2009, 13:02
|
|
Познающий
Регистрация: 11.03.2009
Сообщений: 70
Провел на форуме:
251358
Репутация:
6
|
|
Up! =)
Подаскажите пожалуйста как перевернуть число?
Т.е. 21=12, 235=532 и т.п.
Пример на Си:
Код:
{
int digit,sum;
cout<<"chislo:\n";
cin>>digit;
cout<<"chislo naoborot = ";
while(digit>0){
sum=digit%10;
digit/=10;
cout<<sum;
}
cin.get();
cin.get();
}
А надо на Делфях! |
|
|
|
25.04.2009, 13:09
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
делать было нечего, держи)
PHP код:
program turnNumber;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
number: Integer;
str: string;
i: shortint;
digits: set of '0'..'9';
begin
try
digits := ['0'..'9'];
Readln(str);
for i := 1 to Length(str) -1 do
begin
if str[i] in digits then
begin
end
else
begin
Writeln('Error : ' + str[i]);
Readln;
Halt;
end;
end;
number := StrToInt(str);
while (number > 0) do
begin
write(number mod 10);
number := number div 10;
end;
Readln;
{ TODO -oUser -cConsole Main : Insert code here }
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.
Последний раз редактировалось LEE_ROY; 25.04.2009 в 13:12..
|
|
|
|
25.04.2009, 13:25
|
|
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083
Репутация:
270
|
|
Подаскажите пожалуйста как перевернуть число?
Опять таки так =)
Код:
var
num: integer;
...
num:=21;
WriteLn('Число:', ReverseString(IntToStr(num))); //Выведет 12
Последний раз редактировалось art2222; 25.04.2009 в 13:34..
|
|
|
|
25.04.2009, 14:38
|
|
Reservists Of Antichat - Level 6
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
<offtop>
ппц пошли вопросы. Еще чуть чуть и можно будет выбрав все посты с этой темы и "Студентам с лабами сюда" и можно уже выпускать решебник задач по информатике
</offtop>
<to_admin_and_moder>
Создайле лучше прикрепленную (закрытую) тему - Ответы на задача.
И периодически перекидывайте туда посты с этих темы в виде типа: Здание - Решение
А отсюда это уже можно будет удалять.
</to_admin_and_moder>
|
|
|
|
25.04.2009, 16:20
|
|
Banned
Регистрация: 26.01.2009
Сообщений: 16
Провел на форуме:
1639681
Репутация:
14
|
|
как опредилить на каком диске стоит windows?
Желательно с примером.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
