Решение задачи 3
Для решения задачи нужны элементы ввода, вывода и элемент запуска счёта чисел. Для ввода и вывода чисел будет использоваться объект Edit. Для запуска вычисления чисел будет использоваться объект Button.
Внешний вид вкладки приведён на рисунке 11.
Рис. 11 (Внешний вид вкладки для решения третьей задачи)
Процедура, вызываемая при нажатии на кнопку расчета чисел, приведена ниже:
procedure TForm1.ButtonRez3Click(Sender: TObject);
var D,S:Real;
i:Integer;
begin
if EditEps.Text=' '
then ShowMessage ('Укажите Eps')
else
if EditX3.Text=' '
then ShowMessage ('Укажите X')
else
if EditN.Text=' '
then ShowMessage ('Укажите N')
else
begin
for i:=0 to StrToInt(EditN.Text)-1 do
begin
D:=(Exp((Exp(i*Ln(2)))*Ln(StrToFloat(EditX3.Text))));
while (D)<StrToFloat(EditEps.Text) do
begin
S:=(S)+(D);
D:=(Exp((Exp(i*Ln(2)))*Ln(StrToFloat(EditX3.Text))));
end;
end;
end;
EditRez3.Text:=FloatToStr(s)
end;
На рисунках с 12-ой по 15-ую приведены иллюстрации работы процедуры:
Рис. 12 (Результат вычисления при корректных данных)
Рис. 13 (Результат вычисления при некорректных данных)
Рис. 14 (Результат вычисления при некорректных данных)
Рис. 15 (Результат вычисления при некорректных данных)
Решение задачи 4
Для решения задачи нужны элементы ввода, вывода и элемент запуска обработки массива. Для ввода и вывода чисел будет использоваться объект Memo. Для запуска обработки массива будет использоваться объект Button.
Внешний вид вкладки приведён на рисунке 16.
Рис. 16 (Внешний вид вкладки для решения четвертой задачи)
Процедура, вызываемая при нажатии на кнопку обработки массива, приведена ниже:
procedure TForm1.ButtonRez4Click(Sender: TObject);
var i,j:Integer;
begin
if Memo1.Lines.Count=0
then ShowMessage ('Укажите массив')
else
Memo2.Lines.Clear;
for i:=0 to Memo1.Lines.Count-1 do
begin
Memo2.Lines.Add('0');
for j:=0 to Memo1.Lines.Count-1-i do
begin
Memo2.Lines.Strings[i]:=FloatToStr(StrToFloat(Memo2.Lines.Strings[i])
+StrToFloat(Memo1.Lines.Strings[i+j]))
end;
end;
end;
На рисунках с 17-ой по 18-ую приведены иллюстрации работы процедуры:
Рис. 17 (Результат вычисления при корректных данных)
Рис. 18 (Результат вычисления при некорректных данных)
Решение задачи 5
Для решения задачи нужны элементы ввода, вывода, отображение строк и столбцов и элемент запуска обработки матрицы. Для ввода и вывода чисел будет использоваться объект Edit. Для отображения строк и столбцов будет использоваться объект StringGrid. Для запуска обработки матрицы будет использоваться объект Button.
Внешний вид вкладки приведён на рисунке 19.
Рис. 19 (Внешний вид вкладки для решения пятой задачи)
Процедуры, изменения размера матрицы при вводе их значений:
procedure TForm1.EditMChange(Sender: TObject);
begin
if EditM.Text<>' '
then
begin
StringGrid1.RowCount:=strtoint(EditM.Text);
StringGrid2.RowCount:=strtoint(EditM.Text)
end;
end;
procedure TForm1.EditWChange(Sender: TObject);
begin
if EditW.Text<>' '
then
begin
StringGrid1.ColCount:=strtoint(EditW.Text);
StringGrid2.ColCount:=strtoint(EditW.Text);
end;
end;
Процедура, вызываемая при нажатии на кнопку обработки матрицы, приведена ниже:
procedure TForm1.ButtonRez5Click(Sender: TObject);
var i,j,z:Integer;
begin
if EditM.Text=' '
then ShowMessage ('Укажите количество строк')
else
if EditW.Text=' '
then ShowMessage ('Укажите количество столбцов')
else
if stringgrid1.RowCount<>stringgrid1.ColCount
then showmessage('Матрица не квадратная!!!')
else
begin
z:=0;
for i:=0 to stringgrid1.RowCount-1 do
begin
for j:=0 to stringgrid1.ColCount-1 do
begin
if StringGrid1.Cells[i,j]=' '
then z:=1
end;
end;
end;
if z=1 then ShowMessage ('Введите числа массива')
else
for i:=0 to stringgrid1.RowCount-1 do
begin
for j:=0 to StringGrid1.ColCount-1 do
begin
if j=StringGrid1.ColCount-1-i
then
StringGrid2.Cells[i,j]:=FloatToStr((i+1)*(i+2))
else
StringGrid2.Cells[i,j]:=FloatToStr(0)
end;
end
end;
На рисунках с 20-ой по 24-ую приведены иллюстрации работы процедуры:
Рис. 20 (Результат вычисления при корректных данных)
Рис.
21 (Результат вычисления при некорректных
данных)
Рис.
22 (Результат вычисления при некорректных
данных)
Рис.
23 (Результат вычисления при некорректных
данных)
Рис.
24 (Результат вычисления при некорректных
данных)