Білоруський Національний Технічний Університет
Кафедра В«Матеріалознавство в машинобудуванніВ»
ПОЯСНЮВАЛЬНА ЗАПИСКА
до курсового проекту
з дисципліни
В«ІнформатикаВ»
Виконав Логвин В.М.
Гр. 104510
Перевірив Мельниченко В. В.
Мінськ 2012р.
1. Постановка завдання
Скласти програму для обробки результатів змагань з фігурного катання, що проводилися за трьома видами багатоборства (обов'язкова, коротка і довільна).
Обробку результатів по кожному з видів здійснювати в підпрограмі. Результати змагань фігуристів по одному з видів багатоборства представлені оцінками суддів у балах від 0 до 6. За результатами оцінок судді визначається місце кожного учасника у цього судді. Місця учасників визначаються далі за сумою місць, які кожен учасник зайняв у всіх суддів. Скласти програму, що визначає по вихідній таблиці оцінок прізвища та суму місць учасників у порядку зайнятих або місць. p align="justify"> Примітка: число учасників не більше 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]...