Помогите, пожалуйста, с подпрограммами и функциями

[vitjok]

Помогите, пожалуйста, с подпрограммами и функциями

две недели уже пытаюсь((( не выходит ни чего(( Задание 1
Создать функцию, определяющую среднее арифметическое значение элементов вектора vectorn, находящихся между вторыми по значению максимальным и минимальным его элементами. Предусмотреть случай, когда таких элементов нет.
Задание 2.
Создать процедуру, определяющую в целочисленном векторе vectorn два элемента, наиболее близкие к среднему арифметическому всех элементов вектора. Элементы, расположенные между ними, отсортировать по возрастанию.

 

[Vladimir_S]

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

 

[vitjok]

я просто не успеваю со сдачами(

 

[vitjok]

у меня получается неведома магия... в которой ни что не работает:tehnari_ru_325: можно подсказки все таки сам хочу написать :tehnari_ru_203:

 

[Vladimir_S]

у меня получается неведома магия...

Так покажите!

 

[vitjok]

у меня как я вижу просто получился непонятный набор функций,которые ни что не вычисляют, я просто не могу понять как сделать так что бы были в вычислении среднего арифмт были только те числа которые между вторым после маскимального и минального)

 

[Vladimir_S]

как сделать так что бы были в вычислении среднего арифмт были только те числа которые между вторым после маскимального и минального)

Дык - условный оператор на то есть. Если Вы нашли эти самые вторые по значению максимум (Mmax) и минимум (Mmin), то
if (V>Mmin) and (V<Mmax) then...

 

[vitjok]

Program vitjok;
uses crt;
const n=10;
Type Tvect=array [1..n] of integer;
var arifmet,Vmax,Vmin,i:integer;
    vec:Tvect;
Function Arif(nn:integer; AA:Tvect):integer;
   var i,min1,min2,max1,n,max2:integer;
 begin
   max1:=AA[1];
   for i:2 to nn do
    if (AA[i]<max1)
     then max2:=AA[i];
    min1:=AA[1];
    
for i:=2 to nn do
    if (AA[nn-i+1]>min1)
     then min2:=AA[nn-i+1];
arif:=(min2..max2)/n;
end;
begin
 Randomize;
 Writeln('Diapozon slych chisel');
 Write('Vmin=');
 readln(Vmin);
 Write(Vmax=);
 readln(Vmax);
 
 For i:=1 To n Do
    vector[i]:=Random(v_max-v_min + 1) + v_min;
Writeln;

 WriteLn;
  WriteLn('ishodn vectr:');
  For i:=1 To n Do
    Write(vector[i]:4);
  WriteLn;

вот такое пародие получилось... и это неправильно((tehno030

 

[Vladimir_S]

вот такое пародие получилось... и это неправильно((

Да уж...

arif:=(min2..max2)/n;

Ну этого перла я вообще не понимаю...

 

[Vladimir_S]

Ладно, если будет время - вечером посмотрю. Заранее, впрочем, не обещаю.

 

[vitjok]

в прочем до этого что то понимал а сейчас это для меня магия((

 

[Vladimir_S]

в прочем до этого что то понимал а сейчас это для меня магия((

Магия - это прекрасно. Даже обворожительно!

 

[vitjok]

ну так то да))на эту специальность пошел под предолгом работы с железом а не кодить))приходится учить то что не знаю)самое непонятное в этом задание для меня "среднее арифметическое значение элементов вектора vectorn, находящихся между вторыми по значению максимальным и минимальным его элементами" в этом и вся суть этой программы)):tehnari_ru_674:

 

[Vladimir_S]

ну так то да))на эту специальность пошел под предолгом работы с железом а не кодить))приходится учить то что не знаю)самое непонятное в этом задание для меня "среднее арифметическое значение элементов вектора vectorn, находящихся между вторыми по значению максимальным и минимальным его элементами" в этом и вся суть этой программы)):tehnari_ru_674:

Ладно, вот Вам Ваша программа. Но еще раз настоятельно советую установить на компьютер какой-никакой Паскаль транслятор и отлаживать программу в нём. Иначе точно толку не будет. Потому что в Вашей программе не просто есть ошибки, а там их море. Идентификаторы перепутаны, то vec, то vector, то Vmin, то V_min, знаки неравенств расставлены кое-как с потолка и вообще. Нет, еще и еще раз: Так. Дело. Не. Пойдёт.

const
 n=10;
Type
 Tvect=array [1..n] of integer;
var
 V_max,V_min,i:integer;
 vector:Tvect;
 b:boolean;
 arifmet:real;

Procedure Arif(nn:integer; AA:Tvect;var arifm:real; var ar_b:boolean);
var
 i,min1,min2,max1,n,max2:integer;
 Sum:real;
begin
 max1:=AA[1];
 for i:=2 to nn do
  if (AA[i]>max1) then max1:=AA[i];
 Writeln('Max1 = ', max1);
 min1:=AA[1];
 for i:=2 to nn do
  if (AA[i]<min1) then min1:=AA[i];
 Writeln('Min1 = ', min1);
 max2:=min1;
 for i:=1 to nn do
  if (AA[i]>max2) and (AA[i]<max1) then max2:=AA[i];
 Writeln('Max2 = ', max2);
 min2:=max1;
 for i:=1 to nn do
  if (AA[i]<min2) and (AA[i]>min1) then min2:=AA[i];
 Writeln('Min2 = ', min2);
 Writeln;
 n:=0;
 Sum:=0;
 for i:=1 to nn do
  if (AA[i]>min2) and (AA[i]<max2) then
   begin
    Inc(n);
    Sum:=Sum+AA[i];
   end;
 if n=0 then
  begin
   arifm:=0;
   ar_b:=false;
  end
 else
  begin
   arifm:=Sum/n;
   ar_b:=true;
  end;
end;

Begin
 Randomize;
 Writeln('Diapazon slych chisel:');
 Write('V_min= ');
 readln(V_min);
 Write('V_max= ');
 readln(V_max);
 For i:=1 to n do
  begin
   vector[i]:=Random(V_max-V_min + 1) + V_min;
   write(vector[i],' ');
  end;
 Writeln;
 Writeln;
 Arif(n,vector,arifmet,b);
 If b then
  Writeln('Sred. arifm. = ',arifmet:0:3)
 else
  Writeln('Takih elementov net!');
 Readln
End.

 

[Vladimir_S]

приходится учить то что не знаю

Увы - такова судьба любого студента. И школьника. Ничего не поделаешь...:tehnari_ru_121:

 

[vitjok]

                         Program vitjok;
uses crt;
const n=10;
Type Tvect=array [1..n] of integer;
var arifmet,Vmax,Vmin,i:integer;
    vec:Tvect;
Function Arif(nn:integer; AA:Tvect):real;
   var i,i1,i2,min1,min2,max1,max2:integer;
   n:real;
 begin

   max1:=AA[1];
   min1:=AA[1];
   
   for i:=2 to nn do
   begin
    if (AA[i]<=max1)
     then
      max1:=AA[i];

    if (AA[i]>=min1)
     then
      min1:=AA[i];
      
      end;
      
       max2:=AA[1];
   min2:=AA[1];
   i1:=1;
   i2:=1;
   
      for i:=1 to nn do
   begin
    if (AA[i]<=max2) and (aa[i]<>max1)
     then
     begin
      max2:=AA[i];
      i1:=i;
      end;
    if (AA[i]>=min2) and (aa[i]<>min1)
     then
     begin
      min2:=AA[i];
      i2:=i;
      end;
      end;
      
      writeln(min2,' ',i2,'  ',max2,' ',i1);
      if i1>i2 then
      begin
      i:=i1;
      i1:=i2;
      i2:=i;
      end;
      if (i2-i1)>1
      then
      begin
      For i:=i1+1 to i2-1 do
      n:=n+AA[i];
      n:=n/(i2-i1-1);
      writeln(n);
      end
      else
      writeln('net chisel');

end;
begin
 Randomize;
 Writeln('Diapozon slych chisel');
 Write('Vmin=');
 readln(Vmin);
 Write('Vmax=');
 readln(Vmax);

 For i:=1 To n Do
    vec[i]:=Random(vmax-vmin + 1) + vmin;
Writeln;

 WriteLn;
  WriteLn('ishodn vectr:');
  For i:=1 To n Do
    Write(vec[i]:4);
  WriteLn;
  arif(n,vec);
  end.

вот мой код, в моей было просто все неправильно, тк у меня состояла проблема в том как вычеслить среднее арифметическое(

 

[vitjok]

здравствуйте Владимир, написал програму ко 2-му заданию, в разный версиях паскаль работает по разному, точнее в строке 60 и 123 выдает ошибку выход за границы диапазона((

program hj;
uses crt;
const
 n=10;
Type
 Tvect=array [1..n] of integer;
var
 V_max,V_min,i, j, n_min1, n_min2, temp :integer;
 vector:Tvect;
 b:boolean;
 arifmet:real;
 min1, min2, arifm, shift :real;

Procedure Arif(nn:integer; AA:Tvect; var arifm:real; var ar_b:boolean);
var
 i,min1,min2,max1,n,max2:integer;
 Sum:real;
begin
 n:=0;
 Sum:=0;
 for i:=1 to nn do
   begin
    Inc(n);
    Sum:=Sum+AA[i];
   end;
 if n=0 then
  begin
   arifm:=0;
   b:=false;
  end
 else
  begin
   arifm:=Sum/n;
   b:=true;
  end;
end;
begin
min1:=abs(vector[1] - arifmet);
 n_min1:=1;
 For i:=2 to n do
  begin
    shift:=abs(vector[i] - arifmet);
    if (shift < min1)
      then
        begin
          min2:=min1;
          n_min2:=n_min1;
          min1:=shift;
          n_min1:=i;
        end;
  end;
 For i:=1 to n do
   begin
     if ((vector[i] > min1) AND (vector[i] < min2))
       then
         min2:=vector[i];
   end;
              if (n_min1=(n_min2+1)) or (n_min1=(n_min2-1))
                then
                 writeln('there are no values between ', vector[n_min1] , ' AND', vector[n_min2] ,' to sort!' )
                else
                begin
                  begin
                    if n_min1>n_min2
                      then
                        begin
                        for i:=(n_min1-1) downto (n_min2+2) do
                          for j:=(n_min2+1) to (i-1) do
                            if vector[j]>vector[j+1]
                              then
                                begin
                                  temp:=vector[j];
                                  vector[j]:=vector[j+1];
                                  vector[j+1]:=temp;
                                end;
                        end;
                    if n_min1<n_min2
                      then
                        for i:=(n_min2-1) downto (n_min1+2) do
                          for j:=(n_min1+1) to (i-1) do
                            if vector[j]>vector[j+1]
                              then
                                begin
                                  temp:=vector[j];
                                  vector[j]:=vector[j+1];
                                  vector[j+1]:=temp;
                                end;
                  end;
                  end;


Begin
 Randomize;
 Writeln('Diapazon slych chisel:');
 Write('V_min= ');
 readln(V_min);
 Write('V_max= ');
 readln(V_max);
 writeln('______________________________');
 writeln;
 For i:=1 to n do
  begin
   vector[i]:=Random(V_max-V_min + 1) + V_min;
   write(vector[i],' ');
  end;
 writeln;
 writeln('______________________________');
 Writeln;
 Arif(n,vector,arifmet,b);
  writeln('Sred. arifm = ', arifmet);
 writeln('Sorting between: ',  vector[n_min1], ' AND ', vector[n_min2]);
 writeln;
 writeln('______________________________');
 writeln;
 For i:=1 to n do
  begin
   write(vector[i]:3);
  end;
 writeln;
 writeln('______________________________');
 end;
  end.