close

Вход

Забыли?

вход по аккаунту

?

6

код для вставкиСкачать
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ БЕЛАРУСЬ
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
Факультет информационных технологий и робототехники (ФИТР)
Кафедра программного обеспечения вычислительной техники
и автоматизированных систем
О Т Ч Е Т
ПО ЛАБОРАТОРНОЙ РАБОТЕ №6
по курсу:
" РАЗРАБОТКА ПРИЛОЖЕНИЙ В ВИЗУАЛЬНЫХ СРЕДАХ "
По теме: "Разработка приложения с использованием записей и файлов"
Выполнили:Студенты: Левшунов С.А.
Гр. 107212, бригада №3
Минск - 2013
Цель лабораторной работы: Разработка приложения с использованием записей и файлов
Постановка задачи: Разработать приложение, поддерживающее чтение и сохранение информации в файлах в соответствии с индивидуальным заданием.
1.Для получения места в общежитии формируется список студентов, который включает Ф.И.О. студента, группу, средний балл, доход на члена семьи. Общежитие в первую очередь предоставляется тем, у кого доход на члена семьи меньше двух минимальных зарплат, затем остальным в порядке уменьшения среднего балла. Вывести список очередности предоставления мест в общежитии. В программе предусмотреть сохранение вводимых данных в файле и возможность чтения из ранее сохраненного файла. Результаты выводить в окно просмотра и в текстовой файл.
Исходный код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
BitBtn1: TBitBtn;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Type
TStudent = record
FIO: string[40];
group: integer;
ball: extended;
dohod: integer;
end;
var
Fz: file of TStudent;
Ft : TextFile;
Stud: array[1..100] of TStudent;
Nzap: integer;
FileNameZ, FileNameT: string;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Memo1.Clear;
Button1.Hide;
Nzap := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
nzap:= nzap+1;
with Stud[Nzap] do
begin
FIO:= Edit1.Text;
group:= StrToInt(Edit2.Text);
ball:= StrToFloat(Edit3.Text);
dohod:= StrToInt(Edit4.Text);
Memo1.Lines.Add(fio + ' ' + IntToStr(group) +
' ' + FloatToStr(ball) + ' ' + IntToStr(dohod));
end;
Write(fz, Stud[nzap]);
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
OpenDialog1.Title := 'Ñîçäàòü íîâûé ôàéë';
if OpenDialog1.Execute then
begin
FileNameZ := OpenDialog1.FileName;
AssignFile(Fz, FileNameZ);
Rewrite(Fz);
Button1.Show;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
FileNameZ := OpenDialog1.FileName;
AssignFile(Fz, FileNameZ);
Reset(Fz);
end;
Memo1.Clear;
While not EOF(fz) do
begin
nzap := nzap + 1;
Read(fz, stud[nzap]);
with stud[nzap] do
Memo1.Lines.Add(fio + ' ' + IntToStr(group) +
' ' + FloatToStr(ball) + ' ' + IntToStr(dohod));
end;
Button1.Show;
end;
Procedure Tform1.Button5Click(Sender: TObject);
var
i : word;
begin
if SaveDialog1.Execute then
begin
FileNameT := SaveDialog1.FileName;
AssignFile(Ft, FileNameT);
Rewrite(Ft);
end;
for i:=1 to nzap do
with stud[i] do
Writeln(Ft,fio + ' ' + IntToStr(group) +
' ' + FloatToStr(ball) + ' ' + IntToStr(dohod));
CloseFile(Ft);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
CloseFile(fz);
end;
procedure TForm1.Button4Click(Sender: TObject);
var
minzp, j, i, k: integer;
st: TStudent;
begin
j:= 1;
for i:= 2 to nzap do
begin
minzp:= 500;
if (Stud[i].dohod/minzp)<2 then
begin
st:= Stud[j];
Stud[j]:= Stud[i];
Stud[i]:= st;
j:= j+1;
end;
end;
for i:= 1 to j-2 do
for k:= i + 1 to j-1 do
if Stud[i].ball<Stud[k].ball then
begin
st := Stud[i];
Stud[i] := Stud[k];
Stud[k] := st;
end;
for i:=j to nzap-1 do
for k:= j + 1 to nzap do
if Stud[i].ball<Stud[k].ball then
begin
st := Stud[i];
Stud[i] := Stud[k];
Stud[k] := st;
end;
Memo1.Clear;
for i := 1 to nzap do
with stud[i] do
Memo1.Lines.Add(fio + ' ' + IntToStr(group) +
' ' + FloatToStr(ball) + ' ' + IntToStr(dohod));
end;
end.
Скирншоты:
ЛИТЕРАТУРА
Основная литература
1. Фаронов В.В. DELPHI. Программирование на языке высокого уровня: Учебник для вузов. - СПб.: Питер, 2009. - 640 с.
2. Сухарев М. DELPHI. Полное руководство. - СПб.: Питер, 2008. - 1040 с.
3. Архангельский А.Я. Программирование в DELPHI-6. - М.: ЗАО "Издательство БИНОМ", 2002. - 1120 с.
4. Елмакова Н., Трепалин С., Тенцер А. DELPHI 6 и технология COM. - СПб.: Питер, 2002. - 640 с.
5. Понамарев В. COM и ActiveX в DELPHI. - СПб.: БХВ-Петербург, 2001. - 320 с.
Дополнительная литература
6. Фаронов В.В. Программирование баз данных в DELPHI 7. Учебный курс. - СПб.: Питер, 2005. - 459 с.
7. Подольский С.В., Скиба С.А., Кожедуб О.А. Разработка интернет-приложений в DELPHI. - СПб.: БХВ-Петербург. 2002. - 432 с.
8. Краснов М.В. OpenGL. Графика в проектах Delphi. - СПб.: БХВ-Санкт-Петербург, 2000. - 352 с.
9. Краснов М.В. DirectX. Графика в проектах Delphi. - СПб.: БХВ-Петербург, 2003. - 416 с.
10. Марко Кэнту. DELPHI 7: Для профессионалов. - СПб.: Питер, 2004. - 1101 с. 
Документ
Категория
Рефераты
Просмотров
17
Размер файла
47 Кб
Теги
1/--страниц
Пожаловаться на содержимое документа