Объявление записи

Запись

План заняття

End.

Begin

Case Key of

Begin

Begin

Implementation

Var

Type

Uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms, Dialogs, Grids, StdCtrls;

TForm1= class(TForm)

Label1: TLabel;

StringGrid1: TStringGrid;

Button1: TButton;

Label2: TLabel;

procedure Button1ClicktSender: TObject);

procedure StringGridlKeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

Form1: TForm1;

{$R *.dfm}

procedure TForm1.ButtonlClick(Sender: TObject);

var

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

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

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

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

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

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

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

for i:= 1 to 5 do

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

then a[i]:= StrToFloat(StringGridl.Cells[i-1, 0]) else a[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;

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

procedure TForm1.StringGridlKeyPress(Sender: TObject; var Key: Char);

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

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

if StringGridl.Col < StringGridl.ColCount - 1

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

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

if Key <> DecimalSeparator then

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

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

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

DecimalSeparator) <> 0

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

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

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

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

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

Key:= Chr(0);

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

key:= Chr(0);

end;

end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Как любой тип, создаваемый программистом, тип "запись" должен быть объявлен в разделе type. В общем виде объявление типа "запись" выглядит так:

Имя = record

Поле_1: Тип_1; Поле_2: Тип_2; Поле_К: Тип_К; end;

где:

• Имя — имя типа "запись";
• record — зарезервированное слово языка Delphi, означающее, что далее следует объявление компонентов (полей) записи;
• поле_i и тил_i — имя и тип i-го компонента (поля) записи, где i=1,..., k;
• end — зарезервированное слово языка Delphi, означающее, что список полей закончен.

Примеры объявлений:

Дата добавления: 2014-12-25