Ведомость абитуриентов

@romapalivoda · Регистрация: 15.03.2012

Студворк — интернет-сервис помощи студентам

Нужно создать ведомость абитуриентов, сдавших вступительные экзамены в университет, содержит: Ф.И.О. абитуриента, оценки. Определить средний балл по университету и вывести список абитуриентов, средний балл которых выше среднего балла по университету. Первыми в списке должны идти студенты, сдавшие все экзамены на 5.
Я ее сделал:

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
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();
Memo1->Clear();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
OpenDialog1->Title="New File";
OpenDialog1->Execute();
char *FileNameS= OpenDialog1->FileName.c_str();
Fs=fopen(FileNameS,"wb");
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
fwrite(&Stud[nzap],sizeof(TStudent),1,Fs);
strcpy (Stud[nzap].FIO, Edit1->Text.c_str());
Stud[nzap].otc[0]=StrToInt(Edit2->Text);
Stud[nzap].otc[1]=StrToInt(Edit3->Text);
Stud[nzap].otc[2]=StrToInt(Edit4->Text);
Stud[nzap].sball=(Stud[nzap].otc[0]+Stud[nzap].otc[1]+Stud[nzap].otc[2])/3.0;
Stud[nzap].sball1+=(Stud[nzap].sball);
Memo1->Lines->Add(AnsiString(Stud[nzap].FIO)+" "
+IntToStr(Stud[nzap].otc[0])+" "
+IntToStr(Stud[nzap].otc[1])+" "
+IntToStr(Stud[nzap].otc[2])+" ");
fwrite(&Stud[nzap],sizeof(TStudent),1,Fs);
nzap++;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
OpenDialog1->Title="Open File";
if (OpenDialog1->Execute())
{
char *FileNameS= OpenDialog1->FileName.c_str();
if ((Fs=fopen(FileNameS,"rb"))==NULL) {
ShowMessage("File is not opened");
 return;            }
Memo1->Clear();
nzap=0;
do
{
fread(&Stud[nzap],sizeof(TStudent),1,Fs);
if (feof(Fs)) break;
Memo1->Lines->Add(AnsiString(Stud[nzap].FIO)+""
+IntToStr(Stud[nzap].otc[0])+""
+IntToStr(Stud[nzap].otc[1])+""
+IntToStr(Stud[nzap].otc[2])+"");
nzap++;
}
while(True);
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
TStudent tmp;
Stud[nzap].sball1/=nzap;
for(int i=0;i<nzap-1;i++)
for(int j=i;j<nzap;j++)
if (Stud[i].sball<Stud[j].sball)
{
tmp=Stud[i];
Stud[i]=Stud[j];
Stud[j]=tmp;
}
Memo1->Clear();
Memo1->Lines->Add("Результат сортировки по среднему баллу:");
Memo1->Lines->Add(FloatToStrF(Stud[i].sball1,ffFixed,4,4));
for(int i=0;i<nzap;i++)
Memo1->Lines->Add(AnsiString(Stud[i].FIO)+" "
+IntToStr(Stud[i].otc[0])+" "
+IntToStr(Stud[i].otc[1])+" "
+IntToStr(Stud[i].otc[2])+" ");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
SaveDialog1->Title="Save File";
if(SaveDialog1->Execute())
{
AnsiString FileNameR = SaveDialog1->FileName;
Memo1->Lines->SaveToFile(FileNameR);
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Close();
}

только сохраненный файл открывается с неполным содержанием!Помогите пожалуйста исправить ошибку!

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .