2) Операторы цикла
Операторы цикла служат для организации циклов (повторов). Цикл представляет собой последовательность операторов, которая может выполняться более одного раза. Группу повторяемых операторов называют телом цикла. Для построения цикла можно применять условный оператор и оператор перехода. Однако в большинстве случаев удобно использовать операторы цикла.
Существуют три вида операторов:
с параметром;
с постусловием;
с предусловием.
Оператор цикла с параметром.
Оператор имеет два возможных формата:
For <Параметр> := < Выражение1> to < Выражение2> do <Оператор>;
и
For <Параметр> := < Выражение1> downto < Выражение2> do <Оператор>;
Параметр цикла представляет собой переменную порядкового типа. Выражение1 и Выражение2 являются, соответственно, начальным и конечным значениями параметрами цикла и должны иметь тип, совместимый с типом параметра цикла.
Оператор цикла (Оператор) обеспечивает выполнение тела цикла.
Пример цикла с параметром:
Var n, k: integer;
. . .
s := 0;
for n:=1 to 10 do s:= s + m[n];
В цикле выполняется расчет суммы десяти значений массива m.
2.2. Перечень используемого оборудования Персональный компьютер
3. Задание. Создать программу, которая создаёт массив случайных чисел, подсчитывает их среднее арифметическое, а также определяет и выводит на экран минимальное и максимальное из этих чисел.
3.1 Запустить Delphi
3.2 Автоматически программа создаст проект, если проект не создался создаём его вручную.
File => New => Application
Поместить на форму:
4 компонента (Label1, Label2, Label3, Label4) ;
Кнопку (Button1);
Текстовое поле (Memo1);
Рис.1 Пример расположения компонентов на форме.
Процедура обработки нажатия кнопки Button1.
procedure TForm1.Button1Click(Sender: TObject);
const
N=10; // Кол-во элементовмассива
MAX_VALUE =100; // Диапазон значений случайных чисел
Var
m: Array[1..N] of integer; // Массив чисел
I: Integer; // Индекс массива
max,min:Integer; // Максимальное и минимальное число
sum:Real; // Сумма чисел
begin
// Наполняем массив случайными числами:
for i:=1 to n do
begin
m[i]:=Random(MAX_VALUE); // Random (диапазон)- выбо случаеных чисел
end;
// Задаем начальные значения переменных:
sum:=m[1];
max:=m[1];
min:=m[1];
// Цикл вычисления суммы всех случайных чисел и поиска
// минимального и максимального:
for i:=2 to N do
begin
sum:=sum+m[i];
if m[i]<min then
min:=m[i]
else if m[i]>max then
max:=m[i]
end;
label1.Caption:='Максимальное '+IntToStr(max);
label2.Caption:='Минимальное '+IntToStr(min);
label3.Caption:='Сумма '+floatToStr(sum);
label4.Caption:='Cреднее арифметическое '+floatToStr(sum/N);
memo1.Clear; // Удаляем текст из memo1
for i:=1 to N do
begin
memo1.Text:= memo1.Text+IntToStr(m[i])+' | ';
end;
end;
4. Контрольные вопросы
4. 1. Что такое массив?
4. 2. Как объявить массив?
4. 3. Как декларируется переменная?
4.4. Как работает оператор присваивания? З А М Е Н И Т Ь ВОПРОСЫ
5. Содержание отчёта
Отчёт должен содержать:
Название работы
Цель работы
Задание
Ответы на контрольные вопросы
Выводы к работе.