Здравствуйте, уважаемые форумчане! У меня дана следующая задача: вычислить общий средний балл всех студентов и распечатать список студентов интересующей вас группы, имеющих средний балл выше общего среднего балла. У меня возникла одна проблема: программа прекрасно сохраняет txt-файл, но открывает этот файл пустым, пусть и там есть данные. И подскажите как реализовать "распечатать список студентов интересующей вас группы, имеющих средний балл выше общего среднего балла" и сделать кнопку "коррекция", которая позволит менять данные о уже введенных студентах?
C++ |
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
| //---------------------------------------------------------------------------
#include <vcl.h>
#include <stdio.h>
#include <io.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//------------------- Объявление данных ---------------------------
struct student
{
char name[30];
char birthDate[30];
char groupNumder[30];
int physicsGrade;
int mathsGrade;
int informaticsGrade;
int chemistryGrade;
float average;
}list;
int size = sizeof(student);
FILE *fl;
AnsiString File_list;
void Out(student, TMemo*);
//------------------ Очистка всех компонентов --------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit4->Text="";
Edit5->Text="";
Edit6->Text="";
Edit7->Text="";
Memo1->Clear();
}
//------------------ Создание файла -------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
OpenDialog1->Title="Создать новый файл";
if(OpenDialog1->Execute())
{
File_list=OpenDialog1->FileName;
if((fl=fopen(File_list.c_str(),"wb"))==NULL)
{
ShowMessage("Ошибка создания файла!");
return;
}
}
Memo1->Lines->Add("Создали новый файл:"+AnsiString(File_list));
fclose(fl);
}
//-------------------- Добавить данные ---------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
fl=fopen(File_list.c_str(),"ab");
strcpy(list.name, Edit1->Text.c_str());
strcpy(list.birthDate, Edit2->Text.c_str());
strcpy(list.groupNumder, Edit3->Text.c_str());
list.physicsGrade=StrToInt(Edit4->Text);
list.mathsGrade=StrToInt(Edit5->Text);
list.informaticsGrade=StrToInt(Edit6->Text);
list.chemistryGrade=StrToInt(Edit7->Text);
list.average=(list.physicsGrade+list.mathsGrade+list.informaticsGrade+
list.chemistryGrade)/4.0;
Out(list,Memo1);
fwrite(&list, size, 1, fl);
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit4->Text="";
Edit5->Text="";
Edit6->Text="";
Edit7->Text="";
fclose(fl);
}
//-------------- Функция вывода значений ------------------------------------
void Out(student z, TMemo *Memo1)
{
Memo1->Lines->Add(AnsiString(z.name)+" "+AnsiString(z.birthDate)+" "+
AnsiString(z.groupNumder)+" "+IntToStr(z.physicsGrade)+" "+
IntToStr(z.mathsGrade)+" "+IntToStr(z.informaticsGrade)+" "+
IntToStr(z.chemistryGrade)+" "+FloatToStr(z.average));
}
//---------------- Открытие файла ----------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
OpenDialog1->Title="Открыть файл";
if(OpenDialog1->Execute())
{
File_list=OpenDialog1->FileName;
if((fl=fopen(File_list.c_str(),"rb"))==NULL)
{
ShowMessage("Ошибка открытия файла!");
return;
}
}
Memo1->Lines->Add("------Все сведения------");
while(1)
{
if(!fread(&list,size,1,fl)) break;
Out(list, Memo1);
}
fclose(fl);
}
//---------------- Сохранение файла ---------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
SaveDialog1->Title="Сохранить файл";
if(SaveDialog1->Execute())
{
AnsiString FileNameRez=SaveDialog1->FileName;
Memo1->Lines->SaveToFile(FileNameRez);
}
}
//------------------ Очистка Мемо --------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Memo1->Lines->Clear();
}
//--------------------------------------------------------------------------- |
|