Файл: Определить средний балл успеваемости по каждому студенту и по группе в целом.

@Enrion · Регистрация: 12.02.2017

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

Всем доброго времени суток! Прошу помочь с заданием. Я сделал таблицу, которая содержит сведения об успеваемости студентов по каждому предмету (1, 2, 3, 4, 5 - якобы наименование предметов) . Необходимо определить средний балл успеваемости по каждому студенту и по группе в целом. Желательно просчитать средний балл успеваемости с помощью второй записи. Никак не могу разобраться, как это сделать. Постарался написать как можно больше комментариев для читабельности кода.

Pascal
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
Program files; 
Type
wed = record {Тип wed включает 3 поля: n, fio, bal}
n : byte ; fio : string[15] ;
bal : array [1..5] of byte; {Поле bal – массив из 5 оценок }
 
end;
 sred = record {желательно использовать вторую запись для вычисления среднего балла}
    
    end;
Var spisok : wed ; {Запись spicok типа wed}
sp : file of wed; {Файл записей типа wed}
 
 
  
procedure vvod; { процедура создания файла}
var i,j:byte;
begin
{ оператор assing находится в основной прграмме }
rewrite ( sp); {открытие файла для записи}
with spisok do
For i:=1 to 10 do begin
n:=i; 
writeln (' Введите фамилию - ', i ); readln (fio); 
writeln (' Введите 5 оценок (от 1 до 5 баллов) ', fio ); For j:= 1 to 5 do readln ( bal [j] );
write (sp , spisok); { запись в файл информации о студенте}
end;
close (sp); { закрытие файла для записи }
end;
procedure print; { процедура чтения и печати всего файла }
var j : byte;
begin
reset ( sp); {открытие файла для чтения}
writeln (' Список студентов: '); 
while not eof (sp) do 
with spisok do 
begin 
Read (sp, spisok); {чтение данных из файла}
write (n,' ',fio); {вывод записи на экран}
For j:= 1 to 5 do write (' ', bal [j] );
writeln ;
end;
readln;
close (sp) ; {закрытие файла}
end;
 
procedure tabl; {процедуры для вывода данных в таблицу}
var j: byte;
begin
reset (sp); {открытие файла для чтения}
  writeln('┌──────────────────────────────────┬─────────────────────────────┐     ');  
  writeln('│                                  │     Оценки по предметам     │    ');
  writeln('│           ФИО студента           ├─────┬─────┬─────┬─────┬─────┤ ');       
  writeln('│                                  │  1  │  2  │  3  │  4  │  5  │  ');
  writeln('├──────────────────────────────────┼─────┼─────┼─────┼─────┼─────┤');
 
while not eof (sp) do 
with spisok do 
begin 
Read (sp, spisok); {чтение данных из файла}
 
    
      write('│', spisok.fio, ' ':20 - length(spisok.fio), '              ');             
      for j := 1 to 5 do write('│ ', spisok.bal[j]:3, ' ');
      writeln('│');
    
    end;
    close(sp); {закрытие файла}
    
  writeln('└──────────────────────────────────┴─────┴─────┴─────┴─────┴─────┘');
  writeln;
  writeln();
  end;
  
  
begin {начало основной программы}
assign (sp,'Vedom.txt'); {связать файловую перем-ю sp с файлом Vedom.dat}
vvod; print; {процедуры создания и чтения файла} 
tabl; {процедура создания таблицы}
 
 
readln;
end.

@JuriiMW · 20.06.2017, 05:45

Лучше бы, вместо никому не нужных комментариев (они и так очевидны),
немножко бы изучили букварь по ЯП и немножко IDE.
И с форматированием кода у вас тоже проблемы!

Pascal
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
const
  fName = 'Vedom.txt';
  
type
  wed = record
    fio : string[15];
    bal : array [1..5] of byte;
    
    function среднийБалл := (bal[1] + bal[2] + bal[3] + bal[4] + bal[5]) / 5;
  end;
  
var sp : file of wed;
 
procedure vvod;
begin
  var s : wed;
  if System.IO.File.Exists(fName) then
    begin
      Reset(sp, fName);
      Seek(sp, FileSize(sp));
    end
  else
    Rewrite(sp, fName);
  (s.fio, s.bal[1], s.bal[2], s.bal[3], s.bal[4], s.bal[5]) :=
  (ReadLnString('ФИО студента:'), ReadInteger('5 оценок:'), ReadInteger,
  ReadInteger, ReadInteger, ReadLnInteger);
  Write(sp, s);
  Close(sp);
end;
 
procedure print;
begin
  Reset(sp, fName);
  WriteLn('Список студентов:');
  var s : wed;
  while Not EOF(sp) do
    begin 
      Read(sp, s);
      WriteLnFormat('| {0,-15} | {1,2} | {2,2} | {3,2} | {4,2} | {5,2} |', s.fio,
      s.bal[1], s.bal[2], s.bal[3], s.bal[4], s.bal[5]);
    end;
  close(sp);
  Write('Нажмите Enter для продолжения.'); ReadLn;
end;
 
procedure tabl;
begin
  Reset(sp, fName);
  writeln('+-----------------+------------------------+');  
  writeln('|                 |  Оценки по предметам   |');
  writeln('|  ФИО студента   +----+----+----+----+----+');
  writeln('|                 |  1 |  2 |  3 |  4 |  5 |');
  writeln('+-----------------+----+----+----+----+----+');
  var s : wed;
  while Not EOF(sp) do
    begin
      Read(sp, s);
      WriteLnFormat('| {0,-15} | {1,2} | {2,2} | {3,2} | {4,2} | {5,2} |', s.fio,
      s.bal[1], s.bal[2], s.bal[3], s.bal[4], s.bal[5]);
    end;
  close(sp); {закрытие файла}
  WriteLn('+-----------------+----+----+----+----+----+');
  WriteLn;
  Write('Нажмите Enter для продолжения.'); ReadLn;
end;
 
procedure СреднийБалл;
begin
  Reset(sp, fName);
  writeln('+-----------------+------------------------+-----+'); 
  writeln('|                 |  Оценки по предметам   | ср. |');
  writeln('|  ФИО студента   +----+----+----+----+----+ балл|');
  writeln('|                 |  1 |  2 |  3 |  4 |  5 |     |');
  writeln('+-----------------+----+----+----+----+----+-----+');
  var s : wed;
  var (count, sum) := (0, 0.0);
  while Not EOF(sp) do
    begin
      Read(sp, s);
      WriteLnFormat('| {0,-15} | {1,2} | {2,2} | {3,2} | {4,2} | {5,2} |{6,4:0.0} |',
      s.fio, s.bal[1], s.bal[2], s.bal[3], s.bal[4], s.bal[5], s.среднийБалл);
      count += 1; sum += s.среднийБалл;
    end;
  close(sp); {закрытие файла}
  writeln('+-----------------+----+----+----+----+----+-----+');
  if count > 0 then WriteLn('Средний балл по группе ', sum/count:0:1);
  WriteLn;
  Write('Нажмите Enter для продолжения.'); ReadLn;
end;
  
begin
  var v : String;
  var theEnd := False;
  repeat
    WriteLn(NewLine*5, '~'*20);
    WriteLn('1 - Добавить студента');
    WriteLn('2 - Список студентов');
    WriteLn('3 - Таблица студентов');
    WriteLn('4 - Средний балл студентов');
    WriteLn('0 - Выход из программы');
    v := ReadLnString('Ваш выбор:');
    if v.Length > 0 then
    case v[1] of
      '1' : vvod;
      '2' : print;
      '3' : tabl;
      '4' : СреднийБалл;
      '0' : theEnd := True;
    end;
  until theEnd;
end.

@Enrion · 20.06.2017, 07:40 **[ТС]**

Спасибо за код. Действительно, комментарии излишне очевидны. По поводу форматирования кода, да, не очень. Буду всё поправлять и изучать, ещё раз спасибо.

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@Enrion 0 / 0 / 0 Регистрация: 12.02.2017 Сообщений: 4
	20.06.2017, 07:40 [ТС]
	Спасибо за код. Действительно, комментарии излишне очевидны. По поводу форматирования кода, да, не очень. Буду всё поправлять и изучать, ещё раз спасибо. 0