Трансформація рейтингової оцінки

Сума набраних рейтингових балів за всі етапи підготовки та захист курсової роботи переводиться в оцінки системи оцінювання ECTS (див. таблицю 3). Система передбачає семибальну шкалу (A, B, C, D, E, FX, F) та подвійне (описове та статистичне) визначення цих оцінок.

Таблиця 3

Підсумковий рейтинговий бал	Підсумкова оцінка за шкалою ECTS	Традиційна екзаменаційна оцінка	Традиційна залікова оцінка
91 – 100	A – відмінно	відмінно	зараховано
84 – 90	B – дуже добре	добре
76 – 83	C – добре
66 – 75	D – задовільно	задовільно
61 – 65	E – достатньо (задовольняє мінімальні критерії)
21 – 60	FХ – незадовільно	незадовільно	не зараховано
0 – 20	F – незадовільно (потрібна додаткова робота)	не допущено	не допущено

Оцінка за курсову роботу вноситься в заліково-екзаменаційну відомість і в залікову книжку студента за підписами членів комісії.

Оцінка студента за курсову роботу враховується стипендіальною комісією при визначенні розміру стипендії разом з його оцінками за результатом підсумкового контролю.

Методичні вказівки до виконання курсової робіти

У якості прикладу виконання контрольної роботи обрано наступне завдання (див. табл. 4):

Таблиця 4

№ варіанта	Розмірність	Тип даних	Вираз для обчислення елементу масиву		Виконати
			непарного	парного
1	2	3	4	5	6
0	4 х 5	Дійсний	i – 20.5	i + 5.5	Значення елементів одновимірного масиву складаються з максимальних значень елементів рядків двовимірного масиву

І. Форма Delphi-програми задачі

Іі. Опис перемінних

Var

Form1: TForm1;

SG1 : Array[1..4,1..5] Of Real; { вхідний двовимірний масив}

SG2 : Array[1..4] Of Real; { вихідний одновимірний масив}

i, j, k : Integer; { лічильники циклів }

max : Integer; { поточне максимальне }

{ значення у рядку }

Ііі. Тексти процедур Delphi-програми

procedure TForm1.Button1Click(Sender: TObject); { Formula }

begin

k := 1;

For i:=1 To 4 Do

For j:=1 To 5 Do

Begin

If ((k Mod 2) <> 0) Then

StringGrid1.Cells[j-1,i-1] := FloatToStr(k – 20.5)

Else

StringGrid1.Cells[j-1,i-1] := IntToStr(k + 5.5);

k := k + 1;

End;

end;

procedure TForm1.Button2Click(Sender: TObject); { Random }

begin

Randomize;

For i:=1 To 4 Do

For j:=1 To 5 Do

StringGrid1.Cells[j-1,i-1] := FloatToStr(Random(101)/2 - 25);

end;

procedure TForm1.Button3Click(Sender: TObject); { Run }

begin

For i:=1 To 4 Do

For j:=1 To 5 Do

If (StringGrid1.Cells[j-1,i-1]=' ') Then

SG1[i,j] := 0

Else

SG1[i,j] := StrToFloat(StringGrid1.Cells[j-1,i-1]);

For i:=1 To 4 Do

Begin

max := SG1[i,1];

For j:=2 To 5 Do

If (SG1[i,j] > max) then

max := SG1[i,j];

SG2[i] := max;

End;

For i:=1 To 4 Do

StringGrid2.Cells[0,i-1] := FloatToStr(SG2[i])

end;

procedure TForm1.Button4Click(Sender: TObject); { Clear }

begin

For i:=1 To 4 Do

For j:=1 To 5 Do

StringGrid1.Cells[j-1,i-1] := ' ';

For i:=1 To 4 Do

Begin

StringGrid2.Cells[0,i-1] := ' ';

SG2[i] := 0;

End;

end;

procedure TForm1.Button5Click(Sender: TObject); { Close }

begin

Close

end;

ІV. Схема алгоритму основної процедури RUN

5. Результат рішення задачі

Додаток 1

МІНІСТЕРСТВО КУЛЬТУРИ І МИСТЕЦТВ УКРАЇНИ

КИЇВСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ

КУЛЬТУРИ І МИСТЕЦТВ

ФАКУЛЬТЕТ ЕКОНОМІКИ ТА МЕНЕДЖМЕНТУ

КАФЕДРА КОМП’ЮТЕРНИХ НАУК

КУРСОВА РОБОТА

з навчальної дисципліни

«АЛГОРИТМІЗАЦІЯ ТА ПРОГРАМУВАННЯ»

на тему

«Алгоритмізація та програмування

y середовищі DELPHY»

Курсова робота студента 1 курсу групи КН-21

Афанасьєва В.П.

Науковий керівник доктор технічних наук, професор

Прокудін Г.С.

КИЇВ - 2012

Додаток 2

Затверджено

Зав. кафедрою "Комп’ютерних наук"

проф. Чайковська О.А.

“__” 2012 р.

Київський Національний Університет Культури і Мистецтв

( назва вищого навчального закладу)

Кафедра Комп’ютерних наук

Дисципліна Алгоритмізація та програмування

Напрям Комп'ютерні науки

Спеціальність Інформаційні управляючі системи та технології

Курс 1 Група КН – 21 Семестр 2