Radio1 (664333), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Memo1: TMemo;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

// Процедура обработки события создания Формы:

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text:='0.4'; // начальное значение X

Edit2.Text:='8.75e-2'; // начальное значение Y

Edit3.Text:='-19.63'; // начальное значение Z

Memo1.Clear; // очистка Memo1

// Вывод строки в Memo1:

Memo1.Lines.Add('Лабораторная работа №1 - Линейный алгоритм');

end;

// Процедура обработки события нажатия кнопки Button1:

procedure TForm1.Button1Click(Sender: TObject);

var

x,y,z,a,b,c,u : extended; // объявление локальных переменных

begin

x:=StrToFloat(Edit1.Text); // X присваивается содержимое Edit1

y:=StrToFloat(Edit2.Text); // Y присваивается содержимое Edit2

z:=StrToFloat(Edit3.Text); // Z присваивается содержимое Edit3

// Вычисляется выражение

a:=sqrt(x)-y*y*y;

b:=sin(a)/cos(a);

c:=Exp(5*Ln(b));

u:=c+exp(y/z)*sin(z*z);

Memo1.Lines.Add('X = '+Edit1.Text+' Y = '+Edit2.Text+

' Z = '+Edit3.Text); // контрольный вывод X, Y, Z в Memo1

// Вывод результата в Memo1:

Memo1.Lines.Add(' U = '+FloatToStrF(u,ffFixed,8,3));

end;

end.

Данные, с которыми работают компоненты Edit и Memo, имеют тип String. Поэтому в процедуре TForm1.Button1Click при присваивании содержимого полей Edit1,Edit2,Edit3 переменным X,Y,Z c помощью функции StrToFloat осуществляется преобразование данных типа String в действительные значения с плавающей точкой типа Extended. Если необходимо работать с данными целого типа, используется функция StrToInt.

При выводе данных в Memo1 используется метод Add свойства Lines, причем для преобразования данных из действительного значения в строковое и управления формой представления выводимого результата используется функция FloatToStrF.

1.2.8. Работа с приложением

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

Щелкните “мышью” на кнопке “Вычислить” и в поле Memo1 появляется результат. Измените исходные значения x, y, z в полях Edit и снова нажмите кнопку ”Вычислить”. Убедитесь, что в поле Memo1 отображаются новые результаты. Завершить работу приложения можно нажатием кнопки в правом верхнем углу панели интерфейса.

В случае нештатного функционирования приложения восстановить первоначальный режим работы с проектом можно путем выбора в меню Run опции ProgramReset или нажать клавиши Ctrl+F2.

1.3. Выполнение индивидуального задания

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

Индивидуальные задания

1.

При x=14.26, y=-1.22, z=3.5 t=0.564849.

2.

При x=-4.5, y=0.75 ,z=0.845 u=-55.6848.

3.

При x=3.74 , y=-0.825, z=0.16 v=1.0553.

4.

При x=0.4 ,y=-0.875, z=-0.475 w=1.9873.

5.

При x=-15.246, y=4.642 , z=20.001 =-182.036.

Характеристики

Список файлов реферата