Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
RoWine
1 / 1 / 1
Регистрация: 20.12.2016
Сообщений: 29
1

Найти фамилии студентов, имеющих задолженность хотя бы по одному предмету

14.03.2017, 13:22. Просмотров 833. Ответов 2

В массиве содержится информация о зимней сессии. Сведения о каждом студенте содержат следующие данные: Фамилию(до 12 символов),номер группы (от 1 до 7),оценки по трем предметам(математика,физика и программирование). Напишите программу, которая вводит эту информацию и печатает следующие данные:

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

умоляю молю помогите, нужно очень очень!
нужно выполнить все пункты в 1ой проге, и я не могу понять как!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.03.2017, 13:22
Ответы с готовыми решениями:

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

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

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

Найти количество и фамилии студентов, имеющих хотя бы одну оценку "удовлетворительно"
Целочисленная матрица А порядка 25x 4 содержит сведения о результатах сессии из...

Напечатать фамилии студентов, имеющих наименьший возраст
1)Даны три числа. Написать программу, подсчитывающую количество чисел, равных...

2
RoWine
1 / 1 / 1
Регистрация: 20.12.2016
Сообщений: 29
21.03.2017, 17:43  [ТС] 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
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
{ В массиве содержится информация о зимней сессии. Сведения о каждом студенте
содержат следующие данные: Фамилию(до 12 символов),номер группы (от 1 до 7),
оценки по трем предметам(математика,физика и программирование).
Напишите программу, которая вводит эту информацию и печатает следующие данные:
а)фамилии студентов, имеющих задолженность хотя бы по одному предмету;
б)процент студентов, сдавших все экзамены на 4 и 5;
в)название предмета, который был сдан лучше всего;
г)номера групп в порядке убывания средней успеваемости их студентов.}
 
type
  tstud = record
    name: string[12];
    group: 1..7;
    math: word;
    fiz: word;
    prog: word;
  end;
  
var
  stud: array[1..100] of tstud;
  sr: array[1..2,1..7] of real;
  sred,buf: real;
  n,i,k,j: integer;
  
begin
  write('Введите количество студентов : ');
  readln(n);
  writeln('Заполнение массива по зимней сессии');
  for i:=1 to n do
    begin
      write('Введите фамилию : ');
      readln(stud[i].name);
      repeat
        write('Введите номер группы (1-7) : ');
        readln(stud[i].group);
      until (stud[i].group >=1) and (stud[i].group <= 7);
      repeat
        write('Введите оценку по математике : ');
        readln(stud[i].math);
      until (stud[i].math >=2) and (stud[i].math <= 5);
      repeat
        write('Введите оценку по физике : ');
        readln(stud[i].fiz);
      until (stud[i].fiz >=2) and (stud[i].fiz <= 5);
      repeat
        write('Введите оценку по программированию : ');
        readln(stud[i].prog);
      until (stud[i].prog >=2) and (stud[i].prog <= 5);
    end;
  writeln;
  writeln('Фамилии студентов имеющих задолженность хотя бы по одному предмету : ');
  for i:=1 to n do
    if (stud[i].math < 3) or (stud[i].fiz < 3) or (stud[i].prog < 3) then
      writeln('   - ',stud[i].name);
  write('Процент студентов, сдавших все экзамены на 4 и 5 : ');
  k:=0;
  for i:=1 to n do
    if (stud[i].math >= 4) and (stud[i].fiz >= 4) and (stud[i].prog >= 4) then k:=k+1;
  if k <> 0 then writeln(((k*100)/n):0:2,' %')
  else writeln('   - таких студентов в списке нет!');
 
  writeln('Название предмета, который был сдан лучше всего : ');
  for i:=1 to n do
    begin
      if (stud[i].math >= stud[i].fiz) and (stud[i].math >= stud[i].prog) then writeln('   - ',stud[i].name,' : Математика (',stud[i].math,')')
      else if (stud[i].fiz >= stud[i].math) and (stud[i].fiz >= stud[i].prog) then writeln('   - ',stud[i].name,' : Физика (',stud[i].fiz,')')
      else if (stud[i].prog >= stud[i].math) and (stud[i].prog >= stud[i].fiz) then writeln('   - ',stud[i].name,' : Программирование (',stud[i].prog,')')
    end;
 
  for i:=1 to 7 do
    begin
      sred:=0;
      k:=0;
      for j:=1 to n do
        begin
          if stud[j].group = i then
            begin
              sred:=sred+(stud[i].prog+stud[i].fiz+stud[i].math)/3;
              k:=k+1;
            end;
        end;
      sr[1,i]:=i;
      if k <> 0 then sr[2,i]:=(sred/k) else sr[2,i]:=0;
    end;
  for i := 1 to 7-1 do
    for j := 1 to 7-i do
      if sr[2,j] < sr[2,j+1] then
        begin
          buf:= sr[2,j];
          sr[2,j] := sr[2,j+1];
          sr[2,j+1] := buf;
          buf:= sr[1,j];
          sr[1,j] := sr[1,j+1];
          sr[1,j+1] := buf;
        end;
  write('Номера групп в порядке убывания средней успеваемости их студентов : ');
  for i := 1 to 7 do if sr[2,i] <> 0 then write(sr[1,i],' ');
  readln;
end.
спасибо кстати за помощь ZX Spectrum-128 !
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.03.2017, 17:43

Выбор студентов заданного пола, имеющих в сессию хотя бы одну оценку "3"
1. Разработать блок-схему алгоритма и программу для обработки сведе-ний о...

В массиве F(n) записаны фамилии студентов, в массивах A(n), B(n), C(n) - их оценки за экзамены летней сессии. Напечатать фамилии двоечников
В массиве F(n) записаны фамилии студентов, в массивах A(n), B(n), C(n) - их...

Найти и вывести фамилии тех студентов, которые все экзамены сдали на 9
Даны оценки группы студентов на экзаменах по 4 предметам: алгебре, геометрии,...


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

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

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