Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 18.10.2017
Сообщений: 29

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

30.04.2018, 23:47. Показов 668. Ответов 3
Метки нет (Все метки)

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

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.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
30.04.2018, 23:47
Ответы с готовыми решениями:

Вывести список студентов в выходной текстовый файл в порядке убывания оценок студентов
Во входном текстовом файле находится информация о студентах: фамилия, имя и оценка - целое число от 2 до 5 (в отдельных строках). Вывести...

Структура: Вывести список студентов, получающих стипендии, и список всех студентов.
Здравствуйте. Возникла проблема, суть программы выводить список студентов, получающих стипендии и список всех студентов. Вносит прога сразу...

Ввести список студентов и их группу Вывести список студентов заданной группы
Ребят, помогите пожалуйста, ибо в windowsform вообще не шарю и не знаю как его записать, может ли кто-то помочь? Буду очень признателен. ...

3
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
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 минуту
Вывод списком-табличкой смотрелся бы естественнее.
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
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.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
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;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
01.05.2018, 11:08
Помогаю со студенческими работами здесь

При выборе группы студентов из ComboBox показать список студентов в Stringgrid
Есть combobox, где содержатся группы студентов и stringgrid, где содержатся все их фамилии, даты рождения и группы. Нужно чтоб при выборе...

Дописать в файл - список студентов группы новых студентов
Дописать в файл - список студентов группы новых студентов.

Вывести в новый файл список студентов, удалив из него студентов окончивших школу в текущем году
На основе данных входного файла составить список студентов группы, включив следующие данные: ФИО, год рождения, домашний адрес, какую...

Вывести в новый файл список студентов, удалив из него студентов окончивших школу в текущем году.
На основе данных входного файла составить список студентов группы, включив следующие данные: ФИО, год рождения, домашний адрес, какую школу...

Вычислить общий средний балл всех студентов и распечатать список студентов со средним баллом выше общего
Задача следующая: вычислить общий средний балл всех студентов и распечатать список студентов со средним баллом выше общего среднего балла


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Оттенки серого
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
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru