затруднение с вычислением выражения с помощью процедур

@Tonop_0 · Регистрация: 20.09.2011

Author24 — интернет-сервис помощи студентам

здравствуйте. помогите пожалуйста. вот задача: Вычислить z=(S1+S)/2 , где S1 - сумма положительных элементов массива X(8); S2 - сумма отрицательных элементов массива Y(10). Обе суммы вычислять в одной подпрограмме.
я знаю что здесь написана эта процедура, но в своей работе я не могу использовать функции inc, так как мы это не изучали и препод спалит с такой процедурой.
исправил как понял, но что то не робит

Pascal

program lab9;
var
i,j,n,o: byte;
s1,s2,z,x :integer;
procedure W(var z :real);
begin
for i:=1 to 10 do
if y[i]<0 then
(s2,y[i])+1;
for j:=1 to 8 do
if x[j]>0 then
(s1,x[i])+1;
z:=(s1+s2)/2;
end;
begin
writeln ('Введите первый массив');
for n:=1 to 8 do read (y[i]);
writeln ('Введите второй массив');
for o:=1 to 10 do read (x[j]);
W(n,o,x);
end.

Добавлено через 19 часов 52 минуты
так неужели нельзя заменить чем нибудь аналогичным этот inc, ведь он просто увеличивает значение на единицу как я понял

@sfc · 24.01.2012, 18:59

inc(s2,y[i]) - в данном случае, насколько я помню, s2 должно увеличиваться на значение y[i], т.е:
s2:=s2+y[i].

@Puporev · 24.01.2012, 19:02

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

ведь он просто увеличивает значение на единицу как я понял

Во первых не на единицу, а на значение второго параметра.
Ну так и напиши

Pascal

1 2	if y[i]<0 then s2:=s2+y[i];

@Tonop_0 · 24.01.2012, 22:23 **[ТС]**

Pascal

program lab9;
var
i,j,n,o: byte;
s1,s2,z,x :integer;
y: array [1..i] of real;
p: array [1..j] of real;
procedure W(var z :real);
begin
for i:=1 to 10 do
if y[i]<0 then
s2:=s2+y[i];
for j:=1 to 8 do
if p[j]>0 then
s1:=s1+p[i];
z:=(s1+s2)/2;
end;
begin
writeln ('Введите первый массив');
for n:=1 to 8 do read (y[i]);
writeln ('Введите второй массив');
for o:=1 to 10 do read (p[j]);
W(n,o,x);
end.

вот лог ошибок. помогите с правкой пожалуйста

program12.pas(5,15) Error: Can't evaluate constant expression
program12.pas(6,15) Error: Can't evaluate constant expression
program12.pas(11,7) Error: Incompatible types: got "Real" expected "SmallInt"
program12.pas(14,7) Error: Incompatible types: got "Real" expected "SmallInt"
program12.pas(22,1) Error: Wrong number of parameters specified for call to "W"
program12.pas(24) Fatal: There were 5 errors compiling module, stopping
program12.pas(0) Fatal: Compilation aborted

@Andyc · 25.01.2012, 00:19

Pascal

var
  X: Array[1..8] of Integer;
  Y: Array[1..10] of Integer;
  i: Integer;
  z: Real;
 
  procedure Sum(var z: Real);
  var
    i, S1, S2: Integer;
  begin
    S1:=0;
    for i:=1 to 8 do
      if X[i]>0 then S1:=S1+X[i];
    S2:=0;
    for i:=1 to 10 do
      if Y[i]<0 then S1:=S1+Y[i];
    z:=(S1+S2)/2;
  end;
 
begin
  Writeln('Введите первый массив');
  for i:=1 to 8 do readln (X[i]);
  Writeln ('Введите второй массив');
  for i:=1 to 10 do readln (Y[i]);
  Sum(z);
  Writeln('z=', z);
  Readln;
end.

@sfc 36 / 36 / 28 Регистрация: 17.01.2012 Сообщений: 64
	24.01.2012, 18:59	2
	inc(s2,y[i]) - в данном случае, насколько я помню, s2 должно увеличиваться на значение y[i], т.е: s2:=s2+y[i]. 0

	25.01.2012, 00:19