Решение транспортных задач средствами Pascal, MS Excel, MathCad
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
СОДЕРЖАНИЕ
Введение
.Решение задачи средствами Паскаль
.1Алгоритм решения задачи
.2Программа решения задачи на языке Паскаль
.3Результаты решения задачи
.Решение задачи средствами MS EXCEL
.Решение задачи в среде MathCad
Заключение
Литература
ВВЕДЕНИЕ
Внедрение и широкое использование средств вычислительной техники является одним из главных факторов ускорения научно-технического прогресса в нашей стране. Интенсивное развитие вычислительной техники, ее проникновение во все сферы деятельности ставит перед специалистами транспортной отрасли задачу широкого распространения компьютерной грамотности.
Разработка программ и программных комплексов приобретает характер индустриального производства. Значение программного обеспечения трудно переоценивать, т.к именно программы определяют и создают интеллект компьютера. В то же время процесс создания программ относится к одной из наиболее сложных сфер творческой деятельности человека, требующий больших усилий и специальной технологии разработки.
При составлении программ применяются различные языки программирования, среди которых Pascal занимает особое место. Отражая основные концепции структурного программирования, язык Pascal быстро завоевал популярность. Наша задача - практическое применение знаний современных информационных технологий в изучении профильных дисциплин, для оформления курсовых работ и диплома, подготовка к комплексному применению информационных технологий для профессиональной деятельности.
В данной курсовой работе необходимо научиться решать транспортные задачи средствами Pascal, Ms Excel, MathCad. Говоря подробнее, мне предстоит пополнение моих знаний в области информационных технологий, расширение кругозора в сфере моей будущей профессии, приобретение навыков в составлении алгоритма решения задачи и написании программ на языке Pascal [3, 4, 9, 11, 12, 14, 15] по работе с текстовыми файлами, обработке массивов, применении подпрограмм и структурированного типа данных, а также приобретение навыков в работе со средствами пакета Microsoft Office [1,2,4,8-10,13,16] и пакета MathCad [5,6,7,17]. Результаты работы требуется представить в структурированном документе Ms Word, содержащем внедрённые объекты Ms Excel и MathCad
1. Решение задачи средствами Паскаль
.1 Алгоритм решения задачи
Основная программа
Процедура Vvodn
Процедура Vvod
Процедура Vivod
Процедура Summa
Функция Sumdiag
Процедура pb_pv
.2 Программа решения задачи на языке Паскаль
program vorobey;Mas=array[1..9,1..9] of real;=array[1..9] of string;A:mas;i,j:byte; min:real;f,f2:text;region:rg;,s2:real;imin:byte;n:byte;_region:array[1..9] of string;:array[1..9] of real;:array[1..9] of real;
{Процедура вывода приветствия}Vvodn;
var i,j:byte;(Здравствуйте! Сейчас вам будет предложено ввести количество регионов между которыми осуществляються грузоперевозки);(Количество регионов не должно превышать 9);;(Введите, пожалуйста, количество регионов,n);(n);;(Результаты будут сохранены в текстовом файле Genrih1111);;
{!!!Процедура взятия из файла!!!}
Procedure Vvod(n:byte;var A:mas);(n=,n);(f,g:\\Учёба\Воробей\Информатика\Genrih111.txt);(f);i:=1 to n doj:=1 to n do read(f,A[i,j]);(f);;(f);
End;
{!!!Процедура сохранения в файл!!!}
Procedure VIVOD(n:byte;A:mas);(f2, );(f2,|регион\грузы|:13);i:=1 to n do(f2,Name_region[i]:10);(f2);(f2, );i:=1 to n do(f2,Name_region[i]:10);j:=1 to n do(f2,A[i,j]:13:1);(f2);( );
end;(f2);;
{!!!Процедура нахождения суммы по строкам и столбцам!!!}
Procedure Summa(n:byte;A:mas);i,j:byte;(f2);
{!!!Формирование S по столбцам!!!}j:=1 to n do
begin[j]:=0;i:=1 to n do[j]:=S[j]+A[i,j];;
writeln(f2, Суммарные объёмы ввоза в каждом региона (Сумма грузов по столбцам) );
for j:=1 to n do(f2,Name_region[j]:10,S[j]:4:1);
{!!!Формирование S по строкам!!!}i:=1 to n do[i]:=0;j:=1 to n do[i]:=S1[i]+A[i,j];;
writeln(f2,Суммарные объемы вывоза в каждом регионе (Сумма грузов по строкам) );
for i:=1 to n do(f2,Name_region[i],S1[i]:4:1);
writeln(f2);;
{!!!Функция, вычисляющая сумму по главной диагонали!!!}
Function SumDiag(n:byte;A:mas):real;i:byte;S2:real;:=0;i:=1 to n do:=S2+A[i,i];:=S2;
end;
{!!!Процедура нахожения грузов в местном сообщении!!!}
procedure pb_pv(n:byte;A:mas; var imin:byte; var min:real);z:real;:=A[1,1]; imin:=1;i:=1 to n doj:=1 to n do(i=j) and (min>A[j,j])then:=A[j,j];
imin:=j;;;
{!!!Раздел операторов главной программы!!!}(f2,g:\\Учёба\Воробей\Информатика\Genrih1111.txt);
rewrite(f2);_region[1]:= Лида ;_region[2]:= Рось ;_region[3]:= Гродно ;_region[4]:= Мосты ;_r