Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
denn91
0 / 0 / 0
Регистрация: 10.01.2011
Сообщений: 6
1

Структуры данных

12.01.2011, 15:39. Просмотров 245. Ответов 0
Метки нет (Все метки)

Пожалуйста помогите дорешать задачу а именно написать процедуру подсчета студентов определенной специальности и процедуру суммы очков :
18. К - массив данных о студентах, принявших участие в соревнованиях, имеет следующую структуру: шифр студента: год поступления, специальность, порядковый номер, количество набранных очков. Рассортировать массив по годам поступления, выяснить, сколь¬ко студентов определенной специальности участвовало в соревнованиях, и подсчитать сумму очков, набранных студентами этой специальности.

Код программы
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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
program Project2;
 
{$APPTYPE CONSOLE}
{18.    К - массив данных о студентах, принявших участие в соревнованиях,
 имеет следующую структуру: шифр студента: год поступления, специальность,
 порядковый номер, количество набранных очков.
 Рассортировать массив по годам поступления, выяснить,
 сколько студентов определенной специальности участвовало в соревнованиях, и
  подсчитать сумму очков, набранных студентами этой специальности}
   uses
  SysUtils;
 
type
  tz=record
  surname:string[15];
  year:Integer;
  group:string[15];
  number:integer;
  point:integer;
  end;
  th=array of tz;
  var
  z:tz;
  h:th;
  c,n,K:integer;
  /////функция перекодировки ANSI- строки в ASCII- строку/////////////
 function rus(mes:string):string;
   var i:integer;
  begin
    for i:=1 to length(mes) do
     case mes[i]of
    'А'..'п':mes[i]:=chr(ord(mes[i])-64);
    'р'..'я': mes[i]:=chr(ord(mes[i])-16);
  end;
  rus:=mes;
  end;
  {------------------------------------------}
  Procedure Menu;
Begin
  Writeln(Rus('1-Ввод с клавиатуры'));
  Writeln(Rus('2-вывод'));
  Writeln(Rus('3-сортировка'));
  Writeln(Rus('4-сколько студентов участвовало'));
  writeln(rus('5-сумма очков'));
  Writeln(Rus('0-Выход'));
end;
 {------------------ввод----------------------}
 Procedure Input(K1:integer; Var w:th);
 var i:integer;
Begin
setlength(w,k1);
  For I:=0 to high(w) do
   Begin
    Write(rus('фамилия->'));
   Readln(w[I].surname);
    Write(rus('год поступления->'));
    Readln(w[I].year);
    Write(rus('группа->'));
    Readln(w[I].group);
    Write(rus('порядковый номер->'));
    Readln(w[I].number);
    write(rus('количество набранных очков->'));
    readln(w[i].point);
   End;
End;
{-------------вывод----------------------------}
Procedure Output(w:th);
var
I:integer;
Begin
for i:=0 to high(w) do
writeln(w[i].surname,('     '),w[i].year,'   ',w[i].group,'        ',w[i].number,'        ',w[i].point,'          ');
end;
{----------Сортировка по годам------------------------------------------------}
procedure sort(var w:th);
var i,j:integer;
begin
   for I:=length(h) downto 2 do
   for j:=0 to i-2 do
    if h[j].year>h[j+1].year then
     begin
      z:=h[j];
      h[j]:=h[j+1];
      w[j+1]:=z;
     end;
end;
 
{-------------------------продцедура подсчета студентов--------------------------------------}
procedure students(w:th);
begin
end;
 
{---------Сумма очков студетов----------}
procedure ochki(w:th);
begin
end;
 
{---------------тело программы------------------------------------------}
Begin
write(RUS('количество человек->'));
readln(n);
repeat
 menu;
 readln(C);
case C of
 1:Input(n,h);
 2:Output(h);
 3:sort(h);
 4:students(h);
 5:ochki(h);
end;
until C=0;
readln;
end
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.01.2011, 15:39
Ответы с готовыми решениями:

Динамические структуры данных
Очень прошу помочь с задачкой, бьюсь с ней уже который день... Заранее большое...

Динамические структуры данных
Тема создавалась для размещения здесь решений, связанных с построением структур...

Структуры данных:массивы,строки,записи.
Здравствуйте ув.программисты. Помогите пжл решить задачу Дана строка...

Ссылки, списки, динамические структуры данных
Написать программу которая печатает текст из первых букв всех слов списка....

Ссылки, списки, динамические структуры данных
"Написать программу, которая в списке переставляет местами первое и последнее...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.01.2011, 15:39

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

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

Динамические структуры данных. Спроектировать алфавитный указатель.каждый компонент списка содержит слово и номер страницы
Разработать программу с использованием динамических структур данных ...


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

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

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