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

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

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

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

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

545

Опции темы

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

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

#5441

11.01.2010, 20:09

Radiator

Участник форума

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

Сообщений: 234

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

Репутация: 128

спасибо

#5442

11.01.2010, 21:19

>>serhio<<

Познающий

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

Сообщений: 40

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

Репутация: 0

сенкс

#5443

11.01.2010, 21:47

F&D

Участник форума

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

Сообщений: 208

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

Репутация: 9

Цитата:

Сообщение от ][yZ

Код:

procedure TForm1.KillProcess(PID: Cardinal);
var
  exitcode:UINT;
  x:THandle;
begin
  x:=Openprocess(PROCESS_TERMINATE,false,PID);
  if x <> 0 then begin
    try
      TerminateProcess(x, 0);
    finally
      CloseHandle(x);
    end;
  end;
end;

Огромное спасибо!

#5444

12.01.2010, 09:34

>>serhio<<

Познающий

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

Сообщений: 40

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

Репутация: 0

Пожалуйста помогите разобраться в задаче на pascale!!! Буду очень признателен!
Задача№1
Дана последовательность из 10 слов. Вывести слова, в которых первая буква входит в них один раз.
Задача№2
Составить список содержащий сведения об n студентов, для каждого учащегося указать: фамилию,идентификационный номер, дата выдачи свидетельство постановке на учетв налоговом органе,дата рождения,год поступления в университет,курс,группа,ко� �-во семестровобучения,оценки каждой сесии по всем семестрам. Информация о каждом студенте о форме и виде записи, совокупность записей объединить в массив.Вывести на экран список студентов, рекомендуемых к получению стипендии. Критерий – средний балл рекомендуемого студента должен быть выше значения, задаваемого с клавиатуры. N = 4.

#5445

12.01.2010, 12:50

patcher

Познающий

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

Сообщений: 81

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

Репутация: 24

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

>>serhio<<, что-то очень часто тебе нужно "помочь разобратся". Для того чтобы тебе помогли, нужно выложить свой код и сказать что именно не получается, а то у меня такое чувство, что мы тебе здесь лабу решаем) Если это так, то ты ошибся разделом---->>>>Работа .

P.S. сорри за оффтоп

#5446

12.01.2010, 16:54

0ldbi4

Постоянный

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

Сообщений: 327

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

Репутация: 69

Доброго времени суток, есть ли в дэлфи аналог eval(); как в яве,
Хочу чтобы пускалась программа после ввода в неё "пароля" она ксорила остальную часть и запускала её, как подобное можно реализовать?

#5447

12.01.2010, 19:04

Algol

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

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

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

Репутация: 0

Цитата:

Сообщение от 0ldbi4

Делфи - компилируемый язык, никаких eval() там быть не может.

#5448

12.01.2010, 20:48

kenny-cs

Новичок

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

Сообщений: 2

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

Репутация: 0

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

p.s. есть ли другие способы нахождения?
p.s.s delphi

Последний раз редактировалось kenny-cs; 12.01.2010 в 20:54..

#5449

12.01.2010, 23:00

DimkO

Новичок

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

Сообщений: 27

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

Репутация: 6

Цитата:

Сообщение от kenny-cs

за4ем тебе делить этот "наименьший ел" на все ел. массива?мне кажется что это чуть другое...
"Целое число, на которое одновременно делятся без остатка несколько чисел, называется их общим делителем."(Википедиа),мне кажется что нужно просто в цикле находить для каждого елемента массив делителей,после этого найти пересе4ение всех этих массивов,а там уже искать мин и макс значение.Если 4е не так предлагайте еще варианты.ИМХО

#5450

12.01.2010, 23:03

aleks07

Новичок

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

Сообщений: 7

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

Репутация: 0

Как сделать что бы при нажатии определенной комбинации клавиш компьютер "зависал"(то есть картинка на рабочем столе замирала курсор не двигался и по нажатию клавиш ничего не происходило), но по нажатию другой комбинации клавиш все становилось нормально???Мне сказали что с помощью делфи можно такое замутить.Вот подскажите как, желательно поподробней(тк я в этом деле пока что нуб)Заранее спасибо!!