Implementation. procedureTForm1.ButtonlClick(Sender: TObject);

{$R *.dfm}

procedureTForm1.ButtonlClick(Sender: TObject);

var

a : array[1..5] of real; // массив

suram: real; // сумма элементов

sr: real; // среднее арифметическое

i: integer; // индекс

Begin

// ввод массива

// считаем, что если ячейка пустая, то соответствующий

// ей элемент массива равен нулю

for i:= 1 to 5 do

ifLength(StringGridl.Cells[i-l,0])<>0

then a[i] := StrToFloat(StringGridl.Cells[i-1, 0]) elsea[i] := 0;

// обработка массива

summ := 0;

for i :=1 to 5 do

summ := summ + a[i]; sr := summ / 5;

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

Label2.Caption :=

'Сумма элементов: ' + FloatToStr(summ)

+ #13+ 'Среднее арифметическое: ' + FloatToStr(sr); end;

'/ Функция обеспечивает ввод в ячейку только допустимых символов

procedureTForm1.StringGridlKeyPress(Sender: TObject; var Key: Char);

Begin

Case Key of

#8,'0'..'9' : ; // цифры и <Backspace>

#13: // клавиша <Enter>

if StringGridl.Col < StringGridl.ColCount - 1

thenStringGridl.Col := StringGridl.Col + 1; '.',',':

// разделитель целой и дробной частей числа

Begin

if Key <>DecimalSeparator then

Key := DecimalSeparator; // заменим разделитель

// на допустимый

if Pos(StringGridl.Cells[StringGridl.Col,0],

DecimalSeparator) <>0

thenKey := Chr(O); // запрет ввода второго

// разделителя end;

' -' : // минус можно ввести только первым символом,

// т. е. когда ячейка пустая

ifLength(StringGrid1.Cells[StringGrid1.Col, 0]) <>0 then

Key := Chr(0) ;

else// остальные символы запрещены

key := Chr(0);

End;

End;

End.

Контрольні питання

1. Надати характеристику масивів

2. Оголосити принципи об’яви масивів

3. Виконати операції з масивами

4. Оголосити процедуру вводу масива

АУДИТОРНЕ ЗАНЯТТЯ

ЗМІСТОВИЙ МОДУЛЬ 3: МАСИВИ. ЗАПИСИ ТА МНОЖИНИ

ТЕМА 3.2: ЗАПИСИ

Лекція №25 –Записи

План заняття

1. Характеристика записів

2. Об’ява запису

3. Введення та виведення записей у файл

4. Читання запису з файлу

Запись

В практике программирования довольно часто приходится иметь дело с данными, которые естественным образом состоят из других данных. Например, сведения об учащемся содержат фамилию, имя, отчество, число, месяц и год рождения, домашний адрес и другие данные. Для представления подобной информации в языке Delphi используется структура, которая носит название запись (record).

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

Итак, запись — это структура данных, состоящая из отдельных именованных компонентов разного типа, называемых полями.