АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

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

Читайте также:
  1. V. САМОСТОЯТЕЛЬНАЯ РАБОТА
  2. Window - работа с окнами.
  3. Аналитическая работа при выборе и обосновании стратегии развития предприятии
  4. Б) работа врачей поликлиники (амбулатории), диспансера, консультации
  5. В 72-х дневном цикле подвиг длится 8 суток, из которых 2 суток – голод, а 6 – очистительные процедуры и работа над собой. В 12-ти летнем цикле подвиг длится 1 год.
  6. В работах В. Джеймса
  7. В) профилактическая работа
  8. Виртуальная работа силы. Идеальные связи
  9. Власть и норма в работах Фуко
  10. Влияние на организм термически обработанной пищи
  11. Влияние работающего на точность изготовляемых деталей.
  12. Внеклассная работа по русскому языку: принципы, виды и формы организации.


После запуска программы на выполнение появится диалоговое окно программы. Кнопка “Ввести запись” видна не будет. Необходимо создать новый файл записей, нажав на кнопку “Создать” или открыть ранее созданный, нажав кнопку “Открыть”. После этого станет видна кнопка “Ввести запись” и можно будет вводить записи. При нажатии на кнопку “Сортировка” будет проведена сортировка ведомости по убыванию среднего балла и диалоговое окно примет вид как на рис. 6.2.. Затем при нажатии на кнопку “Сохранить” будет создан текстовой файл, содержащий отсортированную ведомость. Файл записей закрывается одновременно с программой при нажатии на кнопку “Close” или .

Текст программы приведен ниже.

 

//описание переменных

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.


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.006 сек.)