Создать класс Pair

[Izzie]

Добрый день, люди добрые, помогите, пожалуйста с курсовой. Нужно написать программу на Delphi, а я в этом не гений...

Создать класс Pair (пара целых чисел); определить методы изменения полей и операцию сложения
пар (а, b) + (с, d) = (а + b, с + d). Определить класс-наследник Long с полями: старшая часть числа и
младшая часть числа. Переопределить операцию сложения и определить методы умножения и вычитания.

P.S. можете помочь хотя бы разобраться в задании, например «определить методы изменения полей»

@темы: Delphi

---

[Yukari-sama]

Здравствуйте. Вот недавно увлеклась Ассемблером, но познания продвигаются тяжеловато.
Застряла конкретно на разборе этого примера:
Написать программу - экранную заставку. Программа должна гасить
экран (выводить некоторую фразу в произвольные части экрана). При
нажатии на любую клавишу экранная заставка гаснет.
Обработчик прерывания: клавиатура
Может есть у кого примерный программный код, чтобы поразбираться с ним?

---

[greetty]

Здравствуйте!

Подскажите, пожалуйста, CASE-средства, которые умеют генерировать хоть какой-то программный код из диаграммы активностей(activity) UML.

Заранее спасибо.

@темы: Вопрос

---

cpp

[Forumsdk]

1. Вводится произвольная строка русского текста, а также одна из букв русского алфавита. Подсчитать, какой процент слов в строке начинается на эту букву. Слова разделены пробелами.
2. Удалить из заданного текста фрагмент, заключенный в скобки.
3. Создать текстовый файл, в который записать в столбик несколько чисел (<20). Составить программу, которая подсчитывала бы количество чисел в файле, а затем дописывала бы в его конец столько случайных чисел, чтобы всего чисел оказалось 20. Кроме того, программа должна найти минимальное и максимальное число в полученном файле.

если кому не лень сделайте плз, просьба актуальна до полуночи (дальше собирусь с мужеством и сам сделаю). Просто мне очень сильно некогда вспоминать как в с++ со строками и файлами работать.

@темы: C++

---

Проверка сбалансированности бинарного дерева

[vadimpirov]

Подскажите пожалуйста алгоритм проверки сбалансированности бинарного дерева.

Есть простое бинарное дерево

Есть простое бинарное дерево

struct Node // узел бинарного списка
{
Node* Parent; // указатель на родителя
Node* Left; // указатель на лево
Node* Right; // указатель на право
void* Data; // данные


кто то советовал *проходим от корня к листьям, считаем длину пути до каждого листа. если максимальная разбежка в высотах = 1 то дерево сбалансирован*

получается, можно найти самую короткую ветку и самую длинную, потом их сравнить и если разница > 1 то дерево не сбалансировано.
так??

@темы: Вопрос, C++, Алгоритм

---

Сортировка в vba

[svadimv7]

Доброе время суток!
Вопрос - что я делаю не так?
А задача такая:
Средствами vba открыть текстовый файл (структура табличный вариант), проверить принадлежность кодовой страницы, отсортировать 1-ый столбец методом вставки по неубыванию, вывести отсортированные значения на рабочий лист Excel и в файл на диске.
У меня стопор на сортировке с выводом
Вот код.

Attribute VB_Name = "Main"

Type СтрЗнач
    Поле() As String 
End Type

Sub Таблица()
Dim TMP As String
Dim ВспМассив() As Integer
Dim Cимвол As String
Dim Cтрока As String
Dim ДлСтроки As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim КолСтрок As Integer
Dim Массив() As СтрЗнач
Dim КрСорт As Integer
Dim WSh As String
Dim InFile As String
Dim OutFile As String
Dim count_cp866 As Integer
Dim count_cp1251 As Integer

WSh = "Общий"
InFile = "d:\alg\КР_АльниАльнико.txt"
OutFile = "d:\alg\КР_АльниАльнико_out.txt"

Worksheets(WSh).Select
Open InFile For Input As #1
Open OutFile For Output As #2
КрСорт = Cells(1, 1) + 1
'чтение файла; определение кодировки заполнение массива
КолСтрок = 0
Do While Not EOF(1)
    Line Input #1, Cтрока
    If Len(Cтрока) > 0 Then
        КолСтрок = КолСтрок + 1
        If КолСтрок = 1 Then ОпрКод Cтрока, count_cp866, count_cp1251
        'Перекодировка строки cp866 -> cp1251 если требуется
        If count_cp866 > count_cp1251 Then str866to1251 Cтрока
        ReDim Preserve Массив(КолСтрок)
        'поиск символа табуляции и заполнение массива данными
        Ввод Cтрока, Массив(КолСтрок), WSh
    End If
    'ReDim Preserve Массив(КолСтрок)
Loop

'Заполнение вспомогательного массива
ReDim ВспМассив(КолСтрок)
For i = 1 To КолСтрок
    ВспМассив(i) = i
Next i

'сортировка массива методом простой вставки по неубыванию
'Sub Сортировка(Массив() As СтрЗнач, КрСорт As Integer, ВспМассив() As Integer, КолСтрок As Integer)
Call Сортировка(Массив(), ВспМассив(), КолСтрок)

'Вывод в таблицу Excel и текстовый файл
For i = 1 To КолСтрок
    Вывод Массив(ВспМассив(i)), i, WSh
Next i
Close #1, #2
End Sub
Attribute VB_Name = "Конвертирование"
Sub ОпрКод(Строка As String, count_cp866 As Integer, count_cp1251 As Integer)
Dim ДлСтроки As Integer
Dim КодСимвола As Integer
ДлСтроки = Len(Строка)
For i = 1 To ДлСтроки
    КодСимвола = Asc(Mid(Строка, i, 1))
    If ((КодСимвола > 128) And (КодСимвола < 168)) Or ((КодСимвола > 168) And (КодСимвола < 175)) Then count_cp866 = count_cp866 + 1
    If ((КодСимвола > 191) And (КодСимвола < 224)) Or ((КодСимвола > 241) And (КодСимвола < 256)) Or (КодСимвола = 184) Then count_cp1251 = count_cp1251 + 1
Next i
End Sub
Sub sym866to1251(Cимвол As String)
'Процедура конвертирования символа cp866 -> cp1251
Dim КодСимвола As Integer
КодСимвола = Asc(Cимвол)
'Проверка соответствия символа диапазону русских букв в cp866
Select Case КодСимвола
    Case 128 To 175: КодСимвола = КодСимвола + 64
    Case 224 To 239: КодСимвола = КодСимвола + 16
    Case 240: КодСимвола = 168
    Case 241: КодСимвола = 184
End Select
Cимвол = Chr(КодСимвола)
End Sub

Sub str866to1251(Строка As String)
'Процедура конвертирования строки cp866 -> cp1251
Dim КодСимвола As Integer
Dim i As Integer
Dim ДлСтроки As Integer
Dim Cимвол As String
ДлСтроки = Len(Строка)
For i = 1 To ДлСтроки
    Cимвол = Mid(Строка, i, 1)
    sym866to1251 Cимвол
    Строка = Left(Строка, i - 1) + Cимвол + Right(Строка, ДлСтроки - i)
Next i
End Sub
Attribute VB_Name = "Обмен"
Sub Ввод(Cтрока As String, Mas As СтрЗнач, WSh As String)
'Разделение строки на составляющие поля
Dim Символ As String
Dim ДлСтроки As Integer
Dim КодСимвола As Integer
Dim i As Integer
Dim Ind As Integer
Dim Слово As String

Worksheets(WSh).Select
ДлСтроки = Len(Cтрока)
Ind = 1
For i = 1 To ДлСтроки
    Символ = Mid(Cтрока, i, 1)
    КодСимвола = Asc(Символ)
    If КодСимвола = 9 Then
        ReDim Preserve Mas.Поле(Ind + 1)
        Mas.Поле(Ind) = Слово
        Ind = Ind + 1
        Слово = ""
        Else: Слово = Слово + Символ
    End If
ReDim Preserve Mas.Поле(Ind)
Mas.Поле(Ind) = Слово
Next i
End Sub
Sub Вывод(Mas As СтрЗнач, Ind As Integer, WSh As String)
Dim Строка As String
Dim k As Integer
Worksheets(WSh).Select
k = UBound(Mas.Поле)
Строка = ""
For i = 1 To k
    If (Ind > 2) And (i > 1) Then Cells(Ind + 1, i + 1) = CSng(Mas.Поле(i)) Else Cells(Ind + 1, i + 1) = Mas.Поле(i)
        Cтрока = Cтрока + Mas.Поле(i)
    If (i < k) And (i > 1) Then Cтрока = Cтрока + Chr(9)
Next i
Write #2, Cтрока

End Sub
Attribute VB_Name = "Сорт"
Sub Сортировка(Массив() As СтрЗнач, ВспМассив() As Integer, КолСтрок As Integer)
Worksheets("Общий").Select
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim TMP As Integer
For i = 2 To КолСтрок
    For j = 3 To i - 1
        If CSng(Массив(ВспМассив(j)).Поле(КрСорт)) > CSng(Массив(ВспМассив(i)).Поле(КрСорт)) Then
            TMP = ВспМассив(i)
            For k = i To j Step -1
                ВспМассив(k) = ВспМассив(k - 1)
            Next k
            ВспМассив(j) = TMP
        End If
    Next j
Next i
End Sub

Спасибо!!

@темы: Basic, Алгоритм

---

структуры в Perl

[~Marka]

Пытаюсь создать структуру похожую на дерево, где на верхнем уровне несколько переменных, и от каждой отходят несколько ветвей, от которых в свою очередь тоже отходят несколько ветвей. Причем несколько "родителей" могут относиться к одному и тому_же "листу".

Вопрос в том - какую лучше всего использовать для этого структуру данных в языке Perl?
Пока все мысли не идут дальше hash of arrays, в которых данные будут ключами к очередной hash of arrays.
Есть ли что проще или я изобретаю "велосипед", где он уже существует?

@темы: Вопрос, *nix, Perl, программирование,помощь

---

Преобразование HTML-PHP в PHP с запуском в командной строке.

[TERAB1T]

Есть программа по вычислению двойных интегралов (за что огромное спасибо mr Gray) на PHP. Надо ее преобразовать в PHP без хтмл, то есть с запуском из командной строки. Собственно вот сама программа paste.org.ru/?vga6h3 . Задание параметров в программе реализовано через eval, теперь в этом не нуждаюсь, все параметры вводятся в исходный код напрямую. При запуске программы из коммандной строки надо, чтоб сразу выводился только ответ по параметрам, введенным в код. Вот мои жалкие попытки самому преобразовать, но ничего не выходит paste.org.ru/?r61d8p

@темы: интеграл, Вопрос, PHP

---

Сайт с бесплатным хостингом.

[nvse]

Я в этом деле новичок,поэтому возник следущий вопрос:
Есть сайт hut.ru и там можно бесплатный сервер так сказать позаимствовать. Но вот в чём проблема,когда я зарегистрировал имя домена,логин и пароль и далее просто захотел зайти на свой сайт,то возникает какая-то ошибка error 403.shtml.Из-за чего это мне не понятно.Единственное,что я заменил исходный файл index.html на index.php.
Текст php-скрипта очень простой:
<?php
echo "Hello , World!";
?>
Непонятно вот,как от этой ошибки избавиться.Заранее спасибо.

@темы: PHP, Интернет

---

DELPHI

[IskanderLocator]

Здравствуйте все.
У меня такая проблемка(мож конечно окажется что я нуб нубом), но все же.

У меня есть программа на DELPHI
Вот ссылка на прогу
file.pro-street.us/download.php?file=56e168deec...
Вот ссылка на процедуру с кодом интересуюшую меня
paste.org.ru/?0d6lmp


Так в вот в чем заключается проблемка.
Когда я ввожу размер матрицы 2 на 2 и больше. Нажимаю нарисовать матрицу. Заполняю ее единичной и нахожу обратную мне надо найти погрешность расчетов(что и делает моя процедурка).
При нажатий показать точность выбивается ошибка 'Invalid floating point operation'. Ругается на строку 36(вставка кода).
При этом на другом компьютере ошибка не возникает... И это не первый раз ругательство при использований такого типа команды
edit1.Text:=FloatToStr(diag);


Подскажите в чем проблема.
Заранее спс=)

---

Метаболы 2D и OpenGL

[-=TurboRufus=-]

Здравствуйте!
По компьютерной графике дали задание реализовать в OpenGL такого рода программу.
В принципе алгоритмов рисования метаболов (двух- и трехмерных) в сети множество, но все 2D реализации сводятся к попиксельному раскрашиванию окна, что мне кажется не очень уместным в данном конкретном случае... Может, есть какие-нибудь другие способы рисования этих клякс?

P.S. С компьютерной графикой у меня не очень хорошо... Буду рада, если поможете разобраться.

В общем, что получается:
Писалось по аналогии с вот этим примером.
Предварительно отрисовывались круги, которые принадлежат отдельным метаболам, контур отрисован попиксельно:

скрин

То, что контур меня не устраивает.. ну, его убрать можно. А вот главное ("перемычки" при небольшой удаленности метаболов нет) не отрисовывается никак... (см. кляксу, обведенную красным)

Может, у кого-нибудь есть идеи, как это можно сделать?

@темы: Вопрос, Алгоритм

---

помогите пожалуйста

[Lacrime_Dolci]

Ребят помогите

не могу решить задачи на с++ ну дуб я в этом

помогите кому не сложно

на консоли или на форме не важно

1. в дувмерном массиве: Все
нечетные строки матрицы сдвинуть циклически на К элементов влево.

2. так же в двумерном: Добавить
К столбцов в начало матрицы

@темы: C++

---

подскажите книгу

[IskanderLocator]

Подскажите норм книгу для самостоятельного изучения

Администрирование сетей на базе Microsoft Windows
Web-дизайна
PHP



Может не одну книгу=)
Заранее спасибо

@темы: Вопрос

---

[[ . LuXuRy . ]]

Утро доброе,
может у кого есть краткий справочник по sql для accessа, а то я весь интернет перерыла, а нужного не нашла. Мне бы прям чтобы список всего с краткими пометками в одном файле.

---

[-=TurboRufus=-]

Доброго времени суток.
Господа, подскажите вот какую вещь.

Delphi 7.
Имеется форма, на которой в DBGrid выводится некая информация из базы, а также имеется поле с галочками для выбора, какие записи анализировать, а какие пропускать. Проблема в сохранении значения с галочкой без обращения к базе (то есть в БД эта информация храниться не должна).
Пытались создавать калькулируемое поле (fkCalculated), но то ли я не умею его готовить, то ли оно и правда нигде значения не хранит, но по логике получаются не галочки, а radiobuttons, то есть отмечается только одна запись.
В общем, есть ли какой-нибудь способ хранения записей, не обращаясь к базе?

@темы: Вопрос, Delphi

---

Задача с бинарным деревом

[vadimpirov]

Здравствуйте! Подскажите пожалуйста как реализовать следующее, можно только более-менее подробный алгоритм, код сам постараюсь написать

Условие

Вершина бинарного дерева содержит ключ, строку и два указателя на потомков. Написать функцию, которая подсчитывает число ветвей от корня до ближайшей вершины с заданным ключом и выводить часть дерева от вершины до данного элемента на экран.

@темы: Вопрос, C++, Алгоритм

---

Программа для вычисления кратных интегралов методом Монте-Карло

[TERAB1T]

Очень нуждаюсь в помощи по написанию программы для вычисления кратных интегралов методом Монте-Карло Язык - любой, кроме С# и паскаля. Цель такова - вводим параметры (подинтегральную функцию (для реализации чего, как я понял, нужен интерпритатор), пределы интегрирования), n (для точности), получаем число-ответ.

@темы: Алгоритм, Монте-Карло, численное интегрирование, PHP

---

Служба Windows на C#

[Aneeshka]

Здравствуйте. Впервые пишу службу, нужен совет по поводу передачи в нее параметров при старте. Параметров довольно много: полные имена нескольких файлов, строка связывания с АД, названия групп... Можно ли как-то прицепить к службе оконный интерфейс для ввода этих параметров?

Upd.: новая проблема... точнее две. Изначально было написано и отлажено приложение, теперь приходится переносить код в службу.
Происходить должно следующее: в OnStart() запускается backgroundWorker, внутри которого сервер ожидает запросов на подключение от клиентов. Для клиентов написан отдельный класс, создается экземпляр этого класса, там же через метод класса отправляются первые команды клиенту, затем - запускается отдельный поток для этого клиента и дальше прослушивание осуществляется уже в этом потоке. В приложении все работает, в службе - работает код в backgroundWorker'е, но как будто совсем не запускается поток клиента. Ошибок не выдает. Есть какие-то особенности при работе с потоками в службах?
Собственно, при попытке выявить конкретную ошибку возникает вторая проблема: не могу дебажить. Попытка Attach to process выдает: "The following module was built either with optimizations enabled or without debug information: <адрес exe-шника службы> To debug this module, change it's project build configuration to Debug mode." Гугл перелопачен, все предложенные решения опробованы - ноль.

Upd2.: проблемы решены) в Configuration Manager проверить, что в столбце Configuration для всех проектов стоит Debug, а в Build проставлены все галочки.

запись создана: 06.05.2010 в 09:14

@темы: Windows, Вопрос, C#

---

Delphi 7

[nvse]

Здравствуйте,вопрос простой.Вот кусок кода:
procedure TForm1.Button5Click(Sender: TObject);
Var
R:textfile;

begin
Assign( R,'D:/Massive.txt');

end;

У меня выдаётся ошибка для комманды Assign.Пишется про несоответсвие типов данных.
Почему так,не могу понять.В консольном режиме,если так писать,то ошибок не будет.
Заранее спасибо.

@темы: Delphi

---

[Chester7878]

ЗАДАНИЕ 2
Исследовать функцию на заданном отрезке:
1. найти первую и вторую производные,
2. найти корни,
3. определить экстремумы и точки перегиба,
4. построить график и отметить на нем все найденные точки.

(2*x^2*(x-3))^1/3