2.1.2. Варианты задач

Варианты задач представлены в таблице 4.

Таблица 4. Индивидуальные варианты задания 1

№пп	Арифметическое выражение	Исходные данные
1.		x=3.999*10-2, y=-6.011, z=0.245*103
2.		x=14.26, y=-1.22, z=3.5*10-2
3.		x=-4.5, y=0.75*10-4, z=0.005*102
4.		x=0.4*104, y=-0.875, z=-475*10-3
5.		x=3.999*10-2, y=6.011, z=0.245*102
6.		x=17.421, y=10.365*10-3, z=0.828*105
7.		x=-15.24б, y=4.642*10-2, z=20,001*102
8.		x=3.251, y=0.325, z=0.466*10-4
9.		x=12.3*10-1, y=15.4, z=0.252*103
10.		x=0.1722, y=6.33, z=3,25*10-4
11.		x=6.251, y=0.827, z=25.001
12.		x=1.825*102, y=18.225, z=-3.298*10-2
13.		x=2.444, y=0.869*10-2, z=-0.13*103
14.		x=3.981*10-2, y=-1.625*103, z=0.512
15.		x=-2.235*10-2, y=2.23, z=15.221

2.1.3. Пример выполнения задания Вычислить выражение

Последовательность решения задачи приведена ниже

1. Открыть новый проект.

2. Создать интерфейс пользователя на форме аналогично приведенному ниже

2. Ввести программный код, реализующий алгоритм решения задачи, вида

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

procedure TfrmMain.FormCreate(Sender: TObject);

begin

edt_a.Text:='3,2';// начальное значение a

end;

procedure TfrmMain.btnRunClick(Sender: TObject);

var

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

begin

a:=StrToFloat(edt_a.Text);// х присваивается содержимое edt_X

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

b:=exp((2/3)*ln(sqr(sin(a))));

s:=ln(abs(a))/ln(10);

y:=b/s;

{Вывод результата y}

Edit_y.Text:=FloatToStrF(y,ffFixed,9,5));

end;

4. Отобразить результаты расчетов в форме

2.2. Задание 2

2.2.1. Указания к выполнению задания Условный оператор if / then / else

Различают краткий формат и полный формат оператора If.

Краткий формат

If <условие> Then <операторы>;

При выполнении оператора If проверяется условие и, если оно исти­нно, то выполняется действие, указанное после оператора Then. Если вы­ражение ложно, то управление передается на оператор, следующий за опе­ратором If.

Полный формат

If <условие> Then <операторы1> Else <операторы 2>;

При выполнении оператора If, если условие истинно, то выполняются операторы, указанные после оператора Then, в ином случае выполняются операторы, следующие за оператором Else. После выполнения соответству­ющей группы операторов управление передается на оператор, следующий за оператором If.