Главная Случайная страница


Полезное:

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


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






Завдання. Скласти програму розвозку квадратного рівняння: ах2+bx+c=0;





Завдання №1.

Скласти програму розвозку квадратного рівняння: ах2+bx+c=0;

Хід роботи

1.Створимо заголовок основної форми такого змісту - „Програма розв’язку квадратного рівняння”. Для цього змінимо значення властивості Caption головної форми в інспекторі об’єктів на відповідне -„Програма розв’язку квадратного рівняння”.

2.Помістимо на форму три компоненти TEdit – (Edit1, Edit2, Edit3). Вони будуть використовуватись для введення значень в рівняння – (a,b,с відповідно).

3.Також помістимо три компоненти Tlabel над компонентами TEdit і змінимо їх значення властивостей Caption на “a=”, ”b=” і ”с=” відповідно.

4.Для виведення результату помістимо компонент TMemo.

5.І на кінець кнопку TButton, при натисканні якої буде здійснюватися обрахунок. Напис на кнопці змінимо на – „Обрахувати”. Для цього значення властивості Caption компонента Button1 в інспекторі об’єктів змінимо на „Обрахувати”.

Ми повинні створити форму яка має приблизно наступний вигляд:

 

Процедура події onClick кнопки має наступний вигляд:

procedure TForm1.Button1Click(Sender: TObject);

Var

x1,x2,a,b,c,D:real;

Begin

Функція strtoFloat() перетворює значення із типу

String в тип Real. Потім ці значення заносяться в

Відповідні змінні a,b,c.

a:=strtoFloat(Edit1.text);

b:=strtoFloat(Edit2.text);

c:=strtoFloat(Edit3.text);

Обраховуємо дискримінант.(Sqr(b) - це функція піднесення до

//квадрату, тобто b*b)

D:=Sqr(b)-4*a*c;

//------------- Якщо дискримінант менший нуля то:

If D<0 then

Begin

Стираємо текст в компоненті Memo1.

Memo1.Lines.Clear;

Date: 2015-12-12; view: 264; Нарушение авторских прав; Помощь в написании работы --> СЮДА...



mydocx.ru - 2015-2024 year. (0.006 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию