Применение программных комплексов для решения инженерных задач

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

Министерство образования республики Беларусь

Учреждение образования

Белорусский государственный университет транспорта

Кафедра Информационные технологии

Курсовая работа

по информатике

Применение программных комплексов для решения инженерных задач

Выполнила:

студентка гр. УК-21 Огулик Е.В

Проверил:

Преподаватель Иоффе Л.А.

Гомель, 2012

Содержание:

Раздел 1. Решение задачи средствами Паскаль

.2 Алгоритм решения задачи

.2 Программа решения задачи на языке Паскаль

.3 Результаты решения задачи

Раздел 2. Решение задачи средствами Microsoft Excel

.1 Таблица исходных данных

.2 Выполнение расчетов

.3 Построенные диаграммы

Раздел 3. Решение задачи в среде MathCAD

Заключение

Список литературы

Введение

Высококвалифицированные специалисты технического профиля XXI века - века информационные технологии - должны умело применять на практике знания, как общеинженерные, так и специальные, владеть знаниями иностранного языка и основами компьютерной грамотности, а также пользоваться различными специализированными программными продуктами, которые позволяют решать инженерные задачи в кратчайшие сроки и на высоком техническом уровне. Именно это позволит молодым инженерам быть востребованными на производстве.

Цель изучения нами информационных технологий - практическое применение знаний современных информационных технологий в изучении профильных дисциплин, для оформления курсовых работ и диплома, подготовка к комплексному применению информационных технологий для профессиональной деятельности.

Становление будущего специалиста происходит в вузе и наиболее эффективным в образовательном процессе является использование информационных технологий.

Поэтому целью данной курсовой работы является:

пополнение знаний в области информационных технологий,

расширение кругозора по применению современных информационных технологий,

приобретение навыков в составлении программ на языке Pascal,

приобретение навыков в работе со средствами пакета Microsoft Office и пакета MathCad.

Раздел 1. Решение задачи средствами Паскаль

.2 Алгоритм решения задачи

Рисунок 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];

{сумма измененной таблицы по cтрокам}

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;

{связываем данные с файлом}(f3,c:\kurs.txt);

{записываем в файл}(f3);(f3,

********************************************************);(f3, * КУРСОВУЮ РАБОТУ ПОДГОТОВИЛА СТУДЕНТКА

ГРУППЫ УК-21 ОГУЛИК ЕЛЕНА *);

writeln(f3,

*******************************************************);(f3, );

writeln(f3,Исходная таблица перевозок:);

writeln

(f3,

write (f3, );i:=1 to n do(f3,nazv[i]:12);(f3);i:=1 to n do(f3,nazv[i]:12);j:=1 to n do(f3,B[i,j]:11:1,|);(f3);;(f3,(f3);

{сумма количества вывозимого груза: по строкам}(f3,Количество вывезенного груза из регионов:);

writeln(f3);j:=1 to n do(f3,из региона ,nazv[j], вывезено , s_st[j], т груза);

{сумма количества ввозимого груза: по столбцам}(f3,Количество ввозимого груза в регионы:);

writeln(f3);i:=1 to n do(f3,ввезено ,s_str[i], т груза в ,nazv[i]);

{сумма количества грузов, перевозимых в местном сообщении по всем

регионам}:=Glavnaa(B);(f3,В регионе , nazv [k] , перевозится максимальное

количество

груза, равное , max);(f3,Количества грузов, перевозимых в местном сообщении по

всем регионам равно , e:4:1);

{вывод итоговой таблицы перевозок после уменьшения максимального

количества груза в местном сообщении на 7%}(f3,Печать измененной таблицы перевозок);

writeln (f3,

writeln(f3);(f3, Итого|);i:=1 to n do(f3, s_st1[i]:12:1,|);(f3, e_izm:8:1,|);(f3);(f3,

close(f3);

End;

{вывод результатов на экран}

Procedure VIVOD_ekran;( *******************************

Blog

Применение программных комплексов для решения инженерных задач

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование