Математические методы решения экономических задач

Слайд 1

Математические методы решения экономических задач и их реализация при помощи компьютера Выполнила: Ученица 10 «А» класса МБОУ СОШ № 7 ЗАТО Углегорск Маркина Анна Руководители: Михолап С.Н., Фадеева З.Ю.

Слайд 2

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

Слайд 3

Задачи: Изучить основы теории производства: факторы производства, краткосрочный период, закон убывающей эффективности. Разработать алгоритм расчета производственной задачи Рассчитать значения предельного и среднего продуктов, построить их графики и проанализировать их. Изучить , с помощью каких операторов описываются массивы, строковые переменные, графика в АВС Паскаль. Выполнить визуализацию данных в АВС Паскаль в виде таблиц и графиков.

Слайд 4

Факторы производства Земля (природные ресурсы) Труд (трудовые ресурсы) Капитал (производственные ресурсы) Предпринимательство + информация

Слайд 5

Расчет производственной функции с использование м переменного фактора L АР= ТР/ L МР = ΔТР / Δ L ТР - общий продукт МР - предельный продукт АР – средний продукт

Слайд 6

Анализ графической формы данных показателей

Слайд 7

1 строка таблицы begin writeln ; for i:=0 to 11 do begin D[1,i]:=i; write (D[1,i]:5); end;

Слайд 8

2 строка таблицы Q:=2; D[Q,0]:=0; D[Q,1]:=11; D[Q,2]:=40; D[Q,3]:=81; D[Q,4]:=128; D[Q,5]:=175; D[Q,6]:=216; D[Q,7]:=245; D[Q,8]:=256; D[Q,9]:=243; D[Q,10]:=200; D[Q,11]:=121 ; for i:=0 to 11 do begin write (D[ Q,i ]:5); end ;

Слайд 9

3 строка таблицы Q:=3; writeln;write (' '); for i:=0 to 10 do begin MP:=(D[2, i+1]-D[2,i])/(D[1, i+1]-D[1, i]); write (MP:5:0); end;

Слайд 10

4 строка таблицы Q:=4; writeln ; write(' '); for i:=1 to 11 do begin AP:=D[2,i]/D[1,i]; write (AP:5:0); end ;

Слайд 11

Слайд 12

SetWindowSize (1000,1000); Line(0,350,700,350); Line(50,500,50,0); line(700,350,670,340); line(700,350,670,360); line(700,900,670,890); line(700,900,670,910); line(50,0,40,20); line(50,0,60,20); line(50,550,40,570); line (50,550,60,570);

Слайд 13

x:= 50; y:=350; Q:=2; SetPenColor ( clRed ); SetPenWidth (2); line (x,y,x+50,y-D[Q,1]); lineto (x+100,y-D[Q,2]); lineto (x+150,y-D[Q,3]); lineto (x+200,y-D[Q,4]); lineto (x+250,y-D[Q,5]); lineto (x+300,y-D[Q,6]); lineto (x+350,y-D[Q,7]); lineto (x+400,y-D[Q,8]); lineto (x+450,y-D[Q,9]); lineto (x+500,y-D[Q,10]); lineto (x+550,y-D[Q,11]); for i:=1 to 11 do begin str ( i,s ); textout (x+50*i, 370,s); str (D[ Q,i ],s); textout (x+50* i,y -D[ Q,i ]-30,s); str (50* i,s ); textout (x-20, y-50* i,s ); end;

Слайд 14

SetPenColor ( clBlue ); line (x,y,x+50,y-D[Q,1]); for i:=0 to 10 do begin MP1:=(D[2, i+1]-D[2,i])div(D[1, i+1]-D[1, i]); lineto (i*50+100, y-MP1); end; for i:=1 to 10 do begin MP1:=(D[2, i+1]-D[2,i])div(D[1, i+1]-D[1, i]); str (MP1,s); textout (2*x+50*i,y-MP1+10,s); end;

Слайд 15

Line(800,500,850,500); SetPenColor ( clBlue ); Line(800,550,850,550); SetPenColor ( clRed ); Line(800,600,850,600); TextOut (860,490,'AP'); TextOut (860,540,'MP'); TextOut (860,590,'TP'); SetPenColor ( clBlack ); SetPenWidth (1); Line (350,0,350,1000); Line (450,0,450,1000);

Слайд 16

График в ABC Pascal

Слайд 17

Выводы: Знание основ теории производства: факторы производства, краткосрочный период, закон убывающей эффективности. Изучение строковых переменных и графики в АВС Паскаль. Разработка алгоритма расчета производственной задачи Расчет значений предельного и среднего продуктов, произведена визуализация данных с помощью таблиц и графиков (в программах МО Excel и ABC Pascal) и их а нализ.

Слайд 18

Нахождение max / min Экономика + Программирование = Альтернативное решение → Оптимальный вариант