Определить среднее арифметическое чётных элементов и среднее арифметическое нечётных элементов в массивах

@Ricon · Регистрация: 05.03.2014

Составить программу, которая определяет среднее арифметическое чётных элементов и среднее арифметическое нечётных элементов в массивах X(N) и Y(M). Нахождение средних арифметических оформить в виде подпрограммы.

Суть проблемы: не правильно считает sacB (Среднее Арифметическое Четных элементов массива B). Под спойлером пример вывода.

Pascal

Program labzadanie; 
var   a, b: array[1..100] of integer;
  i,  n: integer;
  c,f,g,v:real;
 
procedure SA(r:integer; var sacA,sanA,sacB,sanB:real);
var i:integer;
k1,k2,k3,k4:integer;
begin
sacA:=0;sanA:=0; sacB:=0;sanB:=0;
k1:=0;k2:=0;k3:=0;k4:=0;
for i:=1 to r do
if (a[i] mod 2=0)  then begin sacA:=sacA+a[i];inc(k1);
sacB:=sacB+b[i];inc(k3) end
else 
begin sanA:=sanA+a[i];inc(k2);
end;
for i:=1 to r do
if (b[i] mod 2=0) then begin sacB:=sacB+b[i]; inc(k3); end else 
begin sanB:=sanB+b[i];inc(k4); end;
sanA:=sanA/k2; sacA:=sacA/k1; 
sanB:=sanB/k4; sacB:=sacB/k3; 
 
writeln('   Массив А');
    writeln('Чет');
    writeln(sacA);
    writeln('НЕчет');
    writeln(sanA); 
writeln('   Массив B');
    writeln('Чет');
    writeln(sacB);
    writeln('НЕчет');
    writeln(sanB);
end;
begin
  write('Введите количество элементов массива=');
  readln(n); 
  writeln('Исходный массив A');
  for i := 1 to n do
  begin
    a[i] :=random(50);
       write(a[i]:3,' |');
    end;
   writeln();
   writeln('Исходный массив B');
    for i := 1 to n do
  begin
    b[i]:= random(50);
    write(b[i]:3,' |');
    end;
    f:=a[i];c:=0;
    g:=b[i];v:=0;
    writeln();
    SA(n,f,g,c,v);   
end.

Кликните здесь для просмотра всего текста

Введите количество элементов массива=5
Исходный массив A
0 | 28 | 45 | 37 | 17 |
Исходный массив B
7 | 2 | 6 | 25 | 37 |
Массив А
Чет
14
НЕчет
33
Массив B
Чет
4.25
НЕчет
23

@volvo · 12.04.2014, 18:59

Сообщение от Ricon

не правильно считает sacB (Среднее Арифметическое Четных элементов массива B)

Ничего что ты дважды суммируешь элементы массива B, при чем первый раз - неправильно (проверяешь условие четности для A, и увеличиваешь счетчики одновременно для A и B)?

Лучше всего - переписать код вот так:

Pascal

program labzadanie; 
 
type
  TArr = array[1..100] of integer;
 
procedure SA(var arr: TArr; r: integer);
var
  i: integer;
  k1, k2: integer;
  sacA, sanA: real;
begin
  sacA := 0;sanA := 0;
  k1 := 0;k2 := 0; 
  for i := 1 to r do
    if (arr[i] mod 2 = 0) then
    begin
      sacA := sacA + arr[i];inc(k1);
    end
    else 
    begin
      sanA := sanA + arr[i];inc(k2);
    end;
    
  // тут добавь проверку, чтобы не было деления на 0...
  sanA := sanA / k2; sacA := sacA / k1; 
  writeln('Чет');
  writeln(sacA);
  writeln('НЕчет');
  writeln(sanA); 
end;
 
var
  a, b: TArr;
  i,  n: integer;
 
begin
  write('Введите количество элементов массива=');
  readln(n); 
  writeln('Исходный массив A');
  for i := 1 to n do
  begin
    a[i] := random(50);
    write(a[i]:3, ' |');
  end;
  writeln();
  writeln('Исходный массив B');
  for i := 1 to n do
  begin
    b[i] := random(50);
    write(b[i]:3, ' |');
  end;
  writeln();
  
  writeln('   Массив А');
  SA(a, n);
  
  writeln('   Массив B');
  SA(b, n);   
end.

Опции темы