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

(m+n)/z*(m-n)/z=k
z,m,n>9999999999
найти значение "k"

Хочу проверить свои навыки по программированию на Делфи...
Если вам задали курсовые проекты по Делфи то кидайте задания на odious86@mail.ru попробую сделать получиться вам на халяву курсовая работа а мне повышение самооценки...
Сделка выгодная пишите...

Привет! Как позвонить на домашний или мобильный телефон и проиграть
wav-файл средствами Делфи? Номера телефонов находятся в базе Dbase.
Поставлена задача по вечерам (когда все дома) запустить прогу с проигрыванием заранее записаного wav файла.В этом файле простое оповещение абонентов о их задолженности по оплате комунальных услуг.

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

Здравствуйте, мне требуется навесить условия на генерацию всех перестановок чисел от 1 до n, n<101, n:integer; программа на генерацию:
Код Pascal

{ генерация перестановок }
uses crt;
const n = 4; { количество элементов в перестановке}
var a:array[1..n] of integer;
    j:integer;{счетчик}
    kol : longint;{количество перестановок}
procedure generate (l,r:integer;var k:longint);
var i,v:integer;
begin
if (l=r) then
  begin
    for i:=1 to n do write(a[i],' ');
    writeln;
    k:=k+1;
  end
else
  begin
    for i := l to r do
      begin
        v:=a[l]; a[l]:=a[i]; a[i]:=v; {обмен a[i],a[l]}
        generate(l+1,r,k); {вызов новой генерации}
        v:=a[l]; a[l]:=a[i]; a[i]:=v; {обмен a[i],a[l]}
      end;
  end;
end;
begin
for j := 1 to N do
A[j]:=j-1;
generate( 1,n,kol);
writeln('kol=',kol);
readln
end.условие q1 и q2 не должны стоять рядом(количество q варьируется), на пример
при задании n=4, q1=1,q2=2, должно вывести

1 3 2 4
1 3 4 2
1 4 3 2
1 4 2 3
2 3 1 4
2 3 4 1
2 4 3 1
2 4 1 3
3 2 4 1
3 1 4 2
4 2 3 1
4 1 3 2
kol=12

код можно и на Делфи и еще проблема начиная при n=13, занимает много памяти как с этим бороться, заранее спасибо!!!

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

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

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

Система заточена на работу с блок-схемами.
-тупо построение блок схем(типа визео тока все само рисуется выравнивается и тп)
-генерация по коду (Pascal) блок-схем понадобится студентам и школьникам
-построение блок схемы на конкретном языке (паскаль например) возможность ее откомпилировать(да откомпилировать блок схему) сгенерировать код и получить готовый exe-шник

В основном будет полезна для учащихся и педагогов. Для учителей важно отметить что система работает с бд то есть все работы учеников будут в одном месте.

Распространяется фриварно.

vpi.hdd1.ru

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

Есть ли прогеры решавшие задачи по разработке алгоритмов сжатия данных без потерь. Я на данный момент стараюсь добиться более эффективного чем RAR сжатия графических данных без потерь формат BMP.

Сайт: http://dedicatet.com
ПРИВАТНАЯ группа -ЧАТ в Телеграм! https://t.me/joinchat/Dn6-G... Все о взломах в интернете, МАЙНИНГ НА ДЕДИКАХ, взлом сайтов, серверов ПК, трояны, стилеры и т. д. Бесплатные раздачи дедиков, приватная инфо.,схемы заработков в сети. Магазин ДЕДИКОВ, скрытый майнер и др. софт https://t.me/joinchat/AAAAA...

Бывают моменты когда ломается мышь. И либо не охото, либо нет времени купить мышь.

Так что от хорошего настроения и доброты душевной скидываю исходник
программы по управлению курсором и щелчками мыши на языке Delphi. Может
кому то нужно как мне иногда.

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Button5: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure ComboBox2Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  x,y:integer;                            // Объявляем глобальные переменные



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

form1.Left:=strtoint(edit1.Text);   // Кнопка при нажатии переносит форму по

form1.Top:=strtoint(edit2.Text);    // указанным координатам в комбомассиве

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0);   // Функция зажатия левой клавиши мыши

mouse_event(mouseeventf_leftup,0,0,0,0);     // Функция разжатия левой клавиши мыши

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0); // Повторяем предыдущую функцию нажатия и разжатия мыши

mouse_event(mouseeventf_leftup,0,0,0,0);   // чтобы мы могли выделить объект

mouse_event(mouseeventf_rightdown,0,0,0,0); // Далее зажимаем правую клавишу мыши

mouse_event(mouseeventf_rightup,0,0,0,0);   // Далее разжимаем правую клавишу мыши

end;



procedure TForm1.Button4Click(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // переводим в числовое значение строку

y:=strtoint(combobox2.Text);   // переводим в числовое значение строку

setcursorpos(x,y);             // Переводим курсор в указанное место

mouse_event(mouseeventf_leftdown,0,0,0,0); // Если мы повторим дважды функцию нажатия

mouse_event(mouseeventf_leftup,0,0,0,0);   // и разжатия клавиши мыши, то у нас получится

mouse_event(mouseeventf_leftdown,0,0,0,0); // Двойной щелчек мыши

mouse_event(mouseeventf_leftup,0,0,0,0);

end;



procedure TForm1.Button5Click(Sender: TObject);

begin

form1.Close;

end;



procedure TForm1.ComboBox1Change(Sender: TObject);

begin

x:=strtoint(combobox1.Text);   // При изменении комбобокса меняется положение курсора по х

y:=strtoint(combobox2.Text);

setcursorpos(x,y);             // Переводим курсор в указанное место

end;



procedure TForm1.ComboBox2Change(Sender: TObject);

begin

x:=strtoint(combobox1.Text);

y:=strtoint(combobox2.Text);   // При изменении комбобокса меняется положение курсора по y

setcursorpos(x,y);             // Переводим курсор в указанное место

end;



procedure TForm1.FormCreate(Sender: TObject);

var i,j:integer;

begin

for i := 1 to 3000 do              // создаем массив цифр

combobox1.Items.Add(inttostr(i));  // Добовляем цифры в комбобокс

for j := 1 to 3000 do              // создаем массив цифр

combobox2.Items.Add(inttostr(j));  // Добовляем цифры в комбобокс

form1.Left:=0;

form1.Top:=0;

form1.Color:=rgb(100,100,255);

end;



end.

Приглашаю в новое сообщество посвященное программирование. Сообщество было создано недавно и поэтому надеюсь на вашу помощь в его развитии
 
http://my.mail.ru/community/klub_programmist/

Delphi.генератор случайных чисел Random(100).Методом Шелли отсортировать по возрастанию эти 100 чисел.Должны быть графики чисел до и после отсортировки.

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

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

1) Описать запись с именем MARSH, содержащую следующие поля: 
• BEGST — название начального пункта маршрута; 
• TERM — название конечного пункта маршрута; 
• NUMER — номер маршрута.; 

2. Написать программу, выполняющую следующие действия: 
• ввод с клавиатуры данных в массив TRAFIC, состоящий из восьми эле¬ментов типа MARSH; записи должны быть упорядочены по номерам мар¬шрутов; 
• вывод на экран информации о маршрутах, которые начинаются или кон¬чаются в пункте, название которого введено с клавиатуры; 
• если таких маршрутов нет, выдать на дисплей соответствующее сообще¬ние. 

Ребята помогите решить!!


1) Дан массив размера N. Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их возрастания.

 2) Дан целочисленный массив A размера N,являющийся перестановкой. Найти количество инверсий в данной перестановке,т.е. таких пар Ai И Aj элементов в которых большее число находится слева от меньшего:Ai>Aj при iL) и целочисленный массив размера N. Заменить каждую серию массива, длина которой меньше L, на один элемент с нулевым значением

Как создать второй поток для Таймера? Если знаете подскажите... Спасибо..

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

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

вопрос такой как в Delphi создать график который строился бы постепенно
что добавить что изменить ,компонент Chart
procedure TForm1.tmrGoTimer(Sender: TObject);
var
  x,v,y: integer;
begin
case ComboBox2.ItemIndex of
    0: v:=20;
    1: v:=25;
    2: v:=30;
  else v:= 15;
  end;
  case ComboBox1.ItemIndex of
    0: y:=200;
    1: y:=300;
    2: y:=400;
  else y:=100;
  end;
  crtGraph.Series[0].Clear;
  for x:=0 to dx do
  crtGraph.Series[0].AddXY(x,0);
for x:=dx to 600 do
  crtGraph.Series[0].AddXY(x,exp(-x/y)*sin((x-fi)/v));
    fi := fi+trbFaza.Position;
    end;
procedure TForm1.FormCreate(Sender: TObject);
  begin
    fi:=0;
      end;

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