Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Ход выполнения

Читайте также:
  1. Cост. Полянская И. (гиперссылки для выполнения индивидуальных проектов) Тема 1
  2. IV. Порядок выполнения лабораторной работы
  3. VI. Общие правила выполнения авиационных работ
  4. Алгоритм выполнения задания (часть 2).
  5. Алгоритм выполнения задания.
  6. Алгоритм выполнения задания.
  7. Алгоритм выполнения задания.

Практическая работа № 1

«Линейное программирование»

Задача. Написать программу по заданной формуле:

 

Ход выполнения

Открываем систему Lazarus. Далее ФайлСоздать… - Приложение. Данное приложение необходимо сохранить с вою папку. Название проекта – ProFormula, название модуля – UnitForm.

Переименуйте созданную вами форму. Для этого перейдите в СвойстваCaption – введите «Расчёт формулы».

На открывшейся форме добавляем надпись типа TLabel. В свойствах кнопки меняем её текст СвойстваCaption – «Введите а:». Измените размер шрифта – FontSize14. Создаем аналогичным образом вторую надпись – «х:», также измените размер шрифта.

 

После добавляем поля TEdit для ввода значений а и х:

· Панель StandardTEdit. Далее применяем СвойстваNameEditA; Text – очистить.

· Панель StandardTEdit. Далее применяем СвойстваNameEditX; Text – очистить.

Добавляем кнопку: Панель StandardTButton. Далее применяем СвойстваCaption – «Результат:»; Измените размер шрифта – FontSize10; Измените имя Name – BtnRes.

Рядом с кнопкой располагаем поле вывода результата, также TEdit. В свойствах меняем имя на Name – EditRes.

После того, как были расположены все основные элементы на форму, приступаем к написанию кода.

Создадим процедуру для расчёта формулы, для этого щелкните левой клавишей мыши по кнопке на форме 2 раза. Откроется окно кода, и автоматически создастся процедура: procedure TForm1.BtnResClick(Sender: TObject);

Для начала обозначим исходные данные и разместим их в разделе описания переменных:

procedure TForm1.BtnResClick(Sender: TObject);

var

a,x,y: real; { исходные данные и результат }

temp: real; { промежуточная переменная }

s: string; { дополнительная строковая переменная}

 

Далее описываем составной оператор begin.. end.

begin

s:= ' ';

a:= StrToFloat(EditA.text); { перевод текстового значения в вещественное

число }

x:= StrToFloat(EditX.text);

 

temp:= 2*sin(2*a)/cos(2*a); { расчет формулы }

y:= (sqrt(Pi*x)-exp(0.2*sqrt(a))+temp+

1.6e3*ln(sqr(x))/ln(10))/

(temp*1/cos(x));

 

s:= s+FloatToStrF(y,ffGeneral,7,2); { обратный перевод полученного значения

из вещественного числа в текст с ограничением в 7

символов }

EditRes.text:= s;

 

end;

После написания кода, запустите Компиляцию программы .

Дополнительно:

Откройте Microsoft Word и через редактора формул создайте записанную ранее в задаче формулу:

Далее скопируйте её в стандартный графический редактор Paint, отредактируйте размеры, и сохраните изображение в папке с проектом вашей программы.

После снова откройте свою программу, и разместите на форме картинку:

Панель AdditionalTImage. Далее перейдите в свойства – Picture – Загрузить – Выбираете созданное вами изображение из папки проекта – Ок.

В результате у вас получится следующая форма вашей программы (Рис.1):

 

Рис.1 – Готовая форма программы


Дата добавления: 2015-07-15; просмотров: 87 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Механизмы вдоха и выдоха. Роль грудной клетки, диафрагмы и других мышц, плевральных полостей. Значение в дыхании эластической тяги легкого, ее структурное обеспечение.| Пассивный доход 1000$ и более

mybiblioteka.su - 2015-2024 год. (0.011 сек.)