По программированию в среде Delphi

4.Как заполнить первые зафиксированные строки строковой таблицы?

5.Расскажите об особенностях объявления массивов.

6.Как и где определяются основные размеры строковой таблицы StringGrid?

7.Каким образом осуществляется доступ к элементам массива в программе ?

8.Как объявляется одномерный и двухмерный массивы?

9.Приведите примеры на одномерные и двухмерные массивы?

10.Как программным путем осуществить доступ к полям строковой таблицы?

Лабораторная работа 6. Создание файла

Цель работы.

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

Общие сведения.

Файл - это структура данных, представляющая собой последовательность компонентов одного типа. Типом компонентов может быть любой тип Delphi, кроме файлов. Как и любая переменная программы, файл должен быть объявлен в разделе описания переменных. В зависимости от способа объявления можно выделить три вида файла.

1) типизированные файлы.

При объявлении файла указывается тип его компонентов.

<имя>: file of <тип компонентов>;

Примеры:

var

satr: file of char; {символьный файл}

Car: file of real; {файл с вещественными компонентами}

aa: file of ff ; { ff - тип пользователя, который объявляется в разделе type}.

2) текстовые файлы.

<имя>: TextFile;

Пример:

var

вв: TextFile; {текстовый файл, TextFile - обозначение типа}.

3) нетипизированные файлы (определяются типом File).

Пример:

var

сс: File;

Нетипизированные файлы отличаются тем, что для них не указан тип компонентов. Отсутствие типа делает эти файлы, с одной стороны, совместимыми с любыми другими файлами, а с другой - позволяет организовать высокоскоростной обмен данными между диском и памятью. При работе с нетипизированными файлами могут применяться все процедуры и функции, доступные типизированным файлам, за исключением Read и Write, которые заменяются соответственно высокоскоростными процедурами BlockRead и BlockWrite.

Объявление файловой переменной задает только тип компонентов файла. Чтобы программа могла выводить данные в файл или считывать данные из файла, необходимо указать конкретный файл, т. е. задать имя файла на диске. Имя файла задается процедурой AssignFile, связывающей файловую переменную с конкретным внешним файлом (файлом на диске), который создается или уже существует.

Описание процедуры имеет вид:

AssignFile(var f , <имя файла>: string);

Примеры:

AssignFile(f, `с:\result.txt');

AssignFile(f, `с\star\work\natj.txt');

fname:= `kor.txt';

AssignFile(f, fname);

Непосредственно вывод в текстовый файл осуществляется при помощи инструкций write или writeln. В общем виде эти инструкции записываются следующим образом:

write(<Файловая переменная>, <Список вывода>);

writeln(<Файловая переменная>, <Список вывода>);

<Файловая переменная>- переменная, идентифицирующая файл, в который выполняется вывод.

<Список вывода>- разделенные запятыми имена переменных, значения которых нужно вывести в файл. Помимо имен переменных в список вывода можно включать строковые константы.

Пример:

write(f, `корни уравнения =',x1,x2);

Различия между инструкциями write и writeln состоит в том, что инструкция writeln после вывода всех значений, указанных в списке вывода, записывает в файл символ “новая строка”.

Чтобы открыть файл в режиме создания нового файла или замены существующего, необходимо вызвать процедуру Rewrite(f), где f - файловая переменная типа TextFile.

Чтобы открыть файл в режиме добавления к уже существующим данным, находящимся в этом файле, необходимо вызвать процедуру Append (f). Процедура Append (f) применяется только в текстовых файлах.

Попытка открыть файл может завершиться неудачей и вызвать ошибку времени выполнения программы. При запуске программы и из Delphi и из Windows в случае ошибки появляется соответствующее окно сообщения. Программа может взять на себя задачу контроля за результатом выполнения инструкции открытия файла. Это можно сделать, проверив значение функции IOResult (Input-Output Result - результат ввода-вывода). Функция IOResult возвращает 0, если операция ввода/вывода завершилась успешно; в противном случае - код ошибки не ноль. Для того чтобы программа смогла проверить результат выполнения операции ввода/вывода, нужно разрешить ей это сделать. Для этого надо перед инструкцией вызова открытия файла поместить директиву компилятору - {$I-}, которая запрещает автоматическую обработку ошибок ввода/вывода. Эта директива сообщает компилятору, что программа берет на себя контроль ошибок. После инструкции открытия файла следует поместить директиву {$I+}, восстанавливающую режим автоматической обработки ошибок ввода/вывода

Перед завершением работы программа должна закрыть все открытые файлы. Это делается вызовом процедуры Close(f).

Задание к работе.

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

Для ввода данных в диалоговом окне необходимо создать три поля редактирования - Edit1 для ввода дней, Edit2 для ввода номера месяца и Edit3 для ввода температуры. Для записи сформированных данных в файл используем компоненту Button1 с заголовком Добавить. Свойству Enabled этой кнопки нужно присвоить значение FALSE .

Для открытия файла базы данных воспользуемся процедурой TForm1.FormActivate, которая запускается автоматически при активизации формы приложения. Если операция открытия файла завершается успешно, то процедура делает доступным кнопку Добавить. В противном случае кнопка остается недоступной и нужно просто закрыть окно программы. Процедура открытия файла:

procedure TForm1.FormActivate(Sender: TObject);

begin

AssignFile(f, `с:\ weather.db');

{$I-}

Append (f);

if IOresult = 0

then Button1. Enabled := TRUE

else

begin

Rewrite(f);

if IOresult = 0

then Button1.Enabled:= TRUE

else ShowMessage(`Ошибка создания файла');

end;

end;

Если все поля редактирования нашей формы заполнены то при щелчке на кнопке Добавить введенная информация записывается в базу данных - файл weather.db. Процедура этого события имеет следующий вид:

procedure TForm1.ButtonClick(Sender: TObject);

begin

if (length(Edit1.text)=0)

or (length(Edit2.text)=0)

or (length(Edit3.text)=0)

then ShowMessage(`Ошибка ввода данных.' + #13 + 'Все поля должны быть заполнены.')

else writeln(f, Edit1.text, ' ', Edit2.text, ' `, Edit3.text);

end;

В результате работы процедуры в конец файла будет добавлена строка, содержащая три числа: номер месяца, число месяца и температуру воздуха. Пробелы, использованные в процедуре, служат для разделения чисел друг от друга, иначе все числа сольются в одно. Закрывает базу данных процедура TForm.FormClose, которая обрабатывает событие Onclose, возникающее при закрытии пользователем формы приложения.

procedure TForm.FormClose(Sender : TObject; var Action: TCloseAction);

begin

CloseFile(f);

end;



Переменную f следует описать в разделе описания переменных модуля как f: TextFile, так как она используется как общая переменная во всех приведенных выше процедурах.

Задания для самостоятельного выполнения.

1.Создать проект позволяющий сформировать файл, содержащий сведения о месячной заработной плате рабочих завода. Каждая запись содержит поля - фамилия рабочего, номер цеха, размер заработной платы за месяц.

2.Разработать диалоговое окно позволяющий создать файл, содержащий сведения о телефонах абонентов. Каждая запись имеет структуру - фамилия абонентов, год установки телефона, номер телефона.

3.Разработать проект позволяющий создать файл, имеющий следующую структуру: фамилия сотрудника университета, год рождения, год поступления на работу, должность.

4.Создать проект позволяющий сформировать файл, содержащий сведения о ходе работ по вспашке земли в хозяйстве. Структура записи: фамилия тракториста, площадь земли вспаханной за день, дата.

5.Создать диалоговое окно позволяющий сформировать файл, имеющий следующую структуру - номер машины, сведение о пробеге автомобиля, дата проверки.

6.Разработать проект позволяющий создать файл, содержащий сведения о товарах, хранящихся на складе: шифр товара, количество единиц, стоимость одной единицы.

7.Создать диалоговое окно, позволяющий сформировать файл, содержащий результаты физического эксперимента. Структура записи: время, величина тока нагрузки, температура в тигеле.

8.Создать проект, с помощью которого можно регистрировать ежедневный сбор урожая в теплице. Записи файла должны иметь следующие поля - дата, количество собранных за день помидор, количество собранных огурцов.

9.Разработать диалоговое окно позволяющий создать файл содержащий результаты наблюдения за сушкой древесины в сушильной камере. Записи файла имеют следующие поля - время, температура и влажность древесины.

10.Создать диалоговое окно, позволяющий сформировать файл содержащий сведения о ежедневных надоях молочной фермы. Файл должен содержать следующие данные: шифр коровы, количество молока за день, дата.

Вопросы для самопроверки.

1.Какую роль выполняет переменная файлового типа?

2.Каким образом объявляется переменная файлового типа?

3.Спомощью какой инструкции устанавливается связь файловой переменной с файлом на диске?

4.Как открывается файл для записи?

5.Что произойдет если файл объявленный открытым для записи с таким именем уже существует?

6.Каков порядок открытия файла для записи?

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

8.Назначение функции IOResult?

9.Как расположить записи в файле по строкам?

10.Как расположить записи в файле в одну строку?

Лабораторная работа 7. Ввод из файла

Цель работы.

Целью настоящей работы является получение практических навыков чтения (ввода) данных из существующего файла для дальнейшей их обработки

Общие сведения.

Исходные данные для их дальнейшей обработки можно вводить не только с клавиатуры или программно, но также и из текстового файла. Для этого нужно объявить файловую переменную типа TextFile, назначить ей с помощью AssignFile имя файла, из которого будут считываться данные, открыть файл для чтения процедурой reset и прочитать (ввести) данные, используя инструкцию read или readln .

Пример:

var

f: TextFile;

…

begin

AssignFile(f, c:\ data.txt);

Reset(f);

В приведенном ниже фрагменте программы для проверки правильности результата открытия файла используется значение функции IOresult.

…

label m;

var

f: TextFile;

fname: string[80]; {для записи краткого или полного имени файла}

res: integer; {для хранения значения функции IOresult}

answ: word: {ответ пользователя}

begin

fname:= `c:\ data.txt';

AssignFile(f, fname);

repeat

{$I-}

Reset(f); {открытие файла для чтения}

{$I+}

res:= IOresult; {При успешном завершении открытия файла IOresult := 0}

if res <> 0

then answ:= MessageDlg(`Ошибка открытия ' + fname + #13 + `Повторить попытку ? ', mtWarning, [mbYes, mbNo], 0;);

until (res = 0) OR (answ = mbNo);

if res <> 0 then goto m;

{здесь инструкции программы, которые выполняются в случае успешного открытия файла}

m:

…

Общий вид инструкций read и readln :

read(<Файловая переменная>, <Список переменных> );

readln(<Файловая переменная>, <Список переменных>);

<Файловая переменная> - переменная типа TextFile ;

<Список переменных> - имена переменных разделенных запятыми.

Отличие инструкции readln от read состоит в том, что после считывания очередного числа и присвоения его значения последней переменной списка инструкции readln происходит переход к следующей строке файла. Например, пусть файл data.txt содержит следующие строки:

5 98 10

5 98 12

Тогда во время выполнения процедуры

procedure Simp;

var

f: TextFile;

a, b, c: integer;

begin

assignFile(f, `c: \ data.txt');

reset(f);

read(f, a);

readln(f, b);

read(f, c);

end;

переменная a получит значение 12, переменная b получит значение 5 , а переменная с получит значение равное15.

Следует отметить, что для определения конца файла используется функция EOF(End Of File - конец файла). Функция имеет один параметр - файловую переменную. Значение функции EOF равно FALSE, если прочитанный элемент данных не является последним в файле, т. е. возможно дальнейщее чтение из файла. Если прочитанный элемент данных является последним в файле, то значение EOF равно TRUE .

Задание на работу.

Пусть на диске есть текстовый файл, содержащий информацию о доходах. Каждая строка файла начинается с цифры, соответствующей величине дохода, за которой следует строка символов - комментарий. Необходимо вычислить суммарный доход и вывести результат.

Приведем процедуру, которая решает поставленную задачу. Процедура запускается при активизации окна приложения, которое содержит только один компонент- поле метки, используемое для вывода результата работы программы.

procedure (Sender: TObject);

var

fname: string[20];

f: TextFile;

inc: integer;

sum: integer;

begin

fname:= `c: \ incom.txt';

AssignFile(f, fname);

{$I-}

Reset(f);

{$I+}

if IOresult = 0

then begin sum:=0;

while NOT EOF(f) do

begin

readln(f, inc);

sum:= sum + inc; { StrToInt(inc)-ведь файл текстовый }

end;

CloseFile(f);

Label1.caption:= `Суммарный доход:' + IntToStr(sum);

end

else

Label1.caption:= `Ошибка открытия' + fname;

end;

Для организации обработки файла в программе использована инструкция while, которая обеспечивает проверку значения функции EOF перед каждым чтением, в том числе и перед первым. Перед первым чтением проверка осуществляется потому, что хотя открываемый файл может существовать на диске, однако он может быть пустым.

Задания для самостоятельного выполнения.

1.Используя файл созданный в предыдущей работе ,создайте проект чтения данных и его обработку в результате которой будет вычислено итоговая сумма заработной платы рабочих по каждому отдельно взятому цеху.

2.Используя данные файла созданного в предыдущей работе, определите номер телефона и год его установки заданного абонента, предварительно отсортировав номера телефонов по принадлежности к той или иной АТС.

3.По данным прочитанным из файла составьте программу определения стажа работы сотрудника, год его рождения и занимаемую должность. Соответствующий файл был создан Вами в предыдущей работе. Данные должны выводится компонентой Label1 проекта Delphi.

4.Составте программу чтения данных из файла, созданного Вами в предыдущей работе. Результатом работы программы должна быть общая площадь вспаханной земли трактористом за период от Дата1 до Дата2.

5.Составить проект Delphi, который, используя данные файла созданного в предыдущей работе, определит дату следующего освидетельствования и срок службы автомобиля с указанным номером.

6.Определить на какую сумму и сколько видов товаров имеется на складе. Данные прочитать из файла составленного Вами в предыдущей работе.

7. Какую мощность потребляет тигель за время проведения физического эксперимента.

В созданном Вами проекте используйте файл из предыдущей работы.

8. Определите суммарное количество огурцов и помидор собранных за указанный промежуток времени между Дата1 и Дата2. В программе используйте данные из файла составленного Вами в предыдущей работе.

9. При заданной начальной и конечной допустимой влажности древесины определить его сушки. И составленном приложении на Delphi используйте данные из файла, составленного в предыдущей работе.

10. Определить количество молока надоенного от данной коровы за неделю. В программе используйте данные из предыдущей работы.

Вопросы для самопроверки.

1.Каков порядок открытия файла для чтения?

2.Расскажите об особенностях чтения строк в файле.

3.Какова роль разделительных знаков - пробелов или конца строки при чтении из файла?

4.Как определить конец файла?

5.Какую роль выполняет файловая переменная при чтении данных из файла?

6.Отличие инструкции Readln от Read?

7.Как определить, успешно ли завершена процедура открытия файла для чтения?

8.Что с собой представляет имя файла на диске?

Лабораторная работа 8. Структура данных типа запись

Цель работы.

Целью работы является получение практических навыков работы по определению собственных типов данных сложной структуры и использованию их для решения поставленных задач.

Общие сведения.

Запись, так же как и массив, представляет собой совокупность данных. Записи отличаются от массивов тем, что во первых, к компонентам записи необходимо обращаться по именам; во вторых, все компоненты записи необязательно должны быть одного типа. Объявление комбинированных типов, объектами которых являются записи, осуществляются с помощью резервированного слова RECORD . Записи состоят из фиксированного количества компонентов, называемых полями. При объявлении должны быть указаны имя и тип каждого поля. Именем поля может быть любой идентификатор.

Тип записи должен быть объявлен в разделе type. В общем виде запись объявляется так:

<Имя> = record

<Поле1>: <Тип1>;

<Поле2>: <Тип2>;

…

<ПолеК>: <ТипК>;

end;

где:

<Имя> - имя типа записи;

<Полеi> - имя типа i-го компонента (поля) записи;

record , end - зарезервированные слова.

Примеры:

type

Tperson = record

fam: string[20];

imya: string[20];

day: integer;

Month: integer;

year: integer;

address:string[50];

end;

TDate = record

day: integer;

month: integer;

year: integer;

end;

Согласно принятому в Delphi соглашению, имена типов должны начинаться с буквы Т(от слова Type - тип). После объявления типа записи можно объявить переменную, относящуюся к этому типу, например:

var

student: Tperson;

birthday: TDate;

Для доступа к полю записи указывают имя записи и имя поля, отделяя имя поля от имени записи точкой. Например, инструкция

ShowMessage(`Имя: ', student.fam + `Адрес: ', student.address);

выводит имя и адрес студента, информация о котором находится в переменной - записи student.

Иногда тип переменной - записи объявляют непосредственно в разделе объявления переменных. В этом случае тип записи указывается сразу за именем переменной, через двоеточие. Например, запись student может быть объявлена в разделе var следующим образом:

var

student: record

fam: string[20];

Imya: string[20];

day:integer;

month:integer;

address: string[50];

end;

С помощью инструкции with устанавливается область, внутри которой к компонентам записи можно обращаться по имени поля, не употребляя ни имени всей записи, ни точки. В общем случае инструкция выглядит так:

with <Имя> do

begin

{ последовательность инструкций}

end;

где:

with - зарезервированное слово , означающее, что далее до слова end при обращении к полям записи можно не указывать имя записи;

<Имя>- имя переменной- записи.

Например, если в программе объявлена переменная - запись

student: record

fam: string[20];

Imya: string[20];

address:string[50];

end;

и данные о студенте находятся в полях Edit1, Edit2 и Edit3 диалогового окна, то для заполнения полей записи вместо инструкции;

student.fam:= Edit1.text;

student.Imya:= Edit2.text;

student.address:= Edit3.text;



можно записать

with student do

begin

fam:= Edit1.text;

Imya:= Edit2.text;

address:= Edit3.text;

end;

Записи можно хранить в файле. Для этого надо объявить файл, указав в качестве типа его компонентов тип записи (record). Например, инструкции

type

Tperson = record

fam:string[20];

Imya: string[20];

address: string[50];

end;

var

f: file of Tperson;

объявляют файл, компонентами которого являются записи типа Tperson. После объявления файла, связывания файловой переменной с конкретным файлом (AssignFile), открытия файла(Append, Reset или Rewrite) переменные- записи могут записываться в файл и читаться из файла инструкциями write и read соответственно.

Задание на работу.

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

Приведем модуль формы приложения, с помощью которого можно решить первую часть поставленной задачи:

unit appres;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm) // описание формы приложения

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit

Button1: TButton;

Label5: TLabel;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

RadioGroup1: TRadioGroup;

Label4: TLabel;

procedure FormActivate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button1Click(Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

TKind = (GOLD, SILVER, BRONZE); // тип медали

TMedal = record // запись файла

country: string[20];

sport: string[20];

person: string[40];

kind: TKind;

end;

var

Form1: TForm1;

f: file of TMedal;

implementation

{$R *.DFM}

procedure TForm1.FormActivate( Sender: TObject);

var

resp: word;

begin

AssignFile(f, `с:\ medals.db');

{$I-}

Append(f); // открыть файл для добавления

{$I+}

if IOresult = 0

then button1.enabled:= TRUE

else

begin

resp:= MessageDlg(`Файл базы данных не найден' + `Создать новую БД?', mtInformation, [mbYes, mbNo],0);

if resp = mrYes

then begin

{$I-}

rewrite(f);

{$I+}

if IOresult = 0

then button1.enabled:= TRUE

else ShowMessage(`Ошибка создания БД.');

end;

end;

end;

procedure TForm.Button1Click(Sender: TObject);

var

medal: TMedal;

begin

with medal do

begin

country:= ComboBox1.Text;

sport:= Combo Box2.Text;

person:= Edit1.Text;

case RadioGroup1.ItemIndex of

0:kind:= GOLD;

1:kind:= SILVER;

2:kind:= BRONZE;

end;

end;

write(f, medal);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

CloseFile(f);

end;



Файл базы данных открывается процедурой TForm1.Activate . Добавление записи в файл выполняет процедура TForm1.Button1Click, которая запускается при щелчке на кнопке Добавить. Значения полей записи country и sport заполняются с помощью компонент комбинированных списков - ComboBox1(Страна) и ComboBox2(Вид спорта). Список стран и видов спорта следует ввести во время создания формы приложения в свойства Items. Поле person заполняется из поля Edit1 (Спортсмен). Значение поля medal определяется выбранной кнопкой компонента RadioGroup. Закрытие файла базы данных выполняет процедура TForm1.FormClose.

Объявление файловой переменной f выведено в раздел объявления переменных var, так как она используется во всех процедурах.Тип TMedal используется двумя процедурами TForm1.Activate и TForm1.Button1Click, то его описание помещено в раздел type .

Для решения второй части поставленной задачи создадим диалоговое окно Form1, которое состоит из компоненты Edit1- окна редактирования , Memo1- окна списка и кнопки управления Button1- “Поиск”. Edit1 используется для ввода названия страны, Memo1 для вывода списка медалей полученной страной участницей. В следующей таблице приведены значения некоторых свойств компоненты Memo1.

Чтение записи из файла и вывод списка медалей выполняет процедура, которая запускается в результате щелчка на кнопке Поиск.

procedure TForm1.Button1Click(Sender: TObject);

type

TKind = (GOLD,SILVER,BRONZE);

TMedal = record

country: string[20];

sport: string[20];

person: string[40];

kind: TKind;

end;

var

f:file of TMedal;

rec: TMedal;

n: integer; // общее количество медалей

st: string[80];

begin

AssignFile(f, `с:\ medals.db');

{$I-}

Reset(f);

{$I+}

if IOresult <> 0

then ShowMessage(`Ошибка открытия файла БД');

else

begin

// обработка БД

Button1.enabled:= FALSE;

n:= 0;

while not EOF(f) do

begin

read(f, rec);

if rec.country = Edit1.Text

then

begin

if n = 0

then Memo1.Lines.Add(`*** ` + Edit1.Text +' ***');

n:=n+1;

case rec.kind of

GOLD: st:= `Золотая';

SILVER: st:= `Серебрянная';

BRONZE; st:= `Бронзовая';

end; {case}

st:= st + rec.sport+' `+rec.person;

Memo1.Lines.Add(st);

end;

end;

CloseFile(f);

if n = 0

then ShowMessage(`В БД нет информации о спортменах страны страны'+Edit1.Text);

Button1.enabled:= TRUE;

end;

end;

Процедура открывает файл и последовательно читает находящиеся в нем записи. Если прочитанная запись удовлетворяет условию запроса - содержимое поля country совпадает с названием страны, введенным пользователем в поле Страна (Edit1) диалогового окна, то содержимое записи добавляется в поле Memo1 . Добавление информации в поле Memo выполняет инструкция Memo1.Line.Add(st), которая является инструкцией применения метода Add (Добавить) к компоненту Memo1 .

Задания для самостоятельного выполнения.

Составить проект Delphi с помощью которого создается файл содержащий сведения о количестве собранных изделий типов А, В и С членами бригад. Проект должен содержать компоненты ComboBox1(номера бригад), ComboBox2(цены отдельных изделий по типам), Edit1(количество собранных изделий), Edit2( фамилия рабочего, собравшего эти изделия) и RadioGroup1(наименование изделий). Написать программу, в результате которой можно получить информацию об итоговых данных сбора изделий по месяцам - по типам, по сумме собранных изделий. Найти номер бригады, собравшей наибольшее количество изделий за месяц.

Созданный Вами проект будет эксплуатироваться в регистратуре городской поликлиники. Он должен содержать следующие компоненты ComboBox1(специальности врачей), ComboBox2(фамилии врачей),Edit1(фамилия посетителя) и RadioGroup1(учащиеся, пенсионеры, рабочие и служащие, не работающие ). В результате обработки данных файла составьте ежедневные итоги по количеству пациентов принятых врачами различных специальностей в порядке убывания числа принятых пациентов.

Составьте файл, содержащий сведения о стипендиях назначенных студентам учебных групп по результатам сессии. Проект должен содержать следующие компоненты: ComboBox1(курсы), ComboBox2(группы факультета), Edit1(фамилия студента) и RadioGroup1(обычная, повышенная и именная стипендии). В результате обработки созданного файла нужно найти число студентов получающих обычную, повышенную и именную стипендии по факультету в целом.

Создайте проект Delphi с помощью которого производится регистрация участников международной научной конференции. Проект должен содержать следующие компоненты: ComboBox1(страна ближнего зарубежья), ComboBox2(название секций),Edit1(фамилия участника) и RadioGroup1(доклад, сообщение , стендовый доклад). Обработав созданный файл мы должны получить информацию о количестве участников из разных стран, сколько человек должны делать доклад сколько человек выступят с сообщениями и сколько будет стендовых докладов.

Обработка результатов Республиканской олимпиады юных техников может быть произведено с помощью Вашей программы. Проект должен содержать следующие компоненты: ComboBox1(название областей), ComboBox2(вид секции), Edit1(фамилия участника) и RadioGroup1(награды - диплом 1 степени, диплом 2 степени и диплом 3 степени ). В результате обработки файла мы должны получить возможность обобщения данных - область, занявшая 1 место и в скольких секциях принимали участие учащиеся этой области.

На посту ГАИ установлен компьютер. Сотрудник ГАИ заносит в компьютер данные о зарегистрированных нарушениях допущенных водителями автотраспорта. Проект имеет следующие компоненты: ComboBox1(тип машины), ComboBox2(цвет машины), Edit1(фамилия_номер_машины) и RadioGroup1(вид наказания- предупреждение, штраф, лишение водительских прав). Обработав данные такого файла можно определить степень тяжести допущенных нарушений, сгруппировав их по виду нарушений. Водителями какого вида автотранспорта допускаются наибольшее количество нарушений?

Составьте программу регистрации основных моментов игры в хоккей между командами А и В. Программа должна содержать следующие компоненты: ComboBox1(название играющих команд), ComboBox2( фамилия_игрока_номер), Edit1(номер игрока) и RadioGroup1(гол, голевая передача, штраф 2 мин.).

Вопросы для самопроверки.

Что с собой представляет запись, чем она отличается от массива?

Что понимается под полем в записи?

Как объявляется запись как тип?

Можно ли переменную имеющую тип запись непосредственно объявить в разделе объявления переменных?

Каким образом можно обратиться к конкретному полю записи?

Назначение инструкции with?

Как заполняется список ComboBox?

Что записывается в поле Items компоненты RadioGroup ?

Какое свойство определяет номер выбранного элемента в компоненте RadioGroup? Каким образом считывается информация с выбранного поля компоненты ComboBox ?



Литература

1. Культин Н. Delphi 3. Программирование на Object Pascal - СПб.: ВHV - Санкт - Петербург, 1998. - 304 с.

2. Культин Н. Основы программирования в Delphi 7. - СПб.: БХВ - Петербург, 2009. - 640 с.

3. Тюкачев Н.А. Программирование в Delphi для начинающих.- СПб.: БХВ - Петербург, 2007. - 662 с.

4. Фаронов В.В. Delphi. Программирование на языке высокого уровня. - СПб.: Питер, 2009. - 640 с.

5. Delphi 7.Под ред. А. Хомоненко. - СПб.: БХВ - Петербург,2008.

Размещено на Allbest.ru

...