Kerenger Bros,
27-05-2011 12:25
(ссылка)
Почему тут так тихо , народу дофига а кажется что 0 ?
Хе
настроение: Боевое
Андрей Слепцов,
17-04-2008 04:57
(ссылка)
Вопрос для всех
Я вот набросал, так сказать, наброски программы Клавиатурный тренежер на Делфи... И думаю стоить ли его писать кагда вокруг их полным пално... а...???
Жду совета...
Жду совета...
настроение: Задумчивое
хочется: -
слушаю: -
срочно помогите пожылуйста
привет всем! пришлите пожалуйста инструкцию и программный код и все что поможет создать сапера! только обезательно чтобы было сделано все через Delphi 3!
Нужна помошь в поиске информации...
Помогите нати источник с чего можно было написать контрольную вот по этой теме -"Сформулируйте методы и принципы одноуровневой
зашиты для ОС."
зашиты для ОС."
Кира Савельева,
13-05-2010 13:41
(ссылка)
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Помогите решить несколько задач)
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
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
Вопрос по TThread.
Здравствуйте. Есть вопрос, может кто сталкивался. Есть поток TThread в программе, работающий с бд. С помощью Synchronize на главную форму из него передается информация о ходе выполнения. В этом же модуле присутствует еще один класс для работы с CSV файлами. При его работе тоже надо передать информацию на главную форму. Но для этого классаметод Synchronize не работает, так как это обычный класс, а не TThread. Как корректно передать данные из него на главную форму? Можно ли вызвать метод потока? Спасибо всем кто откликнется.
Александр Третьяченко,
16-07-2011 13:01
(ссылка)
помогите с прогой
я накчинающий программер так что не судите строго ;)
короче есть исходник почтовика :
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-ГО и так далее до конца списка. Заранее благодарен. Подмогите программеры.
короче есть исходник почтовика :
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-ГО и так далее до конца списка. Заранее благодарен. Подмогите программеры.
Метки: 556276445@mail.ru
а вот такое по Паскалю знаете?
базы данных «Автопарк»
Марка автомобиля Модель Цвет Год выпуска Аварийность
Запросы:
- вывести сведения об автомобилях заданной марки, которые находятся не в аварийном состоянии;
- выведите элементы списка, у которых цвет начинается с одной из двух заданных букв;
- отсортируйте список автомобилей заданной модели по возрастанию года выпуска.
вот такое кто может сочинить?..а то ппц какой то а не база...
Марка автомобиля Модель Цвет Год выпуска Аварийность
Запросы:
- вывести сведения об автомобилях заданной марки, которые находятся не в аварийном состоянии;
- выведите элементы списка, у которых цвет начинается с одной из двух заданных букв;
- отсортируйте список автомобилей заданной модели по возрастанию года выпуска.
вот такое кто может сочинить?..а то ппц какой то а не база...
срочно помогите пожылуйста
привет всем! пришлите пожалуйста инструкцию и программный код и все что поможет создать сапера! только обезательно чтобы было сделано все через Delphi 3!
помогите пожалуйста:)
Билл Гейтс,
29-01-2012 14:34
(ссылка)
Дайте свои аське люди давайте обьединятся
Те кто работает в сфере программирования давайте обьединятся
Можете присылать мне свои адреса аськ с темой delfi
Можете присылать мне свои адреса аськ с темой delfi
ПОМОГИТЕ ПОЖАЛУЙСТА!СРОЧНО!
Помогите пожалуйста решить несколько задач!
1)Задав одномерный массив из n вещественных или целых
элементов реализовать обработку массива, как указано в варианте. Длина массива N задается пользователем. Исходные
данные задать самостоятельно, учитывая формат элементов массива A.
Исходные данные должны вводиться с проверкой на область допустимых
значений. Тип результата определяется из контекста.
Вариант 11:
1) найти номер минимального по модулю элемента массива;
2) сумму модулей элементов массива, расположенных после
первого отрицательного элемента.
Сжать массив, удалив из него элементы, расположенные в
интервале [a,b].
2)Используя циклические структуры «for», «do-while», «repeat-until» решить задачу,
предложенную в соответствии с вариантом.
Организация вложенных циклов.
Варианты приведены ниже.
вариант 11:
An=(n!)/((2*n-1)!n^n)
1)Задав одномерный массив из n вещественных или целых
элементов реализовать обработку массива, как указано в варианте. Длина массива N задается пользователем. Исходные
данные задать самостоятельно, учитывая формат элементов массива A.
Исходные данные должны вводиться с проверкой на область допустимых
значений. Тип результата определяется из контекста.
Вариант 11:
1) найти номер минимального по модулю элемента массива;
2) сумму модулей элементов массива, расположенных после
первого отрицательного элемента.
Сжать массив, удалив из него элементы, расположенные в
интервале [a,b].
2)Используя циклические структуры «for», «do-while», «repeat-until» решить задачу,
предложенную в соответствии с вариантом.
Организация вложенных циклов.
Варианты приведены ниже.
вариант 11:
An=(n!)/((2*n-1)!n^n)
настроение: Сумасшедшее
Нужна помощь. Пожалуйста. :)
мне необходимо решить задачки по программированию на паскале, среда дельфи. я щас
пытаюсь что то сама сделать, немножко получается, но не совсем. никак
не могу понять как используются процедуры и функции.
задачки такие: дана целочисленная квадратная матрица. определить,
1 задача. произведение элементов в тех строках, которые не содержат отрицательных элементов (оформить в виде функции)
2 задача. максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы (оформить в виде процедуры)
если кто-нибудь сможет или решиться:) помочь, могу выслать свои черновики. заранее спасибо, буду очень благодарна.
DELPHI7
Здравствуйте! Подскажите пожалуйста как написать программу для нахождения НОК и НОД с постусловием. У меня все время вылазит ошибка "деление на ноль"!!(
В этой группе, возможно, есть записи, доступные только её участникам.
Чтобы их читать, Вам нужно вступить в группу
Чтобы их читать, Вам нужно вступить в группу