Автор: Пользователь скрыл имя, 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
Readln;
Goto M2;
End
Else
Begin
ClearDevice;
SetColor(4);
OutTextXY(220,240,'Chislo Stolbschov Dolzhno biT RAVNO Chisly Strok!!');
Delay(50000);
Delay(50000);
Delay(50000);
Delay(50000);
Delay(50000);
Readln;
Goto M2;
End;
End;
5:Begin
ClearDevice;
SetColor(4);
OutTextXY(260,240,'NE ZADANO!');
Readln;
Goto M3;
End;
6:Begin
ClearDevice;
SetColor(4);
OutTextXY(260,240,'NE ZADANO!');
Readln;
Goto M3;
End;
7:Begin
Goto M2;
End;
End;
End;
{Knopka vniz}
#80: Begin
Case TekDeystvie of
1: Begin
TekDeystvie:=2;
SetColor(10);
Rectangle (30,290,150,440);
SetColor(1);
Rectangle (30,60,150,210);
End;
2: Begin
TekDeystvie:=7;
SetColor(2);
OutTextXY(600,470,'Back');
SetColor(1);
Rectangle (30,290,150,440);
End;
3: Begin
TekDeystvie:=4;
SetColor(10);
Rectangle (260,290,380,440);
SetColor(1);
Rectangle (260,60,380,210);
End;
5: Begin
TekDeystvie:=6;
SetColor(10);
Rectangle (490,290,610,440);
SetColor(1);
Rectangle (490,60,610,210);
End;
4: Begin
TekDeystvie:=7;
SetColor(2);
OutTextXY(600,470,'Back');
SetColor(1);
Rectangle (260,290,380,440);
End;
6: Begin
TekDeystvie:=7;
SetColor(2);
OutTextXY(600,470,'Back');
SetColor(1);
Rectangle (490,290,610,440);
End;
End;
End;
{Knopka vverx}
#72: Begin
Case TekDeystvie of
2: Begin
TekDeystvie:=1;
SetColor(10);
Rectangle (30,60,150,210);
SetColor(1);
Rectangle (30,290,150,440);
End;
4: Begin
TekDeystvie:=3;
SetColor(10);
Rectangle (260,60,380,210);
SetColor(1);
Rectangle (260,290,380,440);
End;
6: Begin
TekDeystvie:=5;
SetColor(10);
Rectangle (490,60,610,210);
SetColor(1);
Rectangle (490,290,610,440);
End;
7: Begin
TekDeystvie:=6;
SetColor(15);
OutTextXY(600,470,'Back');
SetColor(10);
Rectangle (490,290,610,440);
End;
End;
End;
{Knopka vlevo}
#75: Begin
Case TekDeystvie of
3: Begin
TekDeystvie:=1;
SetColor(10);
Rectangle (30,60,150,210);
SetColor(1);
Rectangle (260,60,380,210);
End;
4: Begin
TekDeystvie:=2;
SetColor(10);
Rectangle (30,290,150,440);
SetColor(1);
Rectangle (260,290,380,440);
End;
5: Begin
TekDeystvie:=3;
SetColor(10);
Rectangle (260,60,380,210);
SetColor(1);
Rectangle (490,60,610,210);
End;
6: Begin
TekDeystvie:=4;
SetColor(10);
Rectangle (260,290,380,440);
SetColor(1);
Rectangle (490,290,610,440);
End;
End;
End;
{Knopka vpravo}
#77: Begin
Case TekDeystvie of
1: Begin
TekDeystvie:=3;
SetColor(10);
Rectangle (260,60,380,210);
SetColor(1);
Rectangle (30,60,150,210);
End;
2: Begin
TekDeystvie:=4;
SetColor(10);
Rectangle (260,290,380,440);
SetColor(1);
Rectangle (30,290,150,440);
End;
3: Begin
TekDeystvie:=5;
SetColor(10);
Rectangle (490,60,610,210);
SetColor(1);
Rectangle (260,60,380,210);
End;
4: Begin
TekDeystvie:=6;
SetColor(10);
Rectangle (490,290,610,440);
SetColor(1);
Rectangle (260,290,380,440);
End;
End;
End;
End;
Until ch=#27;
End
Else
Begin
ClearDevice;
SetColor(4);
OutTextXY(260,240,'VVEDITE MASSIV!');
Delay(50000);
Delay(50000);
Delay(50000);
Delay(50000);
Delay(50000);
Readln;
Goto M2;
End;
End;
4:Begin
ClearDevice;
If K2=2 Then
Begin
SetColor(3);
OutTextXY (268,10,'NOVbII MASSIV');
SetColor(11);
Line (265,19,373,19);
Line (265,7,373,7);
Line (265,19,265,7);
Line (373,19,373,7);
SetColor(2);
VyvodmassG (B,'B');
SetColor (4);
OutTextXY (320,470,'Press ENTER to Continue');
Delay (50000);
Delay (50000);
Delay (50000);
SetColor (0);
OutTextXY (320,470,'Press ENTER to Continue');
Delay (50000);
Delay (50000);
Delay (50000);
SetColor (4);
OutTextXY (320,470,'Press ENTER to Continue');
Readln;
Goto M2;
End
Else
Begin
SetColor(4);
OutTextXY(260,240,'VbIBERITE SPOSOB!');
Delay(50000);
Delay(50000);
Delay(50000);
Delay(50000);
Delay(50000);
Readln;
Goto M2;
End;
End;
{Vihod}
5: Begin
SetColor (4);
OutTextXY(600,470,'Exit');
Delay (5000);
ch:=#27;
End;
End;
End;
{Knopka vniz}
#80: Begin