Текст программы на Паскале

Program Work_4;

{Работа №4, вариант №523, гр.БТС-12-02, Дельмухаметов Д.Г.}

Type vector=array[1..100] of integer;

var Vr, n, i, a, b: integer;

Sg: real;

G:vector;

Procedure Part_1(Vr,n,a,b:integer; var G:vector);

var i:integer;

Begin

If Vr<>1 then randomize;

for i:=1 to n do g[i]:=a+Round((b-a)*Random(100)/100);

end;

Procedure Part_2(n:integer; G:vector; var Sg:real);

var i,k:integer;

P:real;

Begin

P:=1;

k:=0;

For i:=(2*n div 4)+1 to (3*n div 4) do

If (g[i]<0) then

begin

P:=P*g[i];

k:=k+1;

end;

If k>0 then

If P>0 then Sg:=exp(1/k*ln(P))

else

If (k mod 2=1) then Sg:=exp(1/k*ln(abs(P)))

else Sg:=0

else Sg:=0;

end;

Procedure Part_3(n,a,b:integer; G:vector);

var k,i,min,imin:integer;

Begin

Min:=maxint; { Наибольшее значение переменной целого типа в Паскале = 32767 }

For i:=(n div 2)+3 to n do begin

If i<=n then

if g[i]<= min then min:=g[i]; imin:=i;k:=i;

end;

if k>0 then

writeln('Наименьший третий элемент второй половины массива=',min);

writeln('его номер:',imin);

if k<0 then

writeln('Нет нужных элементов');

end;

Procedure Part_4(n:integer; var G:vector);

Type vector=array[1..100] of integer;

var i,j,k,buf:integer;

Begin

For i:=(2*n div 4)+1 to (3*n div 4)-1 do

If (g[i]>=(a/2)) and (g[i]<=(b/2)) then

begin

k:=i;

for j:=i+1 to 3*n div 4 do

if (g[j]>=(a/2)) and (g[j]<=(b/2)) then

if (sqr(g[ i ]) < sqr(g[ j ])) then k:=j;

buf:=g[i];

g[i]:=g[k];

g[k]:=buf;

end;

end;

Begin

writeln('введите вариант расчета Vr => ');

readln(Vr);

if Vr=523 then

begin

n:=35; a:=-7; b:=8;

g[1]:= 7; g[2]:= 2; g[3]:= 2; g[4]:= 4; g[5]:= 3;

g[6]:=-1; g[7]:=0; g[8]:=8; g[9]:= -4; g[10]:= 6;

g[11]:= -6; g[12]:=-4; g[13]:= -4; g[14]:= -3; g[15]:=-4;

g[16]:= 7; g[17]:= 3; g[18]:=-6; g[19]:= -3; g[20]:= 7;

g[21]:= -4; g[22]:= 2; g[23]:= 3;g[24]:=-6; g[25]:=7;

g[26]:=-5;g[27]:= -7; g[28]:= 6;g[29]:= -6; g[30]:=-6;

g[31]:= 7;g[32]:= 4; g[33]:=-7;g[34]:= 8; g[35]:= 3;

end

else

begin

Writeln('Введите n,a,b => ');

readln(n,a,b);

Part_1(Vr,n,a,b,g);

end;

writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');

writeln('Исходный массив:');

For i:=1 to n do

begin

write(g[i]:3);

if i = n div 2 then

writeln();

end;

writeln;

writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');

part_2(n,g,sg);

writeln('Среднегеометрическое Sg=',Sg:7:4);

writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');

part_3(n,a,b,g);

writeln();

writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');

part_4(n,G);

writeln('Упорядоченный массив:');

for i:=1 to n do

begin

write(g[i]:3);

if i = n div 2 then

writeln();

end;

writeln;

writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');

end.