ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
07.05.2009, 16:51
|
|
Познающий
Регистрация: 11.03.2009
Сообщений: 70
Провел на форуме:
251358
Репутация:
6
|
|
Сообщение от F4R
PASCAL
меется массив temp[1..7]
в него занесены значения температур за неделю... тоесть 7 штук...
вот и данные из массива нужно вывести в порядке возрастания!
моно что-то типо этого:
for i:=1 to N-1 do
for j:=i+1 to N do
if a[j]>a[i] then
begin
temp:=a[j];
a[j]:=a[i];
a[j+1]=temp;
end;
а вообще http://lmgtfy.com/?q=%D1%81%D0%BE%D1%80%D1%82%D0%B8%D1%80%D0%BE%D0%B 2%D0%BA%D0%B0+%D0%BC%D0%B0%D1%81%D1%81%D0%B8%D0%B2 %D0%B0+Pascal
Последний раз редактировалось Balvan; 07.05.2009 в 16:57..
|
|
|
07.05.2009, 17:09
|
|
Banned
Регистрация: 20.06.2008
Сообщений: 296
Провел на форуме:
1385078
Репутация:
126
|
|
Сообщение от Balvan
моно что-то типо этого:
for i:=1 to N-1 do
for j:=i+1 to N do
if a[j]>a[i] then
begin
temp:=a[j];
a[j]:=a[i];
a[j+1]=temp;
end;
а вообще http://lmgtfy.com/?q=%D1%81%D0%BE%D1%80%D1%82%D0%B8%D1%80%D0%BE%D0%B 2%D0%BA%D0%B0+%D0%BC%D0%B0%D1%81%D1%81%D0%B8%D0%B2 %D0%B0+Pascal
я так понимаю это метод пузырей?
он неработает там неправильно показывает.
|
|
|
|
07.05.2009, 19:19
|
|
Познающий
Регистрация: 11.03.2009
Сообщений: 70
Провел на форуме:
251358
Репутация:
6
|
|
Сообщение от F4R
он не работает там неправильно показывает.
что там может не правильно показывать? Пиши пжалуйста суть проблем поподробнее, а посты по информативнее! 
|
|
|
|
08.05.2009, 21:15
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
2 Nightmarе вообще определить можно или методом тыка кодирую и сравнивая.
типа
s=текст
s2=DOS2WIN(s);
if s=s2 then текст в DOS кодировке в противном случае чтото другое.
Или анализировать диапазон символов русского языка.
АБВГДЕ абвгде выглдяит как
WIN: C0 C1 C2 C3 C4 C5 20 E0 E1 E2 E3 E4 E5
DOS: 80 81 82 83 84 85 20 A0 A1 A2 A3 A4 A5
как видишь русский буквы в WIN идут с адресов C0
А в DOS с 80
Так что можешь попробовать сложить все символы с кодами > 7F и разделить число на кол-во этих символов. И получишь соотношение, чем оно ближе к 80 тем более вероятне что это DOS. но и собственно говоря наоборот если ближе к FF то WIN
|
|
|
|
07.05.2009, 23:11
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Код:
for i:=1 to N-1 do
for j:=i+1 to N do
if a[j]<a[i] then
begin
temp:=a[j];
a[j]:=a[i];
a[i]=temp;
end;
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
08.05.2009, 02:44
|
|
Новичок
Регистрация: 17.04.2009
Сообщений: 18
Провел на форуме:
23649
Репутация:
4
|
|
напишите пример работы с файлами в Turbo Pascal 7 : 1й пример запись, 2й - чтение....... желательно с пояснениями какая функция что делает. Поставлю +сы.
|
|
|
|
08.05.2009, 04:55
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
Провел на форуме:
1249808
Репутация:
149
|
|
это есть в любом учебнике по паскалю, коих привеликое множество.
По сабжу: есть у когонибуть примеры работы c socks проксями в WinSock, все обыскал не могу найти ничего вразумительного, дошол до того начал изучать описания протоколов мучаюсь мучаюсь и пока ничего 
|
|
|
|
08.05.2009, 05:35
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Возможно ли в тексте в memo определить какая там кодировка, досовская (консольная) или нормальная?
Не сконвертировать а именно определить.
|
|
|
|
08.05.2009, 08:59
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
2Nightmarе
А это смотрел?
memo1.Font.Charset
или попробуй function GetTextFace(DC: HDC; Count: Integer; FaceName: PChar): Integer;
|
|
|
|
08.05.2009, 16:19
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Сообщение от KIR@PRO
2Nightmarе
А это смотрел?
memo1.Font.Charset
Смотрел.
Это проверка кодировки у самого объекта memo, но никак не текста в нём.
Сообщение от KIR@PRO
или попробуй function GetTextFace(DC: HDC; Count: Integer; FaceName: PChar): Integer;
А вот эту функцию как правильно вызвать?
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид