Размещено на http://www.allbest.ru/

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

Введение

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

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

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

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

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

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

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

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

задача программирование паскаль excel

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

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,'

write (f3,' Регионы|');i:=1 to n do(f3,nazv[i]:12,'|');(f3,' Итого|');(f3);(f3,'(f3);i:=1 to n do(f3,nazv[i]:12,'|');j:=1 to n do(f3,D[i,j]:12:1,'|');(f3,s_str1[i]:9:1,'|');(f3);;(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;(' ***************************************************');

writeln(' * *');

writeln(' ****************************************************');

write (' ');

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

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

writeln;

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

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

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

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

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

сообщении по всем регионам}:=Glavnaa(B);('Количества грузов, перевозимых в местном сообщении по всем

регионам равно ', e:4:1);('В регионе ', nazv[k] , ' перевозится максимальное количество

груза, равное ', max);

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

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

writeln ');(' Регионы|');i:=1 to n do(nazv[i]:12,'|');(' Итого|');;(');;i:=1 to n do(nazv[i]:12,'|');j:=1 to n do(D[i,j]:12:1,'|');(s_str1[i]:9:1,'|');;;(');;(' Итого');i:=1 to n do( s_st1[i]:12:1,');(e_izm:8:1,');;End;

{вывод результатов на принтер}

{процедура выбора вывода результатов}REJIM;('Укажите способ вывода данных:');('->1-вывод в файл');('->2-вывод на экран');('->3-вывод на принтер');

readln(p);p of

:VIVOD_fail;

2:VIVOD_ekran;writeln('Неправильно указан путь, повторите ввод!');

end;;

{главная программа}(B);(B);

Glavnaa(B);;.

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

Таблица - Исходная таблица перевозок:

Регионы	Брест	Пинск	Лунинец	Жлобин	Могилев	Гомель	Рогачев	Минск	Молодечно	Барановичи
Брест	27.0	1.0	54.0	54.0	16.0	50.0	61.0	96.0	7.0	16.0
Пинск	51.0	49.0	64.0	22.0	80.0	21.0	45.0	42.0	30.0	62.0
Лунинец	56.0	50.0	34.0	64.0	56.0	60.0	95.0	72.0	69.0	18.0
Гомель	88.0	14.0	8.0	5.0	92.0	79.0	74.0	43.0	74.0	11.0
Жлобин	26.0	12.0	43.0	93.0	71.0	53.0	60.0	43.0	75.0	8.0
Рогачев	49.0	10.0	50.0	67.0	88.0	30.0	78.0	20.0	2.0	81.0
Могилев	70.0	60.0	92.0	26.0	3.0	53.0	50.0	29.0	60.0	76.0
Минск	31.0	38.0	43.0	25.0	97.0	34.0	98.0	35.0	93.0	30.0
Молодечно	82.0	87.0	50.0	39.0	69.0	52.0	63.0	21.0	32.0	57.0
Барановичи	39.0	22.0	20.0	84.0	31.0	28.0	11.0	82.0	33.0	81.0

Количество вывезенного груза из регионов:

из региона Брест вывезено 519 т груза

из региона Пинск вывезено 343 т груза

из региона Лунинец вывезено 458 т груза

из региона Гомель вывезено 479 т груза

из региона Жлобин вывезено 603 т груза

из региона Рогачев вывезено 460 т груза

из региона Могилев вывезено 635 т груза

из региона Минск вывезено 483 т груза

из региона Молодечно вывезено 475 т груза

из региона Барановичи вывезено 413 т груза

Количество ввозимого груза в регионы:

ввезено 382 т груза в Брест

ввезено 466 т груза в Пинск

ввезено 574 т груза в Лунинец

ввезено 488 т груза в Гомель

ввезено 484 т груза в Жлобин

ввезено 475 т груза в Рогачев

ввезено 519 т груза в Могилев

ввезено 497 т груза в Минск

ввезено 552 т груза в Молодечно

ввезено 431 т груза в Барановичи

В регионе Барановичи перевозится максимальное количество груза, равное 81

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

Таблица - Печать измененной таблицы перевозок

Регионы	Брест	Пинск	Лунинец	Жлобин	Могилев	Гомель	Рогачев	Минск	Молодечно	Барановичи	Итого
Брест	27.0	1.0	54.0	54.0	16.0	50.0	61.0	96.0	7.0	16.0	382.0
Пинск	51.0	49.0	64.0	22.0	80.0	21.0	45.0	42.0	30.0	62.0	466.0
Лунинец	56.0	50.0	34.0	64.0	56.0	60.0	95.0	72.0	69.0	18.0	574.0
Гомель	88.0	14.0	8.0	5.0	92.0	79.0	74.0	43.0	74.0	11.0	488.0
Жлобин	26.0	12.0	43.0	93.0	71.0	53.0	60.0	43.0	75.0	8.0	484.0
Рогачев	49.0	10.0	50.0	67.0	88.0	30.0	78.0	20.0	2.0	81.0	475.0
Могилев	70.0	60.0	92.0	26.0	3.0	53.0	50.0	29.0	60.0	76.0	519.0
Минск	31.0	38.0	43.0	25.0	97.0	34.0	98.0	35.0	93.0	30.0	497
Молодечно	82.0	87.0	50.0	39.0	69.0	52.0	63.0	21.0	32.0	57.0	552.0
Барановичи	39.0	22.0	20.0	84.0	31.0	28.0	11.0	82.0	33.0	81.0	425.3
Итого	519.0	343.0	458.0	479.0	603.0	460.0	635.0	483.0	475.0	407.3	408.3

программа задача pascal excel mathcad

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

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

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

Вычисляем итоговые расчеты по строкам и столбцам, сумму количества грузов, перевозимых в местном сообщении по всем регионам, с помощью функции СУММ:

Таблица

Сумму количества грузов в местном сообщении представим в виде таблицы:

Таблица

Регион с максимальным количеством груза, перевозимого в местном сообщении, был найден с помощью функций категории «Ссылки и массивы»:

Таблица

Уменьшение максимального груза в местном сообщении на 7% производим при помощи функции ЕСЛИ с каждым элементом на диагонали:

Таблица

Таблица

Итоговые данные для региона с максимальным количеством груза, перевозимым в местном сообщении, представлены в следующей таблице:

Таблица

Итоговые данные по расчетам

Регион с максимальным количеством груза, перевозимого в местном сообщении
Максимальное количество перевозимого груза в местном сообщении	81
Индекс максимального значения	10
Регион с максимальным количеством перевозимого груза	Барановичи

Измененная таблица грузоперевозок после уменьшения на 7% максимального количества груза в местном сообщении

Таблица

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

Диаграмма



Рис.

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

Берем исходные данные таблицы из файла

Количество груза отправленного и прибывшего



Заключение

В процессе работы было выполнено: решение задачи о выполнении перевозки грузов по нескольким регионам на языке программирования Паскаль, составление алгоритма решения задачи, оформление задания, текста программы, алгоритма и результатов решения в текстовом процессоре MS Word. Поставленная задача была решена также средствами табличного процессора MS Excel и пакета для математических и инженерных расчётов MathCAD. Во всех трёх случаях я получила одинаковые (в пределах допустимой погрешности) результаты.

Были изучены такие разделы программирования на языке Паскаль, как работа с пользовательскими подпрограммами и функциями, с файлами, работа с экраном и принтером.

На примере задачи я убедилась, что с помощью языка Паскаль можно писать большие программы, рассчитанные на широкий круг пользователей. Я обучаюсь на факультете «Управление процессами перевозок» и я убеждёна, что знания, полученные мною во время изучения информатики, очень пригодятся мне в будущем. Ведь компьютеризация транспортной отрасли сейчас имеет огромное значение.

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

задача программирование паскаль excel

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

1. Борисенко М.В. Компьютерные информационные технологии / М.В. Борисенко; М-во образования РБ, БелГУТ. - Гомель: БелГУТ,2008. - 296 с.

2. Бородич Ю.С., Вальвачев А.Н., Кузьмич А.И. Паскаль для персональных компьютеров - Минск: ВШ, 1991. - 365с.

3. Гораев О.П., Текстовый процессор MS Word: практикум по компьютерным технологиям - Гомель: БелГУТ, 2003. - 68 с.

4. Гораев О.П., Лыч Ю.П. Электронные таблицы MS Excel: практикум по компьютерным технологиям - Гомель: БелГУТ, 2003. - 67 с.

5. Курбатова Е.А. Microsoft Excel 2003. Краткое руководство - Издательский дом «Вильямс», 2005. - 288 с.

6. Лыч Ю.П. Электронные таблицы: учеб. пособие - Гомель: БелГУТ, 2000. - 123 с.

7. Максимова АП. Информатика: учеб.-практ. курс - Минск: ТетраСистемс, 2005. ? 128 с.

8. Морозевич А.Н. Основы информатики: учеб. пособие /- Минск: БГЭУ, 2003 - 560 с.

9. Турбо Паскаль 70; Киев: Торгово-издательское бюро,1996.

10. Шибут МС. Технологии работы с текстами и электронными таблицами (Word, Excel) - Минск: Молодёжное научное общество, 2000. - 144 с.

11. Шушкевич Г.Ч. Введение в Mathcad 2000: учеб. пособие - Гродно: ГрГУ, 2001. - 140 с.

Размещено на Allbest.ru

...