Программа

procedure TForm1.Button1Click(Sender: TObject);

Var

s, n: integer;

Begin

s: =0; n: =1;

Repeat

s: =s+n*n*n;

n: =n+1

Until n> 5;

ShowMessage('Искомая сумма ' + IntToStr(s));

end;

End.

procedure TForm1.Button1Click(Sender: TObject);

Var

s, n: integer;

Begin

s: =0; n: =1;

While n< =100 do

begin

s: =s+n*n*n;

n: =n+1

end;

ShowMessage('Искомая сумма ' + IntToStr(s));

end;

End.

procedure TForm1.Button1Click(Sender: TObject);

Var

s, n: integer;

Begin

s: =0;

For n: =1 to 100 do

s: =s+n*n*n;

ShowMessage('Искомая сумма ' + IntToStr(s));

end;

End.

Задачи на использование команды повторения

1. Напечатать в порядке возрастания первые 1000 чисел, которые не имеют простых делителей кроме 2, 3, 5. (1, 2, 3, 5, 6, 8, 9, 10, 12,..).

2. Напечатать в порядке возрастания первые 1000 чисел, которые делятся на 2 или на 3, или на 5.

3. Даны два числа m и n. Найти остаток от деления m на n и неполное частное. (Не пользоваться встроенными функциями.)

4. Составьте программу, которая вычисляет сумму

а) n²+(n+1)²+…+(2n)²;

Массивы. Описание алгоритмов работы с массивами с использованием блок – схем.

Содержание предложено в [1] с. 48 – 58.

Тип – диапазон. Массивы в языке Delphi.

Тип – диапазон

Для каждого порядкового типа можно в качестве множества значений определить некоторый отрезок. Тип объектов, имеющих множеством значений – подмножество значений порядкового (базового) типа называется тип - диапазоном. Задается тип диапазон границами изменения значений данных внутри базового типа, а именно, < min значение >..< max значение >; где минимальное значение- это минимальное значение, которое могут принимать данные данного типа, максимальное - это максимальное значение, которое могут принимать объекты данного типа.

Описание переменных типа – диапазона:

1) Type

< Имя типа - диапазона> =const1..const2;

Var

< имя переменной 1>, < имя переменной 2>, …, < имя переменной n>: < имя типа- диапазона>;

2) Var

< имя переменной 1>, …, < имя переменной n>: const1..const2;

Где const1-минимальное значение переменных задаваемого типа, const2-максимальное значение переменных задаваемого типа. Если const2 < const1, то будет ошибка.

Пример:

.........

Type

Tletter = ’a’.. ’z’; (базовый тип – символьный тип)

Tint=7.. 23; (базовый тип – подмножество множества целых чисел)

Var а: Tletter;

в: tint;

с: 1..10;

Тип-диапазон наследует все свойства своего базового типа.

Функция для работы с типом - диапазоном.

1) High(x)-возвращает наибольшее значение, которое может принимать переменная указанного типа.

2) low(x)- возвращает минимальное значение, которое может принимать переменная указанного типа.