Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 15
1

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

05.03.2019, 22:42. Просмотров 3017. Ответов 2
Метки нет (Все метки)

Здравствуйте, помогите решить.


Задания для выполнения:
В лабораторной работе №7 необходимо составить программу с использованием
типа данных RECORD. Программа должна выполнять фильтрацию данных в
таблицы согласно условию задачи. Количество записей в таблице должна быть не
меньше 7. Таблица содержит следующие данные о студентах: фамилия, год
рождения, год поступления в вузы и три оценки последнюю сессию.

Вычислить средний балл группы и вывести список студентов, имеющих
средний балл ниже среднего балла группы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2019, 22:42
Ответы с готовыми решениями:

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

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

Для студентов заданной группы, имеющие средний балл, больший 4.5, вывести фамилию и средний балл
Для студентов заданной группы,имеющие средний балл,больший 4.5,вывести фамилию,имя,отчество и...

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

2
Супер-модератор
5403 / 2421 / 1290
Регистрация: 04.03.2013
Сообщений: 5,456
Записей в блоге: 1
07.03.2019, 22:44 2
Лучший ответ Сообщение было отмечено 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
const
  n = 7;
type
  person = record
    name : string[20];
    birth_date : integer;
    entry_date : integer;
    subj1 : byte;
    subj2 : byte;
    subj3 : byte
  end;
var
  db : array[1..n] of person;
  i, s : integer;
  a : real; {средний балл}
begin
  {ввод данных: закомментировано, если используем константный ввод}
  {for i := 1 to n do
  begin
    write('введите фамилию ', i, ' студента: '); readln(db[i].name);
    write('введите год рождения ', i, ' студента: '); readln(db[i].birth_date);
    write('введите год поступления ', i, ' студента: '); readln(db[i].entry_date);
    write('введите оценку по Физике ', i, ' студента: '); readln(db[i].subj1);
    write('введите оценку по Химии ', i, ' студента: '); readln(db[i].subj2);
    write('введите оценку по Алгебре ', i, ' студента: '); readln(db[i].subj3)    
  end;}
  {константный ввод: закоментировано, если используется ввод с клавиатуры}
  db[1].name := 'Иванов'; db[1].birth_date := 1984; db[1].entry_date := 2003; db[1].subj1 := 5; db[1].subj2 := 4; db[1].subj3 := 3;
  db[2].name := 'Петров'; db[2].birth_date := 1985; db[2].entry_date := 2003; db[2].subj1 := 5; db[2].subj2 := 3; db[2].subj3 := 4;
  db[3].name := 'Сидоров'; db[3].birth_date := 1983; db[3].entry_date := 2003; db[3].subj1 := 5; db[3].subj2 := 3; db[3].subj3 := 4;
  db[4].name := 'Федоров'; db[4].birth_date := 1984; db[4].entry_date := 2004; db[4].subj1 := 3; db[4].subj2 := 3; db[4].subj3 := 3;
  db[5].name := 'Сергеев'; db[5].birth_date := 1986; db[5].entry_date := 2004; db[5].subj1 := 4; db[5].subj2 := 3; db[5].subj3 := 5;
  db[6].name := 'Андреев'; db[6].birth_date := 1986; db[6].entry_date := 2003; db[6].subj1 := 3; db[6].subj2 := 4; db[6].subj3 := 5;
  db[7].name := 'Яковлев'; db[7].birth_date := 1985; db[7].entry_date := 2003; db[7].subj1 := 3; db[7].subj2 := 4; db[7].subj3 := 5;
  {вывод всех}
  writeln('               Фамилия  Ржд   Пост  Физ Хим Алг');
  writeln('-----------------------------------------------');
  for i := 1 to n do
  begin
    write(db[i].name:22, db[i].birth_date:6, db[i].entry_date:6, db[i].subj1:4, db[i].subj2:4, db[i].subj3:4);
    writeln
  end;
  {вычисление сред. балла}
  s := 0;
  for i := 1 to n do s := s + db[i].subj1 + db[i].subj2 + db[1].subj3;
  a := s / 3 / n;
  writeln('-----------------------------------------------');
  writeln('средний балл группы: ', a:0:4);
  {вывод тех кто ниже среднего}
  writeln('               Фамилия  Ржд   Пост  Физ Хим Алг');
  writeln('-----------------------------------------------');
  for i := 1 to n do
    if ((db[i].subj1 + db[i].subj2 + db[1].subj3) / 3) < a then
    begin
      write(db[i].name:22, db[i].birth_date:6, db[i].entry_date:6, db[i].subj1:4, db[i].subj2:4, db[i].subj3:4);
      writeln
    end;
  readln
end.
Добавлено через 3 минуты
Код
               Фамилия  Ржд   Пост  Физ Хим Алг
-----------------------------------------------
                Иванов  1984  2003   5   4   3
                Петров  1985  2003   5   3   4
               Сидоров  1983  2003   5   3   4
               Федоров  1984  2004   3   3   3
               Сергеев  1986  2004   4   3   5
               Андреев  1986  2003   3   4   5
               Яковлев  1985  2003   3   4   5
-----------------------------------------------
средний балл группы: 3.4762
               Фамилия  Ржд   Пост  Физ Хим Алг
-----------------------------------------------
               Федоров  1984  2004   3   3   3
               Сергеев  1986  2004   4   3   5
               Андреев  1986  2003   3   4   5
               Яковлев  1985  2003   3   4   5
1
0 / 0 / 0
Регистрация: 20.12.2018
Сообщений: 15
08.03.2019, 20:48  [ТС] 3
Спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.03.2019, 20:48

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

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

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

Вывести список студентов, имеющих средний балл ниже заданного
Необходимо составить программу с использованием типа данных RECORD. Программа должна выполнять...

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


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

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

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