n )> m then (m, n, a); (m, n, a); else writeln («Nuley menshe kolichestva strok»);
readln;.
Текст програми, що запускає інтерфейс
program kursovik;
uses crt, stas, graph; 11; i, j, fl, m, n, k, l, x, gd, gm: integer;: text;, b, c: matr;, d: char; rezult (var f: text; a, b, c: matr);; (f); (f, «Ishodnaya matrica»); i:=1 to m do beginj:=1 to n do ( f, a [i, j]: 4); (f);; (f, «Matrica s transponirorannym kvadratom»); i:=1 to m do beginj:=1 to n do (f, b [i, j]: 4); (f);; koli (c, m, n)> m then begin writeln (f, «Matrica s zamenoy nuley»); i:=1 to m do beginj:=1 to n do (f, c [i, j]: 4); (f);; else writeln (f, «Nuley menshe kolichestva strok»); (f);;:=detect; (gd, gm, «C:/bp/bgi»);;(4);(20,20,630,450);(25,25,625,445);(1,4);(23,23,4);(0,0,2);(7);(30,30,«Kursovaya rabota po informatike »); (30,90,« Vipolnil: student 1 kursa »); (30,120,« FMRM C - 610 »); (30,150,« Levinskiy Stanislav »); (30,180,« Proverila: Lebedenko LF »); (100,400,« Novosibirsk, 2007 »);;;;;: =« »;:=0; g <>« 4 » do; (20,10); («Menu»); (20,12); («1. Vvod matricy»); (20,14); («2. Obrabotka»); (20,16 ); («3. Vivod»); (20,18); («4. Vihod»); (20,23); («Viberite punkt menu»);:=readkey; g of
«1»: begin
: clrscr;;:=« »; (20,10); (« Kak vvodit matricu?" ); (20,12); (« 1. S klaviatury »); (20,14); (« 2. Sluchainimi chislami » ); (20,16); («3. iz faila»);:=readkey; d of
«1»: begin; («Vvedite razmer matricy»); (m, n);; i:=1 to m doj:=1 to n do begin (a [i, j]); [ i, j]:=a [i, j]; [i, j]:=a [i, j];;;;
«2»: begin; («Vvedite razmer matricy»); (m, n);; (m, n, a, b, c);;;
«3»: begin; (f, «matr.txt»); (f); («Vvedite razmer matricy»); (m, n); i:=1 to m doj:=1 to n do begin (f, x); [i, j]:=x; [i, j]:=x; [i, j]:=x;; (f);;;;:=1;;
«2»: begin; fl <> 1 then («Matrica ne vvedena»); («Dlya vvoda matricy nazhmite Enter»);; 11; (15,10); (a, m, n, k, l); (m, n, k, l, b); koli (c, m, n)> m then zamena (m, n, c); («Obrabotka dannyh zavershena»);; ;;
«3»: begin;:=« »; (20,10); (« Kuda vivodit rezultaty?" ); (20,12); (« 1. Na ekran »); (20,14); (« 2. V fail » ); (20,16); («3. na printer»);:=readkey; d of
«1»: assign (f, «con»);
«2»: assign (f, «rezultat.txt»);
«3»: assign (f, «prn»);; (f, a, b, c); d <> «1» then writeln («dannye peredany po naznacheniu»);;;;;.
Результати роботи програми
Вихідна матриця
4 - 10 - 5 7
9 8 Березня - 5
2 - 8 - 2 - 2
8 серпня - 2 3
- 9 - 10 - 10 - 8
9 червня - 6 Лютого
Матриця з транспоновану квадратом
4 - 10 - 5 7
9 8 Березня - 5
2 - 8 - 2 - 2
8 серпня - 2 3
- 9 - 10 - 10 - 8
6 9 - 6 Лютого
Висновок
програма форма інтерфейс користувач
Виконавши цю роботу, я закріпив свої навички програмування мовою Turbo Pascal, розглянув багато питань, пов'язаних з призначенням, створенням та використанням модулів в Turbo Pascal.
У роботі приведений результат роботи програми.
З моєї роботи видно, що використання модулів дуже сильно полегшує процес написання обширних комплексних програм.
