Программа на делфи решение квадратного уравнения

Решение квадратного уравнения на делфи или лазарусе. Поля edit1, edit2, edit3 для ввода коэффициентов. edit4 для вывода решения. При открытии формы коэффициент по умолчанию становятся равными единицы.

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private

public

end;

var
Form1: TForm1;

procedure TForm1.Button1Click(Sender: TObject);
Var a,b,c,d,x1,x2:real;
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=strtofloat(edit3.text);
d:=((b*b)-(4*a*c));
if d Автор admin Опубликовано 04.06.2016

Видео:Урок №1: Условия в Delphi - оператор "If Then" на примере программы "Решение квадратного уравнения"Скачать

Программа на делфи решение квадратного уравнения

Процедура — это разновидность подпрограммы. Обычно подпрограмма реализуется как процедура в двух случаях:

• когда подпрограмма не возвращает в основную программу никаких данных. Например, вычерчивает график в диалоговом окне;
• когда подпрограмма возвращает в вызвавшую ее программу больше чем одно значение. Например, подпрограмма, которая решает квадратное уравнение, должна вернуть в вызвавшую ее программу два дробных числа — корни уравнения.

В общем виде объявление процедуры выглядит так: procedure Имя (var параметр1: тип1; . var параметрК: типК) ; var

// здесь объявление локальных переменных

// здесь инструкции процедуры

• procedure — зарезервированное слово языка Delphi, обозначающее, что далее следует объявление процедуры;
• имя — имя процедуры, которое используется для вызова процедуры;
• параметр K — формальный параметр, переменная, которая используется в инструкциях процедуры. Слово var перед именем параметра не является обязательным. Однако если оно стоит, то это означает, что в инструкции вызова процедуры фактическим параметром обязательно должна быть переменная.

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

В качестве примера в листинге 6.5 приведена процедура решения квадратного уравнения (которое в общем виде записывается так: ах 2 + Ьх+ с = 0). У процедуры шесть параметров: первые три предназначены для передачи в процедуру исходных данных — коэффициентов уравнения; параметры xi и х2 используются для возврата результата — корней уравнения; параметр ok служит для передачи информации о том, что решение существует.

Листинг 6.5. Процедура SgRoot

// решает квадратное уравнение

procedure SqRoot(a,b,c : real;

var ok : boolean);

d : real; // дискриминант

d:= Sqr(b) — 4*a*c; if d

ok := False // уравнение не имеет решения

x1 := (-b + Sqrt(d)) / (2*a) ; x2 := (b + Sqrt(d)) / (2*a);

Разработанную процедуру нужно поместить в раздел implementation, перед подпрограммой, которая использует эту процедуру.

Инструкция вызова процедуры в общем виде выглядит так:

П имя — имя вызываемой процедуры;

• списокПараметров — разделенные запятыми фактические параметры.

Фактическим параметром, в зависимости от описания формального параметра в объявлении процедуры, может быть переменная, выражение или константа соответствующего типа.

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

Если в описании процедуры перед именем параметра стоит слово var, то при вызове процедуры на месте соответствующего параметра должна стоять переменная основной программы. Использование константы или выражения считается ошибкой, и компилятор в этом случае выведет сообщение: Types of actual and formal var parameters must be identical (ТИП фактического параметра должен соответствовать типу формального параметра).

В листинге 6.6 приведена программа решения квадратного уравнения, в которой используется процедура SqRoot. Окно программы представлено на рис. 6.2.

Рис. 6.2. Окно программы Квадратное уравнение

Листинг 6.6. Решение квадратного уравнения (использование процедуры)

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms, Dialogs, StdCtrls;

Видео:Delphi Квадратное уравнениеСкачать

Курсовая работа: Программа для решения квадратных уравнений второго порядка

1. Определение требований

1.1 Постановка задачи

1.2 Требования к интерфейсу

2. Анализ, формальная постановка и выбор метода решения

2.1 Краткая характеристика операционной системы

2.2 Краткая характеристика языка программирования

2.3 Компоненты среды Delphi, использованные в программе

2.4 Методы решения

3.1 Требования к аппаратному обеспечению

3.2 Инструкция пользователя

3.3 Инструкция программиста

4. Реализация и тестирование

Список использованных источников

Нелинейные уравнения – уравнения вида F(x)=0. при построении графиков таких уравнений получается не ровная линия, а какая либо фигура, например, парабола. Здесь значения того или иного экстремума функции возрастают прямо пропорционально ее предыдущего значения.

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

Пояснительная записка курсовой работы состоит из нескольких разделов.

Первый раздел пояснительной записки включает в себя постановку задачи, требования, предъявляемые к разрабатываемым программам, цели работы.

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

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

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

1. Определение требований

1.1 Постановка задачи

Целью создания курсового проекта является разработка программы для решения нелинейных уравнений различными численными методами.

Данный программный продукт должен реализовывать следующие основные возможности:

— решение уравнения с помощью дискриминанта;

— решение уравнения теоремой Виетта;

— решение квадратного уравнения с помощью таблицы Горнера;

Интерфейс программного продукта должен представлять собой удобную среду для ввода значений.

Получаемые ответы должны быть правильными и корректными.

Для наполнения окон интерфейса элементами управления необходимо чёткое понимание задач пользователя.

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

1.2 Описание требований к программе

Независимо от конкретности проблемы, можно выделить некоторые формальные требования, на которых защищается квалификация разработчика.

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

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

Использование клавиатуры. На любом этапе нажатия любой клавиш (особенно функциональных) должно игнорироваться или вызывать предусмотренные действия (описанные в средствах помощи). Привязка действий к клавишам должна быть общепринятой.

2. Анализ, формальная постановка и выбор метода решения

2.1 Краткая характеристика операционной системы

Windows 7 — операционная система семейства Windows NT, следующая за Windows Vista. В линейке Windows NT система носит номер версии 6.1 (Windows 2000 — 5.0, Windows XP — 5.1, Windows Server 2003 — 5.2, Windows Vista и Windows Server 2008 — 6.0). Серверной версией является Windows Server 2008 R2, версией для интегрированных систем —Windows Embedded Standard 2011 (Quebec), мобильной —Windows Embedded Compact 2011 (Chelan, Windows CE 7.0).

Операционная система поступила в продажу 25 октября 2009 года, меньше чем через три года после выпуска предыдущей операционной системы, Windows Vista. Хотя изначально операционная система должна была поступить в продажу уже 31 августа 2009 года. Партнёрам и клиентам, обладающим лицензией Volume Licensing, доступ к RTM был предоставлен 24 июля 2009 года. Финальная нелицензионная версия (копия с дисков, которые потом пошли в продажу) была доступна всем с первых чисел августа 2009 года.

В состав Windows 7 вошли как некоторые разработки, исключённые из Windows Vista, так и новшества в интерфейсе и встроенных программах. Из состава Windows 7 были исключены игры Inkball, Ultimate Extras; приложения, имеющие аналоги в Windows Live (Почта Windows, Календарь Windows и пр.), технология Microsoft Agent, Windows Meeting Space; из меню «Пуск» исчезла возможность вернуться к классическому меню и автоматическая пристыковка браузера и клиента электронной почты.

Разработка Windows 7

Кодовое название Blackcomb принадлежало Windows NT 6.0, операционной системе, которая, как планировалось, станет следующей после Windows XP. Blackcomb должна была стать преемником этой ОС как для настольных, так и для серверных рабочих станций. В конце 2001 года выпуск Blackcomb запланировали на 2005 год, а в августе2002 года было объявлено о том, что промежуточной версией станет Windows Longhorn, которая будет обновлением ядра Windows NT 5.x. В течение разработки Windows Longhorn в неё были добавлены некоторые функции Blackcomb и присвоен номер 6.0. Blackcomb была окружена неразберихой, связанной с некоторыми сообщениями о том, что планы по маркетингу были сильно пересмотрены и что она должна быть серверной ОС Windows 6.x, но с улучшениями.

В январе 2006 года Microsoft объявила, что новой клиентской ОС будет Vienna, выход которой был запланирован на 2010 год.

В марте 2006 года стало известно, что наследницей Windows Vista будет Fiji, выход которой был запланирован на2008 год.

В 2008 году, в результате жалоб фиджийцев на то, что новая ОС будет носить имя их страны, стали известны новые сведения о Fiji. По словам фиджийцев, Бен Грин сказал, что в Fiji будут добавлены новые телевизионные форматы, поддержка интерактивных служб и улучшения пользовательского интерфейса для Windows Media Center. Вполне вероятно, во включённую в состав Windows 7 программу Windows Media Center уже добавлены изменения, которые должны были быть в Fiji.

24 июля 2007 года корпорация Microsoft официально сменила кодовое название Vienna на Windows 7. НомерWindows 7 в линейке NT, в которой она будет находиться — 6.1 (в своё время системы этого семейства получили номера: Windows 2000 — 5.0, Windows XP — 5.1, Windows Server 2003 — 5.2, Windows Vista — 6.0, Windows Server 2008 — 6.0).

13 октября 2008 года вице-президент Microsoft Майк Нэш сообщил, что кодовое имя Windows 7 и станет официальным названием новой версии.[9]

Начальная редакция (Windows 7 Starter) будет распространяться исключительно с новыми компьютерами, она не будет включать функциональной части для проигрывания H.264, AAC, MPEG-2. Домашняя базовая — предназначена исключительно для выпуска в развивающихся странах, в ней нет интерфейса Windows Aero с функциями Peek, Shake, общего доступа к подключению в интернет и некоторых других функций. Также в ней есть те же ограничения на просмотр, что и в начальной редакции. В профессиональной и максимальной версиях существует поддержка XP Mode (на некоторых процессорах).

Кроме этого, согласно требованиям Еврокомиссии, для продаж в Европе планировалась специальная версия всех редакций с индексом «Е» («Windows 7 Е») — без предустановленного браузера Internet Explorer, однако она снята с продажи. Одной из причин снятия с продаж является недовольство партнёров и OEM-производителей отсутствием браузера в изначальной комплектации. Всем, кто выполнил предзаказ версии с индексом «Е», было предложено заказать обновление или заказать полную версию с 1 сентября 2009 года.

Тем не менее, в течение 5 лет планируется заменить встроенный Internet Explorer опциональным. В настоящее время данная схема согласована с Еврокомиссией.

Все редакции, за исключением Начальной, существуют как в 32-битной, так и в 64-битной версиях.

Максимальный объём оперативной памяти для 32-битных версий ограничен 4 Гб, Начальная редакция поддерживает до 2 Гб. Однако на практике пользователю часто доступен меньший объём, из-за аппаратных ограничений часто невозможно реализовать функцию режима PAE. Поддержка более крупных объёмов памяти доступна только для 64-битных версий. Они поддерживают до 8 Гб («Домашняя базовая»), до 16 Гб («Домашняя расширенная»), все старшие версии могут адресовать до 192 Гб оперативной памяти.

Бесплатная 90-дневная версия Windows 7 Корпоративная доступна для ИТ-специалистов, желающих познакомиться с Windows 7 в рамках организации.

Операционная система обладает поддержкой мультитач-управления. Эта возможность была впервые продемонстрирована Microsoft на ежегодной конференции TechEd’08 в Орландо. В ходе демонстрации использовалась сборка системы 6.1.6856, а также опытная модель ноутбука с мультитач-экраном.

Сетевая технология Branch Cache позволяет кешировать содержимое интернет-трафика. Если пользователю в локальной сети потребуется файл, который уже был загружен кем-то из пользователей его сети, — он сможет получить его из локального кэш-хранилища, а не использовать канал с ограниченной пропускной способностью. Сетевой кеш может работать в двух режимах — Hosted Cache и Distributed Cache. В первом случае — файл хранится на выделенном локальном сервере под управлением Windows Server 2008 R2, во втором случае сервер не требуется, а кеш распределяется для хранения на компьютерах пользователей. Технология рассчитана на крупные сети и предлагается для внедрения на предприятиях в составе Корпоративной и Максимальной версий ОС.

В ОС также встроено около 120 фоновых рисунков, уникальных для каждой страны и языковой версии. Так, русская версия включает тему «Россия» с шестью уникальными обоями высокого разрешения. Все версии включают 50 новых шрифтов. Существующие шрифты доработаны для корректного отображения всех символов. Windows 7 — первая версия Windows, которая включает больше шрифтов для отображения нелатинских символов, чем для отображения латинских. Панель управления шрифтами также подверглась улучшению — по умолчанию, в ней будут отображаться только те шрифты, раскладка для которых установлена в системе. Реализована поддержкаUnicode 5.1.[ Панель поиска Instant Search теперь распознаёт больше языков.

Дополнительным преимуществом Windows 7 можно считать более тесную интеграцию с производителями драйверов. Большинство из них определяются автоматически, при этом в 90 % случаев сохраняется обратная совместимость с драйверами для Windows Vista.

Windows 7 поддерживает псевдонимы для папок на внутреннем уровне. К примеру, папка Program Files в некоторых локализованных версиях Windows была переведена и отображалась с переведённым именем, однако на уровне файловой системы оставалась англоязычной.

Новая, 11-я, версия DirectX, впервые выпущенная именно в составе этой операционной системы, имеет следующие улучшения: добавлена поддержка новых вычислительных шейдеров, возможность многопоточного рендеринга, улучшена тесселяция, появились новые алгоритмы компрессии текстур и др.

Проигрыватель Windows Media Player 12 получил новый интерфейс и стал поистине «всеядным», в отличие от предшественника, которому требовалось большое количество кодеков для воспроизведения. Однако, он не может воспроизводить лицензионные Blu-Ray диски с видео, но имеет возможность считывать и записывать на них данные.

Несмотря на то, что Центр мобильности Windows не претерпел значительных изменений со времён Windows Vista, Windows 7 работает дольше предшественницы на ноутбуках и потребляет меньше энергии, особенно при воспроизведении DVD. На представленной в конце августа 2009 года системе с двумя идентичными ноутбуками с предустановленной Windows 7 и Windows Vista выигрыш составлял до 20 %. Также была показана рекордная скорость загрузки системы — 11 секунд. Система включала SSD и прочие высокопроизводительные компоненты. Подобный тест вдохновил энтузиастов протестировать влияние браузера на время жизни батареи. Включённый в состав Windows 7 браузер Internet Explorer 8 показал наилучшие результаты на платформе Intel.

Тем не менее, по результатам независимых тестов выяснено, что Windows 7 заметно быстрее, чем Windows XP, сажает батарею ноутбука. Начиная с августа эксперты журнала Laptop (laptopmag.com) проводили тестирование финальной версии Windows 7, в том числе замеряя время автономной работы портативных ПК под её управлением. Общий итог оказался неутешительным: средний нетбук под управлением «семёрки» в целом работает от аккумулятора на 47 минут меньше, по сравнению с XP. В случае модели ASUS 1008HA «недостача» составила 57 минут или 16,7 %. Другие издания также проводили подобные исследования и также пришли к этим выводам. Проигрыш составляет от 10 до 30 процентов по времени работы.

Возможная причина заключается в оптимизации Windows 7 под графические акселераторы, в то время как многие нетбуки работают на встроенных видеокартах Intel и VIA, которые не поддерживают порой функции Aero. Также многие нетбуки работают под управлением Windows 7 Starter Edition, которая не поддерживает Aero в полной мере. Другой возможной причиной является отсутствие поддержки ОС со стороны производителей нетбуков. Так, с новыми драйверами и BIOS, датированными ноябрём 2009 года, Asus Eee 1000HA работает под Windows 7 столь же долго, сколь и под управлением Windows XP.

2.2 Описание языка программирования

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

Delphiобладает широким набором возможностей, начиная от проектировщика форм и кончая поддержкой всех форматов популярных баз данных. Среда устраняет необходимость программировать такие компоненты Windowsобщего назначения, как метки, пиктограммы и даже диалоговые панели. Также здесь имеются предварительно определенные визуальные и не визуальные объекты, включая кнопки, объекты с данными, меню и уже построенные диалоговые панели. С помощью этих объектов можно, например, обеспечить ввод данных просто несколькими нажатиями кнопок мыши, не прибегая к программированию.

Создаваемое в среде Delphiприложение состоит из нескольких элементов, объединенных в проект. В состав проекта входят следующие элементы (в скобках указаны расширения имен файлов):

– код проекта (DPR);

– описание форм (DFM);

– модули форм (PAS);

– параметры проекта (DOF);

– описание ресурсов (RES).

Главное окно Delphi7 в соответствии с рисунком 2.2

Рисунок 2.2- Главное окно Delphi

Главные составные части среды программирования:

– дизайнер Форм (Form Designer);

– окно Редактора Исходного Текста (Editor Window);

Дизайнер Форм первоначально состоит из одного пустого окна, которое Вы заполняете всевозможными объектами, выбранными на Палитре Компонент.

Палитра Компонент позволяет выбрать нужные объекты для размещения их на Дизайнере Форм. Выбранный объект появится на проектируемом окне и им можно манипулировать с помощью мыши.

Слева от Дизайнера Форм Вы можете видеть Инспектор Объектов. Инспектор Объектов состоит из двух страниц, каждую из которых можно использовать для определения поведения данного компонента. Первая страница — это список свойств, вторая — список событий.

Delphi – это комбинация нескольких важнейших технологий:

– высокопроизводительный компилятор в машинный код;

– объектно-ориентированная модель компонент;

– визуальное построение приложений из программных прототипов;

Компилятор, встроенный в Delphi, обеспечивает высокую производительность, необходимую для построения приложений в архитектуре «клиент–сервер». Этот компилятор в настоящее время является самым быстрым в мире, его скорость компиляции составляет свыше 120 тысяч строк в минуту.

Основной упор в объектно-ориентированной модели программных компонентов в Delphi делается на максимальном использовании кода. Это позволяет разработчикам строить приложения весьма быстро из заранее подготовленных объектов, а также дает им возможность создавать свои собственные объекты для среды Delphi. Никаких ограничений по типам объектов, которые могут создавать разработчики, не существует. Среда Delphi включает в себя полный набор визуальных инструментов для скоростной разработки приложений, поддерживающей разработку пользовательского интерфейса и подключение к корпоративным базам данных. VCL – библиотека визуальных компонент, включает в себя стандартные объекты построения пользовательского интерфейса, объекты управления данными, графические объекты, объекты мультимедиа, диалоги и объекты управления файлами, управление DDE и OLE.

Внешний вид среды программирования Delphi отличается от многих других из тех, что можно увидеть в Windows.

Среда Delphi же следует другой спецификации, называемой Single Document Interface (SDI), и состоит из нескольких отдельно расположенных окон. Delphi использует структурный объектно-ориентированный язык (Object Pascal), который сочетает с одной стороны выразительную мощь и простоту программирования, характерную для языков 4GL, а с другой стороны эффективность языка 3GL.

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

2.3 Компоненты среды Delphi , использованные в программе

Рассмотрим все требования к разрабатываемой программе. Программа должна обладать удобным интуитивно понятным интерфейсом. Быть простой в использовании, надежной и быстрой в работе. Не требовать особых знаний ПК. Поддерживать стабильную работу и быть защищенной от повреждений информации при сбое компьютера или ошибок пользователя.

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

Компоненты, которые используются в данном программном продукте, представлены в соответствии с таблицей 3.1

Таблица 2.1 – Компоненты программы

2.4 Методы решения

Квадратное уравнение — уравнение вида ax 2 + bx + c= 0, где а не равно нулю.

Получение формулы для решения

Формулу можно получить следующим образом:

Умножаем каждую часть на 4a и прибавляем b2:

4a 2 x 2 + 4abx + b2 = − 4ac + b2

(2ax + b) 2 = − 4ac + b2

Уравнение с вещественными коэффициентами

Квадратное уравнение с вещественными коэффициентами может иметь от 0 до 2 вещественных корней в зависимости от значения дискриминанта D = b2 − 4ac:

при D > 0 корней два, и они вычисляются по формуле

(2.1)

при D = 0 корень один (в некоторых контекстах говорят также о двух равных или совпадающих корнях), кратности 2:

(2.2)

🎦 Видео

#9 Программирование в Delphi. Математические операцииСкачать

Программирование в Delphi / Урок 1. Знакомство со средой разработки. Приложение "Привет, мир!"Скачать

Урок 1 - Создание программы для вычисления корней квадратного уравнения на RAD StudioСкачать

Программа для решения корней квадратного уравнения с использованием дискриминанта на языке ПаскальСкачать

Delphi. Видеокурс. Урок 3Скачать

Программа на DelphiСкачать

Программа для решения квадратных уравнений на С++Скачать

Курсы программирования. Урок 6. Математические функции DelphiСкачать

Обновление своей программы - Способ #1 | Delphi ВидеоурокиСкачать

С++ для начинающих Урок 8 - Решение квадратного уравненияСкачать

Видеоурок по Delphi 7 - простейшая программаСкачать

Решение задачи в среде программирования Delphi.Скачать

Программирование на С++. Урок 13. Решение квадратного уравнения.Скачать

Delphi | Урок 4 - условные операторы (if else, case of)Скачать

Delphi XE5: Выравнивание компонентов относительно размеров формыСкачать

Borland Delphi7 Разработка приложения (Калькулятор)Скачать

Задача 411. Квадратное уравнение. acmp.ru C++Скачать

Автозагрузка программы в DelphiСкачать