Курсовая работа: Условия неопредел нности критерий Сэвиджа 2

2.3 Компьютерный вариант решения задачи.

2.3.1 Блок-схема решения задачи.

a[i].c1:=random(100)+1; a[i].c2:=random(100)+1; a[i].c3:=random(100)+1; a[i].c4:=random(100)+1;

Да

Нет

min:=r4; z:=4;

min:=r3; z:=3;

min:=r2; z:=2;

min:=r1; z:=1;

2.3.2 Текст компьютерного решения задачи.

Programkurs9k;

uses crt;

type armarka=record

c1:real; {odezda }

c2:real; {obyv }

c3:real; {knigi }

c4:real; {igryshki }

end;

var

a:array [1..4] of armarka;

n1,n2,n3,n4:real; {chisla dlya min (minZij) }

codezda, cobyv, cknigi, cigryshki:real; {ceni za tovar }

b:array[1..4] of armarka;

i:integer;

z:integer; {dni}

r1,r2,r3,r4:real; {chisla dlya max (max b[i])}

min:real;

{shapka }

procedure shapka;