Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
machinator
0 / 0 / 0
Регистрация: 22.12.2016
Сообщений: 8
1

В массиве структур (записей) найти всех студентов, не имеющих двоек

16.01.2017, 07:36. Просмотров 760. Ответов 2
Метки нет (Все метки)

В массиве структур (записей) найти всех студентов, не имеющих двоек, и сформировать из них новый массив. Полученный массив упорядочить по возрастанию среднего балла. Структура (запись) содержит поля: фамилия, количество оценок, массив оценок (не более пяти), средний балл, который вычисляется при вводе данных. Вывести исходный и полученные массивы.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2017, 07:36
Ответы с готовыми решениями:

В массиве структур найти всех юношей, имеющих только отличные оценки
В массиве структур (записей) найти всех юношей, имеющих только отличные оценки и сформировать из...

Определить число студентов, не имеющих "двоек", и средний экзаменационный балл каждого студента.
Ребят, помогите пожалуйста. Одну задачку сделал вторую не получается, на форуме похожих не...

Определить фамилии лиц, не имеющих двоек и троек
в ведомости не более N строк со сведениями об оценках студентов по M предметам даны так же названия...

В массиве указать индексы всех элементов имеющих наибольшее и наименьшее значение
в квадратном числовом массиве указать индексы всех элементов имеющих наибольшее и наименьшее...

В массиве указать индексы всех элементов, имеющих наибольшее и наименьшее значение
в произвольном фигурном числовом массиве указать индексы всех элементов имеющих наибольшее и...

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4230 / 3071 / 3796
Регистрация: 05.06.2014
Сообщений: 15,438
18.01.2017, 10:12 2
Вам же уже давали решение подобной задачи:
В массиве структур найти всех юношей, имеющих только отличные оценки
И все остальные у вас одинаковые. Делайте по предложенному образцу.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4146 / 2739 / 2173
Регистрация: 22.11.2013
Сообщений: 7,652
18.01.2017, 10:59 3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Шаблон простой:
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
type
  TPerson = record ... 
    MrkCnt: Integer;
    Mrks: array [0..4] of Integer;
    AvgMrk: Real;
  end;
  TMatchFunc = function (const p: TPerson): Boolean; 
  TLessFunc = function (const p1, p2: TPerson): Boolean;
 
procedure WritePerson(const p: TPerson);
begin
  with p do begin
    WriteLn( ...
  end;
end;
 
procedure WritePersons(const p: array of TPerson; n: Integer);
begin
  for n:=0 to n-1 do WritePerson(p[n]);
end;
 
procedure SelectPersons(
  const src: array of TPerson; n: Integer; 
  var dst: array of TPerson; var m: Integer; 
  IsMatch: TMatchFunc);
begin
  m:=0;
  for n:=0 to n-1 do
    if IsMatch(src[n]) then begin
      dst[m]:=src[n]; Inc(m);
    end;
end;
 
procedure SortPersons(var a: array of TPerson; n: Integer; IsLess: TLessFunc);
begin
  ...
  if IsLess(p[i],p[j]) then ...
  ...
end;
 
{$F+}
function MatchNo2(const p: TPerson): Boolean;
var i: Integer;
begin
  i:=MrkCnt-1; while (i>=0) and (p.Mrks[i]<>2) do Dec(i);
  IsMatch:=i<0;
end;
 
function LessByAvg(const p1, p2: TPerson): Boolean;
begin
  IsLess:=p1.MrkAvg<p2.MrkAvg;
end;
 
var
  p1, p2: array [1..MAXN] of TPerson;
...
  SelectPersons(p1,n1,p2,n2,MatchNo2);
  SortPersons(p2,n2,LesByAvg);
  WritePersons(p2);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.01.2017, 10:59

Исходя из массива оценок по предметам найти студентов, имеющих право на получение стипендии
Есть задача - Написать программу, используя массив. Описание задачи: Имеем оценки m студентов по n...

Поиск и вывод на экран записей о всех студентах, имеющих шифр, начинающийся с символов "ВС".
Здравствуйте! Помогите разобраться,понимаю,что тема несложная,но у меня есть вопросы....

Типизированый файл: найти студентов, имеющих "5" по информатике
Вывести фамилии и средние баллы стедентов, имеющих &quot;5&quot; по информатике


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru