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

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

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

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

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

354

Опции темы

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

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

#3531

07.05.2009, 17:09

~~F4R~~

Banned

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

Сообщений: 296

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

Репутация: 126

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

Цитата:

Сообщение от 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

я так понимаю это метод пузырей?

он неработает там неправильно показывает.

#3532

07.05.2009, 19:19

Balvan

Познающий

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

Сообщений: 70

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

Репутация: 6

Цитата:

Сообщение от F4R

он не работает там неправильно показывает.

что там может не правильно показывать? Пиши пжалуйста суть проблем поподробнее, а посты по информативнее!

#3533

07.05.2009, 23:11

desTiny

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

#3534

08.05.2009, 02:44

messagedb

Новичок

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

Сообщений: 18

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

Репутация: 4

напишите пример работы с файлами в Turbo Pascal 7 : 1й пример запись, 2й - чтение....... желательно с пояснениями какая функция что делает. Поставлю +сы.

#3535

08.05.2009, 04:55

RumShun

Постоянный

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

Сообщений: 380

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

Репутация: 149

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

Цитата:

messagedb

это есть в любом учебнике по паскалю, коих привеликое множество.
По сабжу: есть у когонибуть примеры работы c socks проксями в WinSock, все обыскал не могу найти ничего вразумительного, дошол до того начал изучать описания протоколов мучаюсь мучаюсь и пока ничего

#3536

08.05.2009, 05:35

Nightmarе

Познавший АНТИЧАТ

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

Сообщений: 1,189

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

Репутация: 1680

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

Возможно ли в тексте в memo определить какая там кодировка, досовская (консольная) или нормальная?
Не сконвертировать а именно определить.

#3537

08.05.2009, 08:59

KIR@PRO

Постоянный

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

Сообщений: 353

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

Репутация: 332

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

2Nightmarе
А это смотрел?
memo1.Font.Charset

или попробуй function GetTextFace(DC: HDC; Count: Integer; FaceName: PChar): Integer;

#3538

08.05.2009, 09:36

Balvan

Познающий

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

Сообщений: 70

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

Репутация: 6

Как лучше искать определённый символ в строке?! может можно обойтись без массивов?! Pascal

#3539

08.05.2009, 09:53

KIR@PRO

Постоянный

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

Сообщений: 353

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

Репутация: 332

тебе нужно найти все такие символы или только первый такой символ?
объясню:
есть строка: "коло оля даша"
ищем символ: "о"
результат поиска1: 2 - номер искомого символа в строке(это же делает функция pos() в Delphi, не использует массивы)
результат поиска2: 2,4,6 - номера всех найденных символов...(результат и есть массив)
результат поиска3: 3 - колличество найденных символов в строке....

какой из результатов нужен тебе?