Автор: Пользователь скрыл имя, 30 Марта 2010 в 10:32, курсовая работа
ЗАДАНИЕ: Задана действительная матрица размера n*m. Построить матрицу той же размерности, если каждый элемент новой матрицы равен сумме элементов в не заштрихованной области.
Задание на курсовую работу…………………………………………………2
Замечания руководителя……………………………………………….……..3
Введение…...………………….……………………………………………….5
1. Теоретическая часть…………….………………………………………….6
1.1 Стандартные типы данных……….……………………………….……6
1.2 Массивы в языке программирования Pascal…….…………………….9
1.3 Процедуры и функции…………………………………………….…....10
1.4 Графические возможности языка программирования Pascal………..13
2. Экспериментальная часть………………………………………………….15
2.1 Постановка задачи……………………………………………….……..15
2.2 Алгоритм решения задачи……………………………………….….....15
2.3 Описание диалога с пользователем……………………………….…..25
2.4 Контрольный пример……………………………………………….….26
Заключение…………………………………………………………………….27
Список литературы……………………………………………………………28
Приложение……………………………………………………………………29
Case TekDeystvie of
1: Begin
TekDeystvie:=Tekdeystvie+1;
SetColor(15);
OutTextXY(74,50,'Vvod MASSIVA Vrychnyu');
OutTextXY(74,90,'Sposob VbIchisleni9');
OutTextXY(84,110,'VbIVod Rezultata');
OutTextXY(600,470,'Exit');
SetColor(0);
SetFillStyle(1,0);
FillEllipse(67,53,3,3);
SetColor(2);
SetFillStyle(1,2);
FillEllipse(17,73,3,3);
OutTextXY(24,70,'Vvod MASSIVA SlychainbImi chislami');
End;
2: Begin
TekDeystvie:=Tekdeystvie+1;
SetColor(15);
OutTextXY(74,50,'Vvod MASSIVA Vrychnyu');
OutTextXY(24,70,'Vvod MASSIVA SlychainbImi chislami');
OutTextXY(84,110,'VbIVod Rezultata');
OutTextXY(600,470,'Exit');
SetColor (0);
SetFillStyle(1,0);
FillEllipse(17,73,3,3);
SetColor(2);
SetFillStyle(1,2);
FillEllipse(67,93,3,3);
OutTextXY(74,90,'Sposob VbIchisleni9');
End;
3: Begin
TekDeystvie:=Tekdeystvie+1;
SetColor(15);
OutTextXY(74,50,'Vvod MASSIVA Vrychnyu');
OutTextXY(24,70,'Vvod MASSIVA SlychainbImi chislami');
OutTextXY(74,90,'Sposob VbIchisleni9');
OutTextXY(600,470,'Exit');
SetColor(0);
SetFillStyle(1,0);
FillEllipse(67,93,3,3);
SetColor(2);
SetFillStyle(1,2);
FillEllipse(77,113,3,3);
OutTextXY(84,110,'VbIVod Rezultata');
End;
4: Begin
TekDeystvie:=Tekdeystvie+1;
SetColor(15);
OutTextXY(74,50,'Vvod MASSIVA Vrychnyu');
OutTextXY(24,70,'Vvod MASSIVA SlychainbImi chislami');
OutTextXY(74,90,'Sposob VbIchisleni9');
OutTextXY(84,110,'VbIVod Rezultata');
SetColor(0);
SetFillStyle(1,0);
FillEllipse(77,113,3,3);
SetColor(2);
OutTextXY(600,470,'Exit');
End;
5: Begin
TekDeystvie:=1;
SetColor(15);
OutTextXY(24,70,'Vvod MASSIVA SlychainbImi chislami');
OutTextXY(84,110,'VbIVod Rezultata');
OutTextXY(74,90,'Sposob VbIchisleni9');
OutTextXY(600,470,'Exit');
SetColor(2);
SetFillStyle(1,2);
FillEllipse(67,53,3,3);
OutTextXY(74,50,'Vvod MASSIVA Vrychnyu');
End;
End;
End;
{Knopka vverx}
#72: Begin
Case TekDeystvie of
1: Begin
TekDeystvie:=5;
SetColor(2);
OutTextXY(600,470,'Exit');
SetColor(15);
OutTextXY(74,50,'Vvod MASSIVA Vrychnyu');
OutTextXY(24,70,'Vvod MASSIVA SlychainbImi chislami');
OutTextXY(74,90,'Sposob VbIchisleni9');
OutTextXY(84,110,'VbIVod Rezultata');
SetColor(0);
SetFillStyle(1,0);
FillEllipse(67,53,3,3);
End;
2: Begin
TekDeystvie:=1;
SetColor(2);
SetFillStyle(1,2);
FillEllipse(67,53,3,3);
OutTextXY(74,50,'Vvod MASSIVA Vrychnyu');
SetColor(15);
OutTextXY(24,70,'Vvod MASSIVA SlychainbImi chislami');
OutTextXY(74,90,'Sposob VbIchisleni9');
OutTextXY(84,110,'VbIVod Rezultata');
OutTextXY(600,470,'Exit');
SetColor(0);
SetFillStyle(1,0);
FillEllipse(17,73,3,3);
End;
3: Begin
TekDeystvie:=Tekdeystvie-1;
SetColor(2);
SetFillStyle(1,2);
FillEllipse(17,73,3,3);
OutTextXY(24,70,'Vvod MASSIVA SlychainbImi chislami');
SetColor(15);
OutTextXY(74,50,'Vvod MASSIVA Vrychnyu');
OutTextXY(74,90,'Sposob VbIchisleni9');
OutTextXY(84,110,'VbIVod Rezultata');
OutTextXY(600,470,'Exit');
SetColor(0);
SetFillStyle(1,0);
FillEllipse(67,93,3,3);
End;
4: Begin
TekDeystvie:=Tekdeystvie-1;
SetColor(2);
SetFillStyle(1,2);
FillEllipse(67,93,3,3);
OutTextXY(74,90,'Sposob VbIchisleni9');
SetColor(15);
OutTextXY(74,50,'Vvod MASSIVA Vrychnyu');
OutTextXY(24,70,'Vvod MASSIVA SlychainbImi chislami');
OutTextXY(84,110,'VbIVod Rezultata');
OutTextXY(600,470,'Exit');
SetColor(0);
SetFillStyle(1,0);
FillEllipse(77,113,3,3);
End;
5: Begin
TekDeystvie:=Tekdeystvie-1;
SetColor(2);
SetFillStyle(1,2);
FillEllipse(77,113,3,3);
OutTextXY(84,110,'VbIVod Rezultata');
SetColor(15);
OutTextXY(74,50,'Vvod MASSIVA Vrychnyu');
OutTextXY(24,70,'Vvod MASSIVA SlychainbImi chislami');
OutTextXY(74,90,'Sposob VbIchisleni9');
OutTextXY(600,470,'Exit');
End;
End;
End;
End;
Until ch=#27;
CloseGraph;
END.