Изменить список студентов

@kris_chernova_ · Регистрация: 18.10.2017

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

нужно создать список студентов, позже изменить его, выкинув тех, у кого хотя бы одна оценка двойка, в чем ошибка?

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
type student=record
surname:string;
number:integer;
faculty:string;
grupp:integer;
mark1:integer;
mark2:integer;
mark3:integer;
mark4:integer;
mark5:integer;
end;
procedure z(mark1,mark2,mark3,mark4,mark5:integer);
var s:string; st1:student;
begin
if (mark1<>2) and (mark2<>2) and (mark3<>2) and (mark4<>2) and (mark5=2)then write else begin
   write ('фамилия студента: ', st1 . surname,' ' ); 
   write(' дата рождения : ', st1.number,' '); 
   write(' факультет : ', st1.faculty, ' '); 
   write(' курс : ', st1.grupp,' '); 
   write(' оценки : ', st1.mark1,' ',st1.mark2,' ',st1.mark3,' ',st1.mark4,' ',st1.mark5,' '); 
   writeln;
end;
end; 
var n,i:integer; st1:student; 
begin
read(n);
for i:=1 to n do
begin
   write ('фамилия студента: '); read(st1.surname); 
   write(' дата рождения : '); read(st1.number); 
   write(' факультет : '); read(st1.faculty); 
   write(' курс : '); read(st1.grupp); 
   write(' оценки : '); read(st1.mark1,st1.mark2,st1.mark3,st1.mark4,st1.mark5); 
   writeln;
   end;
for i:=1 to n do z(st1.mark1,st1.mark2,st1.mark3,st1.mark4,st1.mark5);
end.

@bormant · 01.05.2018, 09:14

Pascal
15
  if (mark1<>2) and (mark2<>2) and (mark3<>2) and (mark4<>2) and (mark5<>2) then begin

Добавлено через 3 минуты
Но лучше было оценки хранить полем-массивом:

Pascal
1
2
3
4
5
type
  Student = record
    ...
    marks: array [1..5] of Integer;
  end;

Добавлено через 1 минуту
Вывод списком-табличкой смотрелся бы естественнее.

@Puporev · 01.05.2018, 09:42

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
type student=record
             surname:string[15];
             number:string[10];
             faculty:string[15];
             grupp:integer;
             mark:array[1..5] of integer;
             end;
mas=array[1..20] of student;
procedure massiv(var a:mas;var n:integer);
var i,j:integer;
begin
repeat
write('Введите количество студентов от 2 до 20 n=');
readln(n);
until n in [2..20];
writeln('Введите данные студентов');
for i:=1 to n do
 begin
  writeln('Студент ',i);
  with a[i] do
   begin
    write ('фамилия: ');readln(surname);
    write(' дата рождения в формате дд.мм.гггг.: ');readln(number);
    write(' факультет: ');readln(faculty);
    write(' группа: ');readln(grupp);
    writeln(' введите 5 оценок от 2 до 5:');
    for j:=1 to 5 do readln(mark[j]);
   end;
 end;
end;
procedure del(var a:mas;var n:integer);
var i,j,k:integer;
begin
i:=1;
while i<=n do
 begin
  j:=1;
  while (j<=5)and(a[i].mark[j]<>2) do inc(j);
  if j<=5 then
   begin
    if i<n then
    for k:=i to n-1 do
    a[k]:=a[k+1];
    n:=n-1;
   end
  else i:=i+1;
 end;
end;
procedure print(a:mas;n:integer;s:string);
var i,j:integer;
begin
writeln(s);
writeln('-----------------------------------------------------------------');
writeln('|    Фамилия    |Дата рождения|   Факультет   |Группа|  Оценки  |');
writeln('-----------------------------------------------------------------');
for i:=1 to n do
with a[i] do
 begin
  write('|',surname:15,'|',number:13,'|',faculty:15,'|',grupp:6,'|');
  for j:=1 to 5 do
  write(mark[j]:2);
  writeln('|');
 end;
writeln('-----------------------------------------------------------------');
end;
var a:mas;
    n:integer;
begin
massiv(a,n);
print(a,n,'Полный список студентов');
del(a,n);
if n=0 then write('У всех студентов есть двойки')
else print(a,n,'Список студентов не имеющих двоек');
end.

@bormant · 01.05.2018, 11:08

В 17-30 можно не плодить лишний уровень вложенности begin end ради with do (а заодно позволить оценки вводить в хоть одной строке, хоть после каждой жать Enter), для этого достаточно:

Pascal
1
2
3
4
5
6
7
8
9
10
for i:=1 to n do with a[i] do
 begin
  WriteLn('Студент ',i);
  Write( 'фамилия: '); ReadLn(surname);
  Write(' дата рождения в формате дд.мм.гггг: '); ReadLn(number);
  Write( ' факультет: '); ReadLn(faculty);
  Write(' группа: '); ReadLn(grupp);
  Write(' введите 5 оценок от 2 до 5: ');
  for j:=1 to 5 do Read(mark[j]); ReadLn;
 end;

Добавлено через 7 минут
Подтягивать хвост при удалении каждого двоешника -- идея так себе, вместо "удалить неподходящие" эффективнее решать обратную задачу -- "оставить подходящие":

Pascal
31
32
33
34
35
36
37
38
39
40
41
42
procedure del(var a: mas; var n: Integer);
var i, j, k: Integer;
begin
 j:=0;
 for i:=1 to n do with a[i] do begin
  k:=5; while (k>0) and (mark[k]<>2) do Dec(k);
  if k=0 then begin
   Inc(j); if j<i then a[j]:=a[i];
  end;
 end;
 n:=j;
end;

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого 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 и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .