Вычисление корней квадратного уравнения delphi

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

Решение квадратного уравнения на делфи или лазарусе. Поля 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
< private declarations >
public
< public declarations >
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

Разработка приложения в среде Delphi «Решение квадратных уравнений»

Цель урока: 1. Рассмотреть решение квадратных уравнений в среде Delphi;

2. Развитие познавательных навыков и интереса к предмету

3. Воспитание ответственного отношения к предмету

Просмотр содержимого документа
«Лабораторная работа на откр. урок»

Лабораторная работа №5

Разработка приложения в среде Delphi «Решение квадратных уравнений».

1.Создайте проект . Для этого добавьте на форму следующие компоненты: Label 1, … Label 6; Button 1, Edit 1… Edit 3.

2.Задайте объектам следующие свойства.

Решение квадратных уравнений

MS Sans Serif , полужирный курсив, размер 14, цвет красный

Label 2, … Label6

MS Sans Serif , полужирный курсив, размер 14, цвет синий

MS Sans Serif , полужирный курсив, размер 14, цвет чёрный

Результат выполнения программы

procedure TForm1.Button1Click(Sender: TObject);

Просмотр содержимого документа
«Лабораторная работа №6»

Лабораторная работа №6

Создание Windows-приложения для вычисления различных математических функций

Ввести значение x и вычислить значения следующих математических функций:

Cos(x) Ln(x) Sqr(x) Sqrt(x) Sin(x) Log10(x) Exp(x)

Поместить компоненты Label и Edit в окно формы Form1 и установить их свойства.

Записать код для обработки события OnClick на объекте Button1:

procedure TForm1.Button1Click(Sender: TObject);

Var x, y1, y2 : real;

Просмотр содержимого документа
«на откр урок»

Средняя школа №3 им. Т. Шаханова

Разработка приложения в среде Delphi «Решение квадратных уравнений»

Учитель: Уразбаева Э.К.

Тема: Разработка приложения в среде Delphi «Решение квадратных уравнений».

Тип урока: изучение нового материала

Цель урока: 1. Рассмотреть решение квадратных уравнений в среде Delphi ;

2. Развитие познавательных навыков и интереса к предмету

3. Воспитание ответственного отношения к предмету

Сообщаю цель и ход урока.

Все мы знаем, что информатика напрямую связана с математикой. Сегодня на уроке мы ещё раз убедимся в этом. Уже несколько уроков подряд мы с вами работаем в среде программирования Delphi , разрабатываем различные небольшие программки, такие как «Светофор», «Увеличение, уменьшение текста», «Разработка тестов». На этом уроке мы с вами рассмотрим, как можно решать квадратные уравнения быстро и легко. Мы напишем программу в среде Delphi , введём любое квадратное уравнение и получим сразу ответ.

Итак, наша тема «Разработка приложения в среде Delphi «Решение квадратных уравнений».

Объяснение нового материала.

С какой версией Delphi мы с вами работаем?

Какую используем вкладку?

Как сохранить готовый проект?

При различных вариантах ответов, какую кнопку мы используем?

Какие ещё кнопки вы знаете?

А теперь вспомним математику.

Какой вид имеет квадратное уравнение? ( ax 2 + bx + c =0)

Значит, какие значения нам необходимы? (а, b , с)

Что ещё необходимо найти при решении квадратного уравнения? (дискриминант)

Как находиться дискриминант? ( D = b 2 -4 ac )

Раздаю лабораторные работы.

1.Создайте проект . Для этого добавьте на форму следующие компоненты: Label 1, … Label 6; Button 1, Edit 1… Edit 3.