Применение программных комплексов для решения инженерных задач
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
********************);
writeln( * КУРСОВУЮ РАБОТУ ПОДГОТОВИЛА СТУДЕНТКА
ГРУППЫ УК-21 ОГУЛИК ЕЛЕНА *);
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);;.
.3 Результаты решения задачи
КУРСОВУЮ РАБОТУ ПОДГОТОВИЛА СТУДЕНТКА ГРУППЫ УК-21 ОГУЛИК ЕЛЕНА
Исходная таблица перевозок:
РегионыБрестПинскЛунинецЖлобинМогилевГомельРогачевМинскМолодечноБарановичиБрест27.01.054.054.016.050.061.096.07.016.0Пинск51.049.064.022.080.021.045.042.030.062.0Лунинец56.050.034.064.056.060.095.072.069.018.0Гомель88.014.08.05.092.079.074.043.074.011.0Жлобин26.012.043.093.071.053.060.043.075.08.0Рогачев49.010.050.067.088.030.078.020.02.081.0Могилев70.060.092.026.03.053.050.029.060.076.0Минск31.038.043.025.097.034.098.0 35.093.030.0Молодечно82.087.050.039.069.052.063.0 21.032.057.0Барановичи39.022.020.084.031.028.011.0 82.033.081.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.01.054.054.016.050.061.096.07.016.0382.0Пинск51.049.064.022.080.021.045.042.030.062.0466.0Лунинец56.050.034.064.056.060.095.072.069.018.0574.0Гомель88.014.08.05.092.079.074.043.074.011.0488.0Жлобин26.012.043.093.071.053.060.043.075.08.0484.0Рогачев49.010.050.067.088.030.078.020.02.081.0475.0Могилев70.060.092.026.03.053.050.029.060.076.0519.0Минск31.038.043.025.097.034.098.0 35.093.030.0497Молодечно82.087.050.039.069.052.063.0 21.032.057.0552.0Барановичи39.022.020.084.031.028.011.0 82.033.081.0425.3Итого519.0343.0458.0479.0603.0460.0635.0483.0475.0407.3408.3
программа задача pascal excel mathcad
Раздел 2. Решение задачи средствами Microsoft Excel
.1 Таблица исходных данных
.2 Выполнение расчетов
Вычисляем итоговые расчеты по строкам и столбцам, сумму количества грузов, перевозимых в местном сообщении по всем регионам, с помощью функции СУММ:
Сумму количества грузов в местном сообщении представим в виде таблицы:
Регион с максимальным количеством груза, перевозимого в местном сообщении, был найден с помощью функций категории Ссылки и массивы:
Уменьшение максимального груза в местном сообщении на 7% производим при помощи функции ЕСЛИ с каждым элементом на главной диагонали:
Итоговые данные для региона с максимальным количеством груза, перевозимым в местном сообщении, представлены в следующей таблице:
Таблица
Итоговые данные по расчетам
Регион с максимальным количеством груза, перевозимого в местном сообщенииМаксимальное количество перевозимого груза в местном сообщении81Индекс максимального значения10Регион с максимальным количеством перевозимого грузаБарановичи
Измененная таблица грузоперевозок после уменьшения на 7% максимального количества груза в местном сообщении
.3 Построенные диаграммы
Раздел 3. Решение задачи в среде MathCAD
Берем исходные данные таблицы из файла
Количество груза отправленного и прибывшего
Заключение
В процессе работы было выполнено: решение задачи о выполнении перевозки грузов по нескольким регионам на языке программирования Паскаль, составление алг?/p>