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

Сайт: 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!
помогите пожалуйста:)

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

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

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

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

.

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


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-ГО и так далее до конца списка. Заранее благодарен. Подмогите программеры.

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

Где все *

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

Хе

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


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; записи должны быть упорядочены по номерам мар¬шрутов; 
• вывод на экран информации о маршрутах, которые начинаются или кон¬чаются в пункте, название которого введено с клавиатуры; 
• если таких маршрутов нет, выдать на дисплей соответствующее сообще¬ние. 

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