Реферат Застосування програмних комплексів для вирішення інженерних завдань

Тема: Курсовые проекты

N] of real ;, max: real ;, j, imax, jmax: integer;: array [1..8] of string ;, output: text;

{висновок таблиці вантажоперевезень} Raschet; i, j: integer;

Begin

{знаходимо суму за рядками}

For i:=1 to N do_strok [i]:=0; j:=1 to N do_strok [i]:=A [i, j] + V_strok [i] ;;

{знаходимо суму по стовпцях}

For i:=1 to N do_stolbcov [i]:=0; j:=1 to N do_stolbcov [i]:=A [j, i] + V_stolbcov [i] ;;; Vivodfile (N: integer; A: Mas); i, j: integer; i:=1 to N doj:=1 to N do write (A[i,j]:7:1);;;;region;[1]:=(laquo;Бургунraquo;);[2]:=(laquo;Корсикraquo;);[3]:=(laquo;Гваделraquo;);[4]:=(laquo;Мартинraquo;);[5]:=(laquo;Гвианаraquo;);[6]:=(laquo;Пикардraquo;);[7]:=(laquo;Майоттraquo;);[8]:=(laquo;Сумма ) ;; Vivod (N: integer; A: Mas); i, j: integer;(laquo;--------------------------------------------------------------------------------raquo;);( | , Orig [1], | , Orig [2], | , Orig [3], | , Orig [4], |, Orig [ 5], | , Orig [6], | , Orig [7], | Raquo;, Orig [8], | Raquo; );;(laquo;--------------------------------------------------------------------------------raquo;);i:=1 to N do (Orig [i]); j:=1 to N do ( | , A [i, j]: 7: 1); ( | , V_strok [i]: 7: 1); ( | ); i=N thenj:=1 to N doj=1 then(laquo;--------------------------------------------------------------------------------raquo;);(laquo;Сумма ) ;; ( |raquo;,V_stolbcov[j]:7:1);;(laquo;|raquo;);;(laquo;--------------------------------------------------------------------------------raquo;);;;;Vivod1(N: integer; A: Mas); i, j: integer;(laquo;--------------------------------------------------------------------------------raquo;);(laquo;|raquo;,Orig[1],laquo;|raquo;,Orig[2],laquo;|raquo;,Orig[3], | , Orig [4], | , Orig [5], | , Orig [6], | , Orig [7], | , Orig [8], | laquo;);;(raquo;--------------------------------------------------------------------------------laquo;);i:=1 to N do (Orig [i]); j:=1 to N do ( | , A [i, j]: 7: 1); ( |laquo;);(raquo;--------------------------------------------------------------------------------');;;;

{головна програма};

{створення і роздрук вихідної таблиці вантажоперевезень}

assign (input, F: variant13.txt ); (output, F: результати variant13.out ); (input); rewrite (output); i:=1 to N doj:=1 to N do read (input, A [i, j]); (input) ;;;; (output, Зворотній матриця: );

for i:=1 to n doj:=1 to n do write (output, A [i, j]: 4: 1); (output); (output); ( Вихідна таблиця вантажоперевезень з сумою: );

Raschet;

Vivod (N, A);

{знайдемо суму вантажоперевезень в місцевому сполученні}

S:=0; i:=1 to N do:=S + A [i, i]; ( Сума ел-тів головної діагоналі= raquo ;, S, . );

writeln;

max:=0;

{знайдемо максимальний елемент таблиці вантажоперевезень вище головної діагоналі}

For i:=1 to N doj:=1 to N do (i lt; j) and (A [i, j] gt;=max) then:=A [i, j]; :=i;:=j ;; ( Значення макс. ел-та табл. вище глав. діагоналі= raquo ;, max: 6: 3, . );

writeln;

writeln ( Значення номера рядка з максимальним елементом= raquo ;, imax, . );

writeln;

writeln ( Значення номера стовпчика з максимальним елементом= raquo ;, jmax, . );

writeln;

{Зменшення перевезень по наіденному регіону на 9%}

For j:=1 to N do [imax, j]:=A [imax, j] - 0.09 * A [imax, j]; ( Матриця перерахунку=); ( N, A) ;; writeln.

3.3 Результати роботи програми

І з х о д н а я таблиця п е р е в про із про до р р у з о в між регіонами

Вихідна таблиця вантажоперевезень з сумою:

-------------------------------------------------------------------------------

------------------------------------------------------------------------------