Все игры
Обсуждения
Сортировать: по обновлениям | по дате | по рейтингу Отображать записи: Полный текст | Заголовки

Очень нужна помощь!!


Необходимо реализовать структуру данных. Элемент структуры: комплексное число.
Структура данных: дек.
нужно основные операции реализовать : добавить/удалить в левый/правый край списка, получить значение/ получить размер

Требования к реализации:
1 Для построения класса структуры данных запрещается использовании готовые структуры данных в выбранном для реализации языке программирования (языки Object Pascal и Delphi – классы TCollection, TList, TStack и др.).
2 Для реализации элемента структуры и самой структуры использовать классы с функциональностью, требуемой определением структуры данных.
3 Для размещения данных использовать механизм динамической памяти.
4 Организовать тестирование разработанных классов посредством консольного при-ложения. При выполнении каждой операции класса структуры осуществлять вывод состояния структуры данных на консоль.

Язык паскаль, среда Delphi 7

Предлагаю позырить проги

Увлекаюсь программированием в Delphi, вот сделал несколько прог, предлагаю позырить, заценить:
http://www.vlad-skakalin.narod.ru/soft
Отзывы пишите прям тут.
 
Кстати, скажу про себя сразу одну вещь.
Я больше люблю программировать сам, а не по заданию.
На свободные темы (полёт фантазии), и без ограничений по времени (не спеша).
Давка же портит всякий интерес к работе.
 
И ещё. В процессе разработки проги, я пытаюсь отыскивать и устранять любые ошибки прям по мере их появления. Считаю, что лучше сделать программу менее функциональной, но без ошибок, чем напичканную как кучей разных функций, так и ещё большей кучей ошибок. Поэтому все мои проги вроде чётко работают. Впрочем, если кто-то найдёт недоработку, то мне это будет очень интересно. Пишите прям тут.

настроение: Как выжатый лимон
хочется: Сам не знаю, чё хочу
слушаю: последний альбом КИНО

Вопрос для всех

Я вот набросал, так сказать, наброски программы Клавиатурный тренежер на Делфи... И думаю стоить ли его писать кагда вокруг их полным пално... а...???

Жду совета...

настроение: Задумчивое
хочется: -
слушаю: -

VPI или система визуального программирования.

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

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

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

vpi.hdd1.ru

Метки: Блок-Схема Обучение

I H, 20-12-2009 09:20 (ссылка)

События

Доброго времени суток всем! У меня такой вопрос! Пишу вот такую програмку...
program Server;
uses
Windows,
ScktComp;
var
Msg:TMsg;
  ServerSocket:TServerSocket;
begin
ServerSocket:=TServerSocket.Create(ServerSocket);
ServerSocket.Name:='Server';
ServerSocket.Port:=5124;
  ServerSocket.Active:=true;
while GetMessage(Msg,0,0,0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.
А теперь внимание вопрос! Как вызвать событие OnConnect????

люди памагите

Хочу научиться программировать на ооп.Умею программировать на turbo pascal
могу помоч если надо.Желаю развиваться дальше звоните мне на скайп steff7772 или
на аську 567721517 Планирую в скайпе создать чат программистов

Rinat Bashirov, 02-08-2009 13:39 (ссылка)

для death note!!!

Program all;
Var
a:integer;
begin
repeat
Writeln('PASTE NUMBER');
READLn(a)
until a<=50;
If  (a>=0) and (a<=25) then begin
Writeln('1');   readln;
end;
If  (a>=26) and (a<=50) then begin
Writeln('2');   readln;
end;
end.

настроение: Безразличное

TP

Учусь юзать TP.
Подскажите, как сделать второе; аналогичное тело проги.
(пример)
Program prog;
label
M1;
var
a: byte;
begin
M1;
Writeln('Paste number:');
Readln(a);
if not (a in [0..50]) then goto M1;
case a of
0..25: Writeln('1');
26..50: Writeln('2');
end;
end.

ilya ali, 22-07-2009 18:57 (ссылка)

canvas

CANVAS podskajite chto eto takoe?kak s nim rabotat?

Обзвон

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

Курсовые проекты...

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

настроение: Боевое
хочется: Кушать хочи целый день не кушал...
слушаю: Ничего я не слушаю колонки сгорели ;(

Массивы

Народ, помогите пожалуйста решить задачи и объясните, как сделать так, чтоб на экран выводились символы русской клавиатуры? Как использовать таблицу кодов ASCII? 


1) Дано массив А, элементами которого явл. n-действительные числа. Вывести элементы, которые удовлетворяют условие 2^i

Метки: массивы, циклические алгоритмы

помогите решить задачки если не сложно

  1. среди элементов массива А(10) найти наибольшее.
  2. найти наименьшее из положительных элементов массива А(10).
  3. найти наименьший положительный элемент среди элементов с четными номерами в массиве А(10).
  4. в массиве С(12) стоящего до наибольшего обнулить.
  5. в массиве С(9) все элементы стоящие после наименьшего обнулить.
  6. найти наименьшее среди элементов массива А(10) остальные обнулить.
  7. найти кол-во нулевых элементов в массиве В(12).
  8. даны 2 вектора А(10) и В(10) вычислить суммы и разности соотстветствующих элементов массивов. Результаты поместить в два вектора Х(10) и Y(10).
  9. в массиве С(13) определить кол-во элементов равных 13.
  10. вычислить среднее арифметическое положительных элементов массива Y(10), имеющие нечетные индексы. Если таких элементов нет, то вывести на экран признак «0».
  11. найти кол-во положительных чисел вещественного вектора Y(10).
  12. вычислить Z(j)=A(j)+B(j) где
                                A(j)=j если нечет и A(j)=j/2 если j=чет
                                 B(j)=j если нечет и B(j)=j³ если j=чет

Приглашение в сообщество

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

delphi

можете поделится если есть готовые простенькие задачки на делфи.заранее благодарна!!! 

Графика в Delphi (постепенное построение графика )?

вопрос такой как в 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;

Потоки...

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

настроение: Задумчивое
хочется: курить
слушаю: ХеХ...

В этой группе, возможно, есть записи, доступные только её участникам.
Чтобы их читать, Вам нужно вступить в группу