Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Текст программы на Паскале
|
|
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.
Date: 2015-08-24; view: 320; Нарушение авторских прав