Программирование циклических алгоритмов

s:=0; n:=1;
while n<=100 do
begin
s:=s+1/n;
n:=n+1;
end;

Пример: вычислить сумму
S = 1 + 1/2 + 1/3 +… + 1/100

n>100;

Пример: вычислить сумму
S = 1 + 1/2 + 1/3 +… + 1/100

Инструкция цикла с постусловием

вычислить сумму
S=1 + 1/2 + 1/3 +… + 1/100

s:=0;
for n:=1 to 100 do
begin
s:=s+1/n;
end;

имеющих общее имя
Массивы удобно использовать для хранения однородной по своей природе информации, например, таблиц и списков и т.п.

тип
где:
имя — имя массива;
array — зарезервированное слово языка Delphi, обозначающее, что объявляемая переменная является массивом;
начальный_индекс и конечный_индекс – константы типа integer или char, определяющие границы массива;
тип — тип элементов массива.

Одномерные массивы

Примеры объявления массивов:
koef : array[0..99] of integer;
name : array[1..30] of string;
temper : array[‘a’.. ‘z’] of real;

общему имени и номеру элемента, заключенному в квадратные скобки, например:
koef[1],
name[15],
temper[‘f’]

Для последовательной обработки всех элементов массива чаще всего используется цикл с параметром:
for i:=… to … do

представляют собой многострочные окна, подобно Memo, но без возможности редактирования
Они предназначены для работы с одномерным массивом строк
Нумерация строк начинается с нуля
Одна или несколько строк могут быть выделены с помощью мыши

шагом 0,01

var
. . .
i : integer;
x : real;
. . .
x:=2;
for i := 0 to 100 do
begin
ListBox1.Items.Add(FloatToStr(1/sqrt(x*x-1));
x:=x+0.01;
end;
Возможен и такой вариант:
x:=2;
while x<=3 do
begin
ListBox1.Items.Add(FloatToStr(1/sqrt(x*x-1));
x:=x+0.01;
end;

:= 0 to ListBox1.Count-1 do
begin
if ListBox1.Selected[i] then
begin
ListBox2.Items.Add(ListBox1.Items[i]);
end;
end;

А если нужно не скопировать, а перенести, то так:
i := 0;
while i<= ListBox1.Count-1 do
begin
if ListBox1.Selected[i] then
begin
ListBox2.Items.Add(ListBox1.Items[i]);
ListBox1.Items.Delete(i);
end
else i := i + 1;
end;

Items и Count как у класса TListBbox

Имеют все методы класса TListBox

Свойства, отсутствующие у класса TListBox:

введенным пользователем, если этот элемент отсутствует в списке
ComboBox1.Items.Add(ComboBox1.Text));

if ComboBox1. ItemIndex = -1 then
ComboBox1.Items.Add(ComboBox1.Text));

Пример 3: подсчет количества нулевых элементов в списке

k:=0;
for i := 0 to ComboBox1.Count-1 do
begin
if ComboBox1.Items[i] = ‘0’ then
k := k + 1;
end;
Edit2.Text:= IntToStr(k); {вывод результата на экран}