Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Завдання. Скласти програму розвозку квадратного рівняння: ах2+bx+c=0; ⇐ ПредыдущаяСтр 5 из 5 Завдання №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;
|