Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
denn91
0 / 0 / 0
Регистрация: 10.01.2011
Сообщений: 6
#1

Структуры данных - Pascal ABC

12.01.2011, 15:39. Просмотров 226. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Структуры данных (Pascal ABC):

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

Структуры данных:массивы,строки,записи. - Pascal ABC
Здравствуйте ув.программисты. Помогите пжл решить задачу Дана строка текста.Выяснить,каких символов в ней больще:*или+.

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

Ссылки, списки, динамические структуры данных - Pascal ABC
"Написать программу, которая в списке переставляет местами первое и последнее слово" п.с. вообще не понимаю о чём речь, нужен...

структуры данных запись и сохранить ответ в файл типа .txt - Pascal ABC
Нужно выполнить задачу с использованием структуры данных запись и сохранить ответ в файл типа .txt. |Наименование, Количество, Цена,...

Нужно выполнить задачу с использованием структуры данных запись и сохранить ответ в файл типа .txt - Pascal ABC
Нужно выполнить задачу с использованием структуры данных запись и сохранить ответ в файл типа .txt. Марка автомобиля, Производитель, Тип,...

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

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

Динамические структуры данных. Организация данных в списковые структуры - Pascal
Написать программу вставки нового элемента в список за некоторым заданным по- рядковым номером элементом (вставка осуществляется не в...

Динамические структуры данных - Pascal
Даны две очереди целых чисел. Создать дек из элементов очередей следующим образом: записывать в начало дека все отрицательные элементы, в...

Динамические структуры данных - Pascal
Создать стек целых чисел. Переписать элементы стека в дек, выполняя следующее условие: в начало записывать квадраты нечетных чисел, в конец...


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

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

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