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

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

Программа Формодел позволяет быстро создавать курсовые,дипломы для работы с базами данных с исходниками на Delphi. 




Официальный сайт

Лайкаем, предложения и замечания оставляйте в комментариях.

нужна помощь,не могу написать тест в делфи тест состоит из 30 вопросов,10 вопросов с 1 вариантом ответа,10 с несколькими ,5 вопросов на соответствие ,и 5 вопросов ответ словом ,тест должен располагаться максимум на 3х формах. кто может помогите

Я сам .NET программист и человек живущий слоганом "Есть у самого — поделись с другими" залил в разделе Видео, альбомы C#, HTML&CSS, ASP.NET (их там
больше, но признаюсь лень писать), есть и другие материалы о программировании. Видеоуроки и Видеокурсы от CyberBionic (КиберБионик) (EDU.CBSYSTEMATICS.COM). Как посещавший их курсы, весьма рекомендую! Тем более здесь-же (то есть в Центре CBSYSTEMATICS:) можно и сертификат получить.

Надеюсь, выложенное видео, будет полезным сообществу. Если нужны еще какие-то курсы - пишите!

В массиве записаны целые числа. Определить сумму элементов главной диагонали массива, больших 20.(Delphi 7)

привет всем! пришлите пожалуйста инструкцию и программный код и все что поможет создать сапера! только обезательно чтобы было сделано все через Delphi 3!

привет всем! пришлите пожалуйста инструкцию и программный код и все что поможет создать сапера! только обезательно чтобы было сделано все через Delphi 3!
помогите пожалуйста:)

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

мне надо срочно сделать сапера через делфи:( 
напишите как или киньте ссылку на урок пожалуйта:)

1)В массиве С(9) все элементы стоящие после наименьшего обнулить.
2)Дана матрица В(5,5).Найти количество элементов больших 5,среди элементов главной диагонали.

Те кто работает в сфере программирования  давайте обьединятся
Можете присылать мне свои адреса аськ с темой  delfi

.

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

ПАМАГИТЕ!
У меня уже башка не варит....
Нужно создать 2 нетипизированных файла. Всё в паскале.
Засунуть в исходный файл несколько чисел, вводимых пользователем и
копировать из первого файла во второй только чётные числа... 
Помогите пожалуйста, буду очень благодарен, заранее спасибо!

Где все *

я накчинающий программер так что не судите строго ;)
короче есть исходник почтовика :


procedure TForm1.Button1Click(Sender: TObject);
begin
if IdIPWatch1.LocalIP='127.0.0.1' then //если интернета нет
exit//тогда выходим
else //иначе
begin//начинаем >>>>
IDSMTP1.Host:=edit1.Text; //Сервер
IDSMTP1.Port:=strtoint(edit2.Text); //Порт
IDSMTP1.Username:=edit3.Text; //Логин 
IDSMTP1.Password:=edit4.Text; //Пароль disabledVer, winvista,win7
idmessage1.Body.Text:=Memo1.text;//Тема письма  
idmessage1.From.Text:=edit5.Text;//От кого
idmessage1.Recipients.EMailAddresses:=edit6.Text;//Кому 
idmessage1.Subject:=edit7.Text; //Заголовок письма
IDSMTP1.Connect(); //Соединяемся
if IdIPWatch1.LocalIP='127.0.0.1' then //если интернета нет
exit//тогда выходим
else //иначе
begin//начинаем >>>>
IF IDSMTP1.Connected=TRUE THEN //Проверяем удачное ли произошло соединение
IDSMTP1.Send(IDMESSAGE1); //Отправляем на сервер.
IDSMTP1.Disconnect; //закрываем соединение
showMessage('Письмо успешно отправленно');
end;
     end;
          end;

все работает успешно но есть маленькая загвоздка нужно послать письмо на нескольких людей
например загрузить список еmail-ов в COMBOBOX А ПОСЛЕ ОТПРАВКИ 1-ГО ПРОГА ПОДСТАВЛЯЛА 
2-ГО и так далее до конца списка. Заранее благодарен. Подмогите программеры.

Хе

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

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


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

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

Здравствуйте, мне требуется навесить условия на генерацию всех перестановок чисел от 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, занимает много памяти как с этим бороться, заранее спасибо!!!

Переписать текстовый файл в другой, вставляя после каждого слова число, равное длине слова.
 Решите пожалуйста?????

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

Так что от хорошего настроения и доброты душевной скидываю исходник
программы по управлению курсором и щелчками мыши на языке 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.

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

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

Здравствуйте! Подскажите пожалуйста как написать программу для нахождения НОК и НОД с постусловием. У меня все время вылазит ошибка "деление на ноль"!!(