Разработка программы для обработки результатов соревнований по фигурному катанию
Белорусский
Национальный Технический Университет
Кафедра
«Материаловедение в машиностроении»
ПОЯСНИТЕЛЬНАЯ
ЗАПИСКА
к курсовому
проекту
по дисциплине
«Информатика»
Выполнил
Логвин В.Н.
Гр. 104510
Проверил
Мельниченко В. В.
Минск 2012г.
1. Постановка задачи
Составить программу для обработки результатов соревнований по фигурному
катанию, проводившихся по трем видам многоборья (обязательная, короткая и
произвольная).
Обработку результатов по каждому из видов осуществлять в подпрограмме.
Результаты соревнований фигуристов по одному из видов многоборья представлены
оценками судей в баллах от 0 до 6. По результатам оценок судьи определяется
место каждого участника у этого судьи. Места участников определяются далее по
сумме мест, которые каждый участник занял у всех судей. Составить программу,
определяющую по исходной таблице оценок фамилии и сумму мест участников в
порядке занятых или мест.
Примечание: число участников не более 15, число судей не более 10.
2. Текст Pascal - программы
crt;,j,k,n,m,v,pr,max,poz,per,nom:integer;,s:string;:array[1..15,1..10]
of byte;:array[1..15] of integer;as:array[1..15] of string;:array[1..15,1..10]
of byte;:array[1..10] of boolean;:text;tityl;;(27,10);('KYRSOVOI PROEKT PO
INFORMATIKE');(35,25);(' Minsk 2012');;;;
procedure
meny;;('Koli4estvo y4astnikov: ');(n);('Koli4estvo sydei: ');(m);;('V6iberite
ny}I{n6Ii pynkt:');('1. Rezyl''tat6I obyazatel''noi programm6I.');('2.
Rezyl''tat6I korotkoi programm6I.');('3. Rezyl''tat6I proizvol''noi
programm6I.');('4. V6Iiti');(v);v=4 then halt;;
rez;;i:=1 to
3 do(i,s);:='d:\'+s+'.txt';
assign(t,put);(t);j:=1
to n dok:=1 to m do write(t,random(7),' ');(t);;(t);;;
ras4_viv;(v,s);:='d:\'+s+'.txt';(t,put);(t);j:=1
to n do for k:=1 to m do read(t,bal[j,k]);i:=1 to m doj:=1 to n do:=-1;k:=1 to
n do if (bal[k,i]>=max)and(zan[k]=false) then
begin:=bal[k,i];:=k;:=1;;pr=1
then[poz]:=true;(nom);[poz,i]:=nom;:=0;;;j:=1 to m do
zan[j]:=false;:=0;;(t);i:=1 to n do for j:=1 to m do
ms[i]:=ms[i]+mest[i,j];i:=1 to n do(i,s);as[i]:='Y4astnik '+s;;i:=1 to n-1 do
begin:=ms[i];:=0;j:=i+1
to n do if ms[j]<max then:=ms[j];:=j;:=1;;pr=1
then:=ms[poz];[poz]:=ms[i];[i]:=per;:=y4as[poz];as[poz]:=y4as[i];as[i]:=s;:=0;;;('Rezyl''tat6I
sorevnovanii (mesto - y4enik):');i:=1 to n do writeln(i,'. ',y4as[i]);;
;;;_viv;.
3. Описание
структуры программы
Программа имеет не сложный набор процедур, которые выполняют требуемый
расчет.
программа
pascal данные обработка
В программе задействованы следующие переменные и массивы:
Переменная
|
Описание
|
i, j, k
|
n, m
|
Количество участников и
судей соответственно
|
V
|
Выбор пользователя
|
pr
|
Проверочная переменная
|
max
|
Переменная для отыскания
максимального места
|
poz
|
Переменная-позиция
|
nom
|
Место участника
|
put, s
|
Текстовые переменные для
создания имен файлов 3-х видов соревнований
|
Mest
|
Массив распределение мест у
судей
|
Ms
|
Массив итоговых мест
|
Y4as
|
Строковый массив с именами
участников
|
Массив баллов судей
|
Zan
|
Проверочный массив
|
t
|
Текстовая переменная
|
После запуска программы будет выведен титульный лист. После нажатия
клавиши Enter программа вступит в цикл решения
задачи.
Для работы программы нужно ввести следующие данные: количество участников
многоборья и количество судей. Далее программа выведет список соревнований. При
выборе пунктов 1 - 3 будет произведен расчет. При выборе пункта 4 программа
завершит работу.
Данные соревнований (баллы каждого участника) будут созданы с помощью
генератора случайных чисел и занесены в текстовые файлы.
После выбора вида соревнований программа считает данные результаты из
файла и произведет их оценку. Далее на экран будет выведена информация о
местах.
После нажатия клавиши Enter
программа завершиться.
4. Блок-схема
программы
Процедура tityl
Процедура meny
Процедура rez
Процедура ras4_viv
Основная программа
5. Анализ
данных и результатов
Титульный лист программы:
Ввод количества участников и судей:
Выбор пользователя:
Результаты вычисления:
Список
использованных источников
1. Ставровский
А.Б. Турбо Паскаль 7.0. Учебник. - К.: Издательская группа BHV, 2000. - 400с.
2. Бондарев
В. М., Рублинецкий В. И., Качко Е. Г. Основы программирования , Феникс, 1997г. -
350 c.
. Пестриков
В.М., Маслобоев А.Н. Составление программ в Turbo Pascal, основы
программирования в среде Delphi - СПб.: БХВ-Петербург, 2005- 496с.