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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Program kursovoi_HEL;

Uses Print;

Const n=10;

Type mas=array[1..n,1..n] of real;

mas1=array[1..n] of real;

mas2=array[1..n] of real;

mass1=array[1..n] of real;

mass2=array[1..n] of real;

mas_izm=array[1..n,1..n] of real;

Var B:mas;

nazv:array[1..n] of string;

C:mas1; s_st:mas1; s_str:mas2;

s_st1:mass1; s_str1:mass2; D:mas_izm;

max,e,e_izm:real;

i,j,imax,jmax,k,t,p:integer;

f,f1,f3:text;

{процедуры заполнения таблицы перевозок грузов}

Procedure VVOD(var B:mas);

Begin

Assign(f,'d:\грузы.txt');

Assign(f1,'d:\regi.txt');

Reset (f1);

for i:=1 to n do

readln(f1,nazv[i]);

Close(f1);

{чтение таблицы грузоперевозок}

Reset(f);

for i:=1 to n do

begin

for j:=1 to n do

read(f, B[i,j]);

readln(f);

end;

Close(f);

End;

{процедура расчета}

Procedure Raschet(B:mas);

Begin

{сумма по строкам}

s_st[j]:=0;

for i:=1 to n do

for j:=1 to n do

s_st[j]:=s_st[j]+B[i,j];

{сумма по столбцам}

s_str[i]:=0;

for j:=1 to n do

for i:=1 to n do

s_str[i]:=s_str[i]+B[i,j];

{максимальное количество груза в местном сообщении}

max:=B[1,1];

k:=1;

for i:=1 to n do

if B[i,i]>max then

begin

max:=B[i,i];

k:=i;

end;

{уменьшение максимального количества груза в местном сообщении

на 7%}

for i:=1 to n do

for j:=1 to n do

if (i=k) and (j=k)

then D[i,j]:=B[i,j]*0.93

else D[i,j]:=B[i,j];

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

s_st1[j]:=0;

for i:=1 to n do

for j:=1 to n do

s_st1[j]:=s_st1[j]+D[i,j];

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

s_str1[i]:=0;

for j:=1 to n do

for i:=1 to n do

s_str1[i]:=s_str1[i]+D[i,j];

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

e_izm:=0;

for i:=1 to n do

for j:=1 to n do

if (i=j) then

e_izm:=e_izm+D[i,j];

End;

{функция суммарного количество груза в местном сообщении}

Function Glavnaa (B:mas):real;

Begin

e:=0;

for i:=1 to n do

for j:=1 to n do

if (i=j) then

begin

e:=e+B[i,i];

Glavnaa:=e;

end;

End;

{вывод результатов в файл}

Procedure VIVOD_fail;

Begin

{связываем данные с файлом}

Assign(f3,'c:\kurs.txt');

{записываем в файл}

rewrite(f3);

writeln(f3,'

********************************************************');

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

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

writeln(f3,'

*******************************************************');

write (f3,' ');

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

writeln

(f3,

write (f3,' ');

for i:=1 to n do

write(f3,nazv[i]:12);

writeln(f3);

for i:=1 to n do

begin

write(f3,nazv[i]:12);

for j:=1 to n do

write(f3,B[i,j]:11:1,'|');

writeln(f3);

end;

writeln (f3,'

writeln(f3);

{сумма количества вывозимого груза: по строкам}

writeln(f3,'Количество вывезенного груза из регионов:');

writeln(f3);

for j:=1 to n do

writeln (f3,'из региона ',nazv[j],' вывезено ', s_st[j],' т груза');

{сумма количества ввозимого груза: по столбцам}

writeln(f3,'Количество ввозимого груза в регионы:');

writeln(f3);

for i:=1 to n do

writeln(f3,'ввезено ',s_str[i],' т груза в ',nazv[i]);

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

регионам}

e:=Glavnaa(B);

writeln (f3,'В регионе ', nazv [k] , ' перевозится максимальное

количество

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

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

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

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

количества груза в местном сообщении на 7%}

writeln (f3,'Печать измененной таблицы перевозок');

writeln (f3,'

write (f3,' Регионы|');

for i:=1 to n do

write (f3,nazv[i]:12,'|');

write (f3,' Итого|');

writeln(f3);

write(f3,'

writeln(f3);

for i:=1 to n do

begin

write(f3,nazv[i]:12,'|');

for j:=1 to n do

write(f3,D[i,j]:12:1,'|');

write(f3,s_str1[i]:9:1,'|');

writeln(f3);

end;

write(f3,'

writeln(f3);

write(f3,' Итого|');

for i:=1 to n do

write (f3, s_st1[i]:12:1,'|');

write(f3, e_izm:8:1,'|');

writeln(f3);

writeln (f3,'

close(f3);

End;

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

Procedure VIVOD_ekran;

Begin

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

writeln(' * КУРСОВУЮ РАБОТУ ПОДГОТОВИЛА СТУДЕНТКА

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

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

write (' ');

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

writeln write (' ');

for i:=1 to n do

write(nazv[i]:12);

writeln;

for i:=1 to n do

begin

write(3,nazv[i]:12);

for j:=1 to n do

write(B[i,j]:11:1,'|');

writeln;

end;

writeln ');

writeln;

{количества вывозимого груза по строкам}

writeln('Количество вывезенного груза из регионов:');

writeln;

for j:=1 to n do

writeln ('из региона ',nazv[j],' вывезено ', s_st[j],' т груза');

{сумма количества ввозимого груза по столбцам}

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

writeln;

for i:=1 to n do

writeln('ввезено ',s_str[i],' т груза в ',nazv[i]);

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

сообщении по всем регионам}

e:=Glavnaa(B);

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

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

writeln('В регионе ', nazv[k] , ' перевозится максимальное количество

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

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

количества груза в местном сообщении на 7%}

writeln('Печать измененной таблицы перевозок');

writeln ');

write(' Регионы|');

for i:=1 to n do

write(nazv[i]:12,'|');

write(' Итого|');

writeln;

write(');

writeln;

for i:=1 to n do

begin

write(nazv[i]:12,'|');

for j:=1 to n do

write(D[i,j]:12:1,'|');

write(s_str1[i]:9:1,'|');

writeln;

end;

write(');

writeln;

write(' Итого');

for i:=1 to n do

write ( s_st1[i]:12:1,');

write(e_izm:8:1,');

writeln;

writeln End;

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

{процедура выбора вывода результатов}

Procedure REJIM;

Begin

writeln('Укажите способ вывода данных:');

writeln('->1-вывод в файл');

writeln('->2-вывод на экран');

writeln('->3-вывод на принтер');

readln(p);

case p of

1:VIVOD_fail;

2:VIVOD_ekran;

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

end;

End;

{главная программа}

Begin

VVOD(B);

Raschet(B);

Glavnaa(B);

REJIM;

End.