Часть II. Delphi

Члены последовательности вычислять до тех пор, пока текущий член последовательности не станет меньше заданного числа ε (0<ε<0,0001).

№ 5.17 Составить программу для вычисления суммы ряда:

Сумму ряда вычислять до тех пор, пока текущий член последовательности не станет меньше заданного числа ε (0<ε<0,0001).

№ 5.18 Составить программу для вычисления суммы ряда:

1 1 1 1 1 1 ...

2 3 4 5 6

Сумму ряда вычислять до тех пор, пока текущий член последовательности не станет меньше заданного числа ε (0< ε <0,0001).

№ 5.19 Вычислить произведение

Вычисление прекратить, как только очередной сомножитель станет меньше введенного пользователем положительного числа ε (0<ε≤0,1).

№ 5.20 Вычислить произведение

,

где четный сомножитель имеет отрицательный знак. Вычисление прекратить, как только очередной сомножитель по модулю станет меньше введенного пользователем числа ε (0<│ε│≤0,1).

Глава 6. Использование массивов в программах. Компонент Memo для ввода данных в массив

В данной главе рассматриваются следующие вопросы: массивы, компонент

Memo для ввода и вывода массивов.

Часть II. Delphi

Замечание. В первой строке поля Memo по умолчанию выводится имя самого компонента Memo . Чтобы номер элемента вашего массива и номер строки Memo совпадали, не надо стирать имя Memo.

Тогда чтение элементов символьного массива из Memo можно написать, например, так:

For i:=1 to Size do

arr4 [i]:=Memo1.Lines[i];

Чтение элементов целочисленного массива из Memo запишется так: For i:=1 to N do

arr[i]:=StrToInt(Memo1.Lines[i]);

Чтение элементов массива действительных чисел из Memo запишется так: For i:=1 to N do

arr[i]:=StrToFloat(Memo1.Lines[i]);

Запись элементов символьного массива в Memo можно написать, например, так: For i:=1 to Size do

Memo1.Lines.add(arr4 [i]);

Запись элементов целочисленного массива в Memo запишется так: For i:=1 to N do

Memo1.Lines.add(IntToStr(a[i]));

Запись элементов массива действительных чисел в Memo запишется так: For i:=1 to N do

Memo1.Lines.add(FloatToStr(a[i]));

Практика

Разберем алгоритм поиска минимального элемента в массиве.

1.Ввод количества элементов N в массиве Massiv.

2.Ввод элементов массива Massiv.

3.Переменной MIN ( в ней будет храниться минимальный элемент) присвоим значение первого элемента массива:

MIN:=MASSIV[1];

4.Индексу элемента массива I присвоим значение 2. Поиск начинаем со второго элемента.

5.Сравним MIN и текущий элемент массива MASSIV[I]. Если MIN больше текущего элемента Massiv[I], то в переменную MIN поместим текущее значение элемента массива: MIN:=MASSIV[1]; (получим новое значение минимума).

Иначе на следующий пункт алгоритма (пункт 6).

6.Увеличим индекс массива на единицу I:=I+1;

7.Сравним текущий индекс массива с количеством элементов в массиве. Если

Часть II. Delphi

массив закончился (I>N),то переменная MIN содержит результат (переход к пункту 8). Если нет, то возвращаемся к пункту 5.

8. Вывод минимального элемента массива MIN.

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

MIN:=MASSIV[I];

For I:=2 To N Do IF MASSIV[I]<MIN

Then MIN:=MASSI[I];

Label3.Caption:= 'Минимальный элемент массива равен '+ FloatToStrF(MIN, Fffixed,10,2);

Задача 6а

Дан массив, состоящий из N вещественных чисел. Подсчитать количество отрицательных, положительных чисел и нулей в массиве.

Опишем алгоритм для решения этой задачи.

1.Введем количество чисел в анализируемом массиве N.

2.Обнулим переменные−счетчики чисел SO − счетчик отрицательных чисел, SP − счетчик положительных чисел, S − счетчик нулей.

SO:=0; SP:=0; S:=0;

3.Начнем ввод и анализ массива с первого элемента. Индексу массива присвоим значение 1. I:=1;

4.Введем I−ый элемент массива A[I].

5.Если I−ый элемент массива A[I] меньше нуля, то счетчик отрицательных чисел увеличиваем на единицу: SO:=SO+1 и переходим на пункт 7. В противном случае переходим к пункту 6.

6.Если I−ый элемент массива A[I] больше нуля, то счетчик положительных чисел увеличиваем на единицу: SP:=SP+1 и переходим к пункту 7. В противном случае, анализируемый элемент массива является нулем. Увеличиваем счетчик нулей на единицу S=S+1 и переходим к пункту 7.

7.Увеличим индекс элемента массива на единицу I:=I+1;

8.Сравним текущий индекс элемента массива с количеством чисел в массиве. Если I<=N, то переходим к пункту 4. В противном случае выполняется следующий пункт алгоритма.

9.Выводим полученные значения счетчиков отрицательных, положительных чисел и нулей: SO, SP, S.

Компоненты

Часть II. Delphi

Часть II. Delphi

работы

программы

Проект формы

Текст модуля

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

TForm1 = class(TForm) Label1: TLabel; Label2: TLabel;

Edit1: TEdit;

Часть II. Delphi

'Количество нулей = '+ IntToStr(S)

end;

procedure TForm1.Button2Click(Sender: TObject); begin

Form1.Close

end;

end.

Задача 6b

Составить программу для сортировки массива действительных чисел по желанию пользователя: по возрастанию или по убыванию. Результаты сортировки вывести в окно сообщения.

Компоненты

Часть II. Delphi

Часть II. Delphi

Проект формы

Часть II. Delphi

Var I:Integer;// индекс элемента исходного массива j : Integer; //индекс элемента массива

//с которого начинается // поиск минимального элемента

buf: Extended; // буфер для обмена местами // элементов массива

St:String; // строковое сообщение, содержащее результат

begin

//ввод количества элементов в массиве

N:=StrToInt(Edit1.Text);

//ввод массива действительных чисел

For I:=1 To N do Massiv[I]:=StrToFloat(Memo1.Lines[I]);

// поиск минимального элемента массива методом прямого выбора {Алгоритм метода прямого выбора можно описать так. Сначала в качестве

минимального элемента берется первый элемент и с ним последовательно сравниваются все следующие элементы массива, если попадается элемент меньше принятого за минимальный, то они меняются местами. В результате на первом месте оказывается самый маленький элемент массива. Затем берется второй или следующий элемент массива и просматривается с перестановкой оставшаяся часть массива. Эта последовательность шагов повторяется пока номер минимального элемента не достигнет N-1}

For I:=1 to N-1 do For j:=I+1 to N do

if Massiv[j] < Massiv[I] then

begin buf:=Massiv[I];

Massiv[I]:=Massiv[j];

Massiv[j]:=buf;

end;

end;

//вывод результатов сортировки

St := 'Отсортированный по возрастанию массив'+#13; For I:=1 to N do

st:=st+IntToStr(i)+ ' '+FloatToStrF(Massiv[I],Fffixed,10,2)+#13; ShowMessage(st);

end;