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

В 

Рисунок 1 - Блок-схема процедури VVOD

В 

Рисунок 2 - Блок-схема процедури Raschet

В В 

Рисунок 3 - Блок-схема функції Glavnaa

В 

Рисунок 4 - Блок-схема процедури Rejim

В 

Рисунок 5 - Блок-схема основної програми

.2 Програма розв'язання задачі на мові Паскаль

Program kursovoi_HEL; Print; n = 10; mas = array [1 .. n, 1 .. n] of real; = array [1 .. n] of real; = array [1. . n] of real; = array [1 .. n] of real; = array [1 .. n] of real; _izm = array [1 .. n, 1 .. n] of real; B: mas;: array [1 .. n] of string;: mas1; s_st: mas1; s_str: mas2; _st1: mass1; s_str1: mass2; D: mas_izm;, e, e_izm: real;, j, imax, jmax, k, t , p: integer;

f, f1, f3: text;

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

Procedure VVOD (var B: mas); (f, 'd: грузи.txt'); (f1, 'd: regi.txt'); (f1); i: = 1 to n do (f1, nazv [i]); (f1);

{читання таблиці вантажоперевезень} (f);

for i: = 1 to n doj: = 1 to n do (f, B [i, j]); (f);; (f);;

{процедура розрахунку} Raschet (B: mas);

{сума по рядках} _st [j]: = 0; i: = 1 to n doj: = 1 to n do_st [j]: = s_st [j] + B [i, j] ;

{сума по стовпцях} _str [i]: = 0;

for j: = 1 to n doi: = 1 to n do_str [i]: = s_str [i] + B [i, j];

{максимальну кількість вантажу в місцевому сполученні}

max: = B [1,1];: = 1; i: = 1 to n doB [i, i]> max then: = B [i, i];

k: = i;;

{зменшення максимальної кількості вантажу в місцевому сполученні

на 7%}

for i: = 1 to n doj: = 1 to n do (i = k) and (j = k) D [i, j]: = B [i, j] * 0.93D [i, j]: = B [i, j];

{сума зміненої таблиці по Рядок}

s_st1 [j]: = 0; i: = 1 to n doj: = 1 to n do_st1 [j]: = s_st1 [j] + D [i, j];

{сума зміненої таблиці по стовпцях}

s_str1 [i]: = 0; j: = 1 to n doi: = 1 to n do_str1 [i]: = s_str1 [i] + D [i, j];

{сума кількості вантажів у місцевому сполученні після зміни}

e_izm: = 0; i: = 1 to n doj: = 1 to n do (i = j) then_izm: = e_izm + D [i, j];

End;

{функція сумарного кількість вантажу в місцевому сполученні}

Function Glavnaa (B: mas): real;: = 0; i: = 1 to n doj: = 1 to n do (i = j) then: = e + B [i, i ];

Glavnaa: = e;;;

{виведення результатів у файл} VIVOD_fail;

{п...