Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Хочу изучить дельфи, очень хочу....=) 
V
    Опции темы
SneG0K
  Дата 5.12.2007, 20:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Я вот тут хочу получше изучить дельфи smile  Но за что взяться  я не знаю! надоело писать уже калькуляторы smile  Люди помогите! Давайте вы мне будете давать задания, а я когда решу их буду писать код! А вы будете прверять так или не так!!! smile 

P.S. сплагиатил с раздела php smile
P.S ->  мне просто нужно, иметь какойто стимул! smile 

Это сообщение отредактировал(а) SneG0K - 5.12.2007, 21:01
PM WWW Skype   Вверх
Alexeis
Дата 5.12.2007, 21:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459
типичные примеры. Графический редактор, текстовый


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
SneG0K
Дата 5.12.2007, 21:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Цитата(Alexeis @ 5.12.2007,  20:13)
типичные примеры. Графический редактор, текстовый

Всмысле? Чето не понял!!!

Добавлено через 4 минуты и 39 секунд
Извиняюсь за оффтоп! Просто не хотел создавать новую тему=)

Как сделать так, чтобы компонент TMemo блокировался! Ну чтоб туда ниче нельзя было писать!!! И еще как сохранять текст из TMemo d текстовый файл???
PM WWW Skype   Вверх
Exai1e
Дата 5.12.2007, 21:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: 2
Всего: 30
SneG0K, 

Цитата(SneG0K @  5.12.2007,  22:15 Найти цитируемый пост)
Как сделать так, чтобы компонент TMemo блокировался! Ну чтоб туда ниче нельзя было писать!!!

Код

procedure TForm1.FormShow(Sender: TObject);
begin
  Memo1.ReadOnly := true;
end;



Цитата(SneG0K @  5.12.2007,  22:15 Найти цитируемый пост)
И еще как сохранять текст из TMemo d текстовый файл??? 

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.SaveToFile('H:\MyFile.txt');
end;



--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
SneG0K
Дата 5.12.2007, 21:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Цитата(Exai1e @ 5.12.2007,  20:30)
SneG0K, 

Цитата(SneG0K @  5.12.2007,  22:15 Найти цитируемый пост)
Как сделать так, чтобы компонент TMemo блокировался! Ну чтоб туда ниче нельзя было писать!!!

Код

procedure TForm1.FormShow(Sender: TObject);
begin
  Memo1.ReadOnly := true;
end;



Цитата(SneG0K @  5.12.2007,  22:15 Найти цитируемый пост)
И еще как сохранять текст из TMemo d текстовый файл??? 

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.SaveToFile('H:\MyFile.txt');
end;

С этим все понятно=) А по поводу задания мне?.... ктонить дайте....
PM WWW Skype   Вверх
Exai1e
Дата 5.12.2007, 21:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: 2
Всего: 30
SneG0K, начни с текстового редактора, чтобы понять как работатть со строками, файлами (сохранение, загрузка) потом ченить для работы с графикой напиши, опять же чтобы вникнуть во все это дело, далее базы, сети. Да и вообще не плохо было бы почитать хорошую книгу

Добавлено через 36 секунд
Цитата(SneG0K @  5.12.2007,  22:32 Найти цитируемый пост)
С этим все понятно=) А по поводу задания мне?.... ктонить дайте.... 

Бери любой вопрос с форума и решай ;) :-P


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
SneG0K
Дата 5.12.2007, 21:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
А книжки то весят 12 и 8 мб! А у меня инет супер скоростной! Один метр качает минут 15!!!=)  По поводу книжек я сейчас учу Фленова "Дельфи глазами хакера" - там оч хорошее описание!!! А про блокнот понял!!!Щас попробую создать чтото типа аналога notepad в ХРене!=)))
PM WWW Skype   Вверх
Lexicss
Дата 5.12.2007, 22:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 16.8.2006
Где: Беларусь, Минск

Репутация: нет
Всего: 1
Слегка забавная темка smile
SneG0K, если с финсами у тебя проблем меньше, чем с инетом, то рекомендую купить любую нормальную книгу по Delphi с заданиями. Там обычно каждому разделу уделяется свой набор заданий - довольно хорошая практика. Они конечно, легче всякий редкторов тексовых и графических, но так ты будешь лучше усваивать - по чуть-чуть, зато всё и вопросов будет меньше.  

Но если чувствуешь силы, но кончено, мод и  редактор попробывать сделать, сначала простой(типа NotePad), потом навороченный(типа WordPad).
--------------------
Бери от жизни всё.
PM MAIL WWW ICQ Skype   Вверх
SneG0K
Дата 5.12.2007, 22:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Цитата(Lexicss @ 5.12.2007,  21:14)
 Но если чувствуешь силы, но кончено, мод и  редактор попробывать сделать, сначала простой(типа NotePad), потом навороченный(типа WordPad).

Ну как написать notepad я примерно понимаю! Даже уже практически знаю!!!=))) Буду учится! С финансами таких проблем как с нетом нет! Провайдер ведет профилактические работы от и нет медленный! уже как месяц медленный!!!
PM WWW Skype   Вверх
Exai1e
Дата 5.12.2007, 22:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: 2
Всего: 30
SneG0K, ну 15мин мег, за 2 часа скачаеш книгу smile

Добавлено @ 22:55
Там в ней много всего smile читать не один день будеш smile

Это сообщение отредактировал(а) Exai1e - 5.12.2007, 22:56


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
SneG0K
Дата 5.12.2007, 23:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Та сегодня мне уде нет смысла её качать! На выходных скачаю! smile  Вроде инет до выходных востановят!
PM WWW Skype   Вверх
SneG0K
Дата 5.12.2007, 23:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Вот при создании блокнота выпал первый вопрос! Как делать выпадающие меню??? Ну типа Файл->Сохранить как..... Ну отета полосочка вверху(для тех кто не понял)!!!
PM WWW Skype   Вверх
Данкинг
Дата 5.12.2007, 23:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Цитата(SneG0K @ 5.12.2007,  23:26)
Вот при создании блокнота выпал первый вопрос! Как делать выпадающие меню??? Ну типа Файл->Сохранить как..... Ну отета полосочка вверху(для тех кто не понял)!!!

Компонент "главное меню". А из заданий - напиши записную книжку. И чтобы о днях рождения напоминала. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
SneG0K
Дата 5.12.2007, 23:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
 smile По подробнее пожалуйста!!!
PM WWW Skype   Вверх
Данкинг
Дата 6.12.2007, 00:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Вкладка "standart" - компонент "MainMenu". Кидаешь на форму, затем двойной клик на нём самом для добавления пунктов.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
aktuba
Дата 6.12.2007, 01:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38
Цитата(SneG0K @  5.12.2007,  22:44 Найти цитируемый пост)
По поводу книжек я сейчас учу Фленова "Дельфи глазами хакера"

Выброси каку...


--------------------
user posted image
PM MAIL WWW Skype   Вверх
THandle
Дата 6.12.2007, 09:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
книжки другие надо читать. вот тебе ссылки, качай обязательно - первый том, второй том

Добавлено через 48 секунд
весят они вместе 11,4 мб.
PM   Вверх
SneG0K
Дата 6.12.2007, 09:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Спасибо за помощь... но не судите о книге по названию!!! Там в книге фленова есть отличные примеры, багатые коментариями!!! Которые можно использовать не только во вред!!! 
PM WWW Skype   Вверх
THandle
Дата 6.12.2007, 09:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
SneG0K, в этой же книге полсотни ошибок. Фленова выкинь вообще!!!
PM   Вверх
SneG0K
Дата 6.12.2007, 09:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Ладно.... Выкину.....
PM WWW Skype   Вверх
RemaGe
Дата 6.12.2007, 09:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 89
Регистрация: 14.4.2006

Репутация: нет
Всего: нет
SneG0K, 
по поводу примера с графикой))
напиши игру "Жизнь", интересная штука, я тож когда то писал)
описание с википедии вики
PM MAIL WWW   Вверх
SneG0K
Дата 6.12.2007, 14:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Но я немного не понимаю!!! Почемы вы такие противники хакинга??? Я считаю, что хакинг должен изучать каждый программист! Ведь если знать как взломать программу, то можно будет знать как её защитить!!!=) Нет я не говорю, чтоб щас каждый ломанулся хакать сервера и программы!!! Но знать это надо!!!!
PM WWW Skype   Вверх
Snowy
Дата 6.12.2007, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484
Патамучта правила форума
PM MAIL   Вверх
SneG0K
Дата 6.12.2007, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Лан понятно!!! Сам против беззакония-)))
PM WWW Skype   Вверх
Rennigth
Дата 6.12.2007, 17:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 15
Всего: 76
Цитата(SneG0K @  6.12.2007,  14:55 Найти цитируемый пост)
Но я немного не понимаю!!! Почемы вы такие противники хакинга???

В этой "книге" не хакинг... Это изданный фак набранный с 2-3х сайтов посвященным делфи. Код который там приведен не подлежал не то что проверке, но даже рефакторингу. Практически тупой копи-паст. Выкинь... Скачай drkb, там такого "хакинга" поболее будет, да и действительно нужные статьи и примеры для начинающих есть. 


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
THandle
Дата 6.12.2007, 17:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372
SneG0K, сначала надо научится программировать, а потом уж хакингу учится. Но явно не по Фленову. Обычные простенькие примеры, да ещё и с ошибками.
PM   Вверх
aktuba
Дата 6.12.2007, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38
Цитата(SneG0K @  6.12.2007,  15:55 Найти цитируемый пост)
Но я немного не понимаю!!! Почемы вы такие противники хакинга??? Я считаю, что хакинг должен изучать каждый программист! Ведь если знать как взломать программу, то можно будет знать как её защитить!!!=) Нет я не говорю, чтоб щас каждый ломанулся хакать сервера и программы!!! Но знать это надо!!!! 


Цитата(Snowy @  6.12.2007,  16:20 Найти цитируемый пост)
Патамучта правила форума 

Как ты уже заметил - тут не противники хакинга (что, кстати, не всегда подразумевает взлом), тут противники феленова, который не умея сам, пытается учить программированию. А если быть точнее - разводит на деньги... Лучше почитай следующее:

1. Сухарев. Основы Delphi.
2. Бакнелл. Фундаментальные алгоритмы в Delphi.
3. Marco Cantu. Mastering Delphi 7.


--------------------
user posted image
PM MAIL WWW Skype   Вверх
SneG0K
Дата 6.12.2007, 20:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Rennigth - ошибок есче я не встречал!!!

THandle - абсолютно с тобой согласен!!!

aktuba - очент интересный ответ!!!  Всетаки не разных порталах разные мнения!!! Насчет Фленова мне советовали на другом портале, посвященому хакингу в разных его проявления!!! 

Все вы в своей степени правы!!! Но хакинг знать надо!!!
Цитата

едь если знать как взломать программу, то можно будет знать как её защитить!!!=)


Большое всем спасибо, что не кликнули мышей мимо!! Буду прислушиваться к вашим советам!!!=)



Ладно! Обращение к модерам - закрывайте этот топ, потому-что скоро он станет оффтоповым=)))
PM WWW Skype   Вверх
aktuba
Дата 6.12.2007, 21:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Смышленный
***


Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 7
Всего: 38
Цитата(SneG0K @  6.12.2007,  21:17 Найти цитируемый пост)
Насчет Фленова мне советовали на другом портале, посвященому хакингу в разных его проявления!!! 

Беги с того форума побыстрее... Если советуют такие книги - это уже не "хакеры", а читатели =)

Цитата(SneG0K @  6.12.2007,  21:17 Найти цитируемый пост)
Но хакинг знать надо!!!

Зачем??? Для защиты программ надо знать не только как ломать, но и очень хорошо знать математические, статестические, логические основы взлома и защит. Плюс социальную инженерию и еще кучу всего. Ты готов все это изучить??? Думаю, вряд ли... Соответственно, надо ориентироваться больше на одну область...

Цитата(SneG0K @  6.12.2007,  21:17 Найти цитируемый пост)
Буду прислушиваться к вашим советам!!!=)

Ну так начни с того, что выброси книгу Фленова прямо сейчас. Желательно, в мусоропровод, чтобы никто случайно найти не мог.  smile 


--------------------
user posted image
PM MAIL WWW Skype   Вверх
SneG0K
Дата 6.12.2007, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
aktuba - под словом хакинг подразумеваю все, что может быть связано с хакингом, взлом программ, СИ, SQL-injection, XSS и т.д.! Я говорил в общем! 
Цитата

Беги с того форума побыстрее... Если советуют такие книги - это уже не "хакеры", а читатели =)

Уже сбежал!!! Там один из модеров был не очень любезным!!! "Козел" редкий!!!!!!!

Цитата

Ну так начни с того, что выброси книгу Фленова прямо сейчас. Желательно, в мусоропровод, чтобы никто случайно найти не мог.  smile  


Уже выбросил!!!! smile  smile

Добавлено через 45 секунд
Аж полегчало на душе!!!! smile 
PM WWW Skype   Вверх
maxi91m
Дата 7.12.2007, 18:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 191
Регистрация: 14.1.2007
Где: Нижний Новгород

Репутация: нет
Всего: нет
А скажите названия книг в которых точно есть задания для самостоятельного решения? smile 
--------------------
PM MAIL ICQ   Вверх
EvilsInterrupt
Дата 11.12.2007, 12:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Executables research
***


Профиль
Группа: Завсегдатай
Сообщений: 1019
Регистрация: 14.7.2007
Где: Железнодорожный, МО, Россия

Репутация: нет
Всего: 9
Я вот тута хорошую задачку для новчика нашел, для проектов созданных на гугл-коде, можно создвать вики-странички, согласно этим правилам формтарования текста . Вот и хочется, чтобы кто-нить из ньюбов, если им делать нефиг сделали бы хороший редактор текста, после чего можно было скопировать и вставить в этот гугл и получить нормально выглядящую страничку. ;)


--------------------
про реверсинг, вроде чтото даже интересно
PM MAIL WWW ICQ Jabber   Вверх
LeChatRouge
Дата 5.6.2008, 19:39 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 5.6.2008
Где: г. Ленинград

Репутация: нет
Всего: нет
Нужна помощь в написании программы. 

Надо портировать код уже готовой программы из Free Pascal в Delphi.
Таким образом, чтобы старая программа выводилась внутри формы (а-ля консоль), но входные данные должны вводиться в отдельном текстовом поле (внутри той же формы). Пример кода программы на Free Pascal:
Код

program p;
uses crt;
{ Описание типов - матрицы и вектора }
type
  matr=array [1..10,1..10] of real;
  vec=array [1..10] of real;
var
  mt:matr;      { Исходная матрица - левая часть системы }
  m2:matr;      { Матрица для вычисления промежуточных определителей }
  v:vec;        { Вектор - правая часть системы }
  r:vec;        { Вектор решения }
  nm:integer;   { Число переменных }
  n,m:integer;  { Счетчики }
  d:real;       { Определитель матрицы }

{ Рекуррентная функция вычисления опеределителя матрицы }
function opr(mt:matr;nm:integer):real;
var
  n,m,d:integer;{ Счетчики }
  s:real;       { Определитель }
  m2:matr;      { Матрица для вычислений }
begin
{ Если матрица 2х2 - прямой расчет }
  if nm=2 then begin
    s:=mt[1,1]*mt[2,2]-mt[1,2]*mt[2,1];
  end else begin
{ Иначе - вычисление по правилу:
   Определитель равен сумме частных определителей по строке (столбцу),
   полученных вычеркиванием строки и столбца, и умноженных на элемент
   на их пересечении и на минус единицу в степени (номер столбца+номер
   строки). }
    s:=0;
{ Перебор всех элементов последнего столбца }
    for d:=1 to nm do begin
{ Получение матрицы без последнего столбца и с вычеркнутой строкой }
      m2:=mt;
      for n:=d to nm do
        for m:=1 to nm-1 do m2[m,n]:=m2[m,n+1];
{ Прибавление (вычитание) к сумме }
      if (d mod 2 =nm mod 2) then s:=s+mt[nm,d]*opr(m2,nm-1)
        else s:=s-mt[nm,d]*opr(m2,nm-1);
    end;
  end;
{ Результат }
  opr:=s;
end;
{ Функция ввода матрицы }
function input(var mt:matr):integer;
var
  x,y:integer;  { Координаты курсора }
  nm:integer;   { Количество переменных }
  c:char;       { Символ с клавиатуры }
  n,m:integer;  { Счетчики }
  pr:real;      { Дополнительная переменная }
begin
  textcolor(15);
  textbackground(0);
  x:=1;y:=1;nm:=2;{ Изначально - курсор на первом элементе, 2 переменных }
{ Заполнение матрицы нулями }
  for n:=1 to 10 do for m:=1 to 10 do mt[n,m]:=0;
  repeat
{ Вывод матрицы с выделением выбранного элемента }
    clrscr;
    for n:=1 to nm do
      for m:=1 to nm do begin
        if (n=x)and(m=y) then textbackground(1) else textbackground(0);
        gotoxy(n*8,m);
        writeln(mt[n,m]:7:3);
    end;
    textbackground(0);
    gotoxy(1,24);
    write(' +,- - изменение размера на Numpad'e, Стрелки - выбор,',
          ' ENTER - ввод данных на обработку, ESC - завершение');
{ Считывание символа с клавиатуры }
    c:=readkey;
    if c=#0 then c:=readkey;
    case c of
{ Обработка нажатия на стрелки }
      #72:if y>1 then y:=y-1;
      #80:if y<nm then y:=y+1;
      #75:if x>1 then x:=x-1;
      #77:if x<nm then x:=x+1;
{ Нажатие ENTER - ввод данных }
      #13:begin
        gotoxy(x*8,y);
        write('         ');
        gotoxy(x*8,y);
        readln(mt[x,y]);
      end;
{ Нажатие / - ввод делителя }
      '/':begin
        gotoxy(x*8,y);
        write('/        ');
        gotoxy(x*8+1,y);
        readln(pr);
        mt[x,y]:=mt[x,y]/pr;
{ Перемещение курсора к следующему элементу }
        x:=x+1;
        if (x>nm) then begin
          x:=1;
          if (y<nm) then y:=y+1;
        end;
      end;
      '+':if nm<10 then nm:=nm+1;
      '-':if nm>2 then nm:=nm-1;
    end;
{ Выход по ESC }
  until (c=#27);
  input:=nm;
end;
{ Основная программа }
begin
{ Ввод матрицы }
  nm:=input(mt);
{ Вычисление определителя }
  d:=opr(mt,nm);
  writeln;
  if (d<>0) then begin
{ Если определитель не равен нулю - ввод вектора }
    writeln(' Введите вектор: ');
    for n:=1 to nm do read(v[n]);
{ Расчет по методу Крамера }
    for n:=1 to nm do begin
      m2:=mt;
      for m:=1 to nm do m2[n,m]:=v[m];
      r[n]:=opr(m2,nm)/d;
    end;
{ Вывод результата }
    clrscr;
    writeln(' Система: ');
    for n:=1 to nm do begin
      for m:=1 to nm-1 do write(mt[m,n]:6:2,'*X',m:1,'+');
      writeln(mt[nm,n]:6:2,'*X',nm:1,'=',v[n]:6:2);
    end;
    writeln;
    writeln(' Решение: ');
    for n:=1 to nm do writeln('X',n:1,' = ',r[n]:10:6);
  end else writeln(' Решения не существует! ');
  writeln;
  writeln(' Нажмите ESC... ');
  repeat until readkey=#27;
end.


Это сообщение отредактировал(а) LeChatRouge - 5.6.2008, 19:41
PM MAIL WWW ICQ Skype   Вверх
mr.Anderson
Дата 5.6.2008, 19:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128
LeChatRouge, создай для сего отдельную тему в центре помощи.


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
Страницы: (3) [Все] 1 2 3 
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0898 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.