|
|||||||
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция |
Работа с программой. После запуска программы на выполнение появится диалоговое окно программы Текст программы приведен ниже.
//описание переменных Type TStudent = record FIO: string[40]; // Поле ф.и.о. otc: array[1..3] описаниеof word; // Поле массива оценок sball: extended; // Поле среднего балла end;
Var Fz: file of Tstudent; // Файл типа запись Ft: TextFile; // Текстовой файл Stud: array[1..100] of Tstudent; // Массив записей nzap: integer; // Номер записи FileNameZ, FileNameT: string; // Имя файла
//поцедура установки начальных значений
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; otc[1]:=StrToInt(Edit2.Text); otc[2]:=StrToInt(Edit3.Text); otc[3]:=StrToInt(Edit4.Text); sball:=(otc[1]+otc[2]+otc[3])/3; Memo1.Lines.Add(fio+' '+IntToStr(otc[1])+' '+ IntToStr(otc[2])+' '+IntToStr(otc[3])); 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); // Связывание файловой переменной Fz c именем файла Rewrite(Fz); // Создание нового файла end; Button1.Show; // Сделать видимой кнопку "Ввести запись" end;
// процедура открытия существующего файла
procedure TForm1.Button3Click(Sender: TObject); begin if OpenDialog1.Execute then // Выполнение стандартного диалога выбора имени файла begin FileNameZ:= OpenDialog1.FileName; // Возвращение имени дискового файла AssignFile(Fz, FileNameZ); // Связывание файловой переменной Fz c именем файла Reset(Fz); // Открытие существующего файла end; while not eof(fz) do begin nzap:=nzap+1; Read(fz,stud[nzap]); // Чтение записи из файла with stud[nzap] do Memo1.Lines.Add(fio+' '+IntToStr(otc[1])+' '+IntToStr(otc[2])+' '+IntToStr(otc[3])); end; Button1.Show; // Сделать видимой кнопку "Ввести запись" end;
procedure TForm1.Button4Click(Sender: TObject); // Сортировка записей var i,j: word; st: TStudent; begin for i:=1 to nzap-1 do // Сортировка массива записей for j:=i+1 to nzap do if Stud[i].sball < Stud[j].sball then begin st:=Stud[i]; Stud[i]:=Stud[j]; Stud[j]:=st; end; Memo1.Clear; for i:=1 to nzap do // Вывод в окно Memo1 отсортированных записей with stud[i] do Memo1.Lines.Add(IntToStr(i)+' '+fio+' '+FloatToStrf(sball,fffixed,4,2)); end;
// процедура сохранения результатов сортировки в текстовом файле
procedure TForm1.Button5Click(Sender: TObject); var i:word; begin if SaveDialog1.Execute then // Выполнение стандартного диалога выбора имени файла begin FileNameT:= SaveDialog1.FileName; // Возвращение имени дискового файла AssignFile(Ft, FileNameT); // Связывание файловой переменной Ft c именем файла Rewrite(Ft); // Открытие нового текстового файла end; for i:=1 to nzap do with stud[i] do Writeln(Ft,i:4,'. ',fio,sball:8:2); // Запись в текстовой файл CloseFile(Ft); // Закрытие текстового файла end;
// процедуры закрытия файла записей разными способами
procedure TForm1.BitBtn1Click(Sender: TObject); begin CloseFile(fz); // Закрытие файла записей при нажатии на кнопку “Сlose” end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin CloseFile(fz); // Закрытие файла записей при нажатии на кнопку end;
end. Поиск по сайту: |
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.006 сек.) |