объясните(паскаль) - Помощь студентам

Defender42 · 08.04.2010, 17:39

Дан массив,найти среднее арифметическое положительных и отрицательных чисел(ввод с клавиатуры). Вот код:

Код:

Program Prim;
Var A:array[1..100] of integer;
    i:byte;
    n,s1,s2,k1,k2:integer;
    r1,r2:real;
Begin
   s1:=0;
   s2:=0;
   k1:=0;
   k2:=0;
   r1:=0;
   r2:=0;
   writeln('Vvedite n');
   readln(n);
   for i:= 1 to n do
   readln(A[i]);
   for i:= 1 to n do
   begin
   writeln('a[',i,']=');
   end;
   for i:=1 to n do
   if A[i]>=0 then
Begin
   s1:=s1+A[i];
   k1:=k1+1;
   r1:=s1/k1;
end;
   if A[i]<0 then
Begin
   s2:=s2+A[i];
   k2:=k2+1;
   r2:=s2/k2;
end;
   writeln('r1=',r1,'r2=',r2);
   readln;
end.

скажите что не так написано.
Дали задачу условие писать не буду, самому охото решить но есть загвоздка надо заполнить массив в котором храниться информация о росте человека,я так понял что массив надо заполнять примерно от 160 до 200 рандомом, а вот это писать не понимаю(, объясните пожалуйста.

Serebro · 08.04.2010, 17:44

Цитата:

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

Дан массив,найти среднее арифметическое положительных и отрицательных чисел(ввод с клавиатуры). Вот код:

Код:

Program Prim;
Var A:array[1..100] of integer;
    i:byte;
    n,s1,s2,k1,k2:integer;
    r1,r2:real;
Begin
   s1:=0;
   s2:=0;
   k1:=0;
   k2:=0;
   r1:=0;
   r2:=0;
   writeln('Vvedite n');
   readln(n);
   for i:= 1 to n do
   readln(A[i]);
   for i:= 1 to n do
   begin
   writeln('a[',i,']=');
   end;
   for i:=1 to n do
BEGIN
   if A[i]>=0 then
Begin
   s1:=s1+A[i];
   k1:=k1+1;
   r1:=s1/k1;
end;
   if A[i]<0 then
Begin
   s2:=s2+A[i];
   k2:=k2+1;
   r2:=s2/k2;
end;
END;
   writeln('r1=',r1,'r2=',r2);
   readln;
end.

скажите что не так написано.
Дали задачу условие писать не буду, самому охото решить но есть загвоздка надо заполнить массив в котором храниться информация о росте человека,я так понял что массив надо заполнять примерно от 160 до 200 рандомом, а вот это писать не понимаю(, объясните пожалуйста.

Не хватает begin ... end.

Google2010 · 08.04.2010, 17:47

Цитата:

массив надо заполнять примерно от 160 до 200 рандомом

Код:

rost:= random(40)+161;

Grag · 08.04.2010, 17:54

А не проще вот это

Код:

   for i:=1 to n do
BEGIN
   if A[i]>=0 then
Begin
   s1:=s1+A[i];
   k1:=k1+1;
   r1:=s1/k1;
end;
   if A[i]<0 then
Begin
   s2:=s2+A[i];
   k2:=k2+1;
   r2:=s2/k2;
end;
END;

записать так

Код:

for i:=1 to n do
  if A[i]>=0 
    then
      begin
        s1:=s1+A[i];
        k1:=k1+1;
        r1:=s1/k1
      end
    else
      begin
        s2:=s2+A[i];
        k2:=k2+1;
        r2:=s2/k2
      end;

Gray_Jagger · 08.04.2010, 18:03

может быть я и не прав, но

s1:=s1+A[i];
k1:=k1+1;
r1:=s1/k1; - это! должно быть вне цикла. т. е.

Код:

Program Prim;
Var A:array[1..100] of integer;
    i:byte;
    n,s1,s2,k1,k2:integer;
    r1,r2:real;
Begin
   s1:=0;
   s2:=0;
   k1:=0;
   k2:=0;
   r1:=0;
   r2:=0;
   writeln('Vvedite n');
   readln(n);
   for i:= 1 to n do
   readln(A[i]);
   for i:= 1 to n do
   begin
   writeln('a[',i,']=');
   end;
   for i:=1 to n do
   if A[i]>=0 then
Begin
   s1:=s1+A[i];
   k1:=k1+1;
   r1:=s1/k1;
end;
   if A[i]<0 then
Begin
   s2:=s2+A[i];
   k2:=k2+1;
   r2:=s2/k2;
end;
   writeln('r1=',r1,'r2=',r2);
   readln;
end.

переделываем в

Код:

Program Prim;
Var A:array[1..100] of integer;
    i:byte;
    n,s1,s2,k1,k2:integer;
    r1,r2:real;
Begin
   s1:=0;
   s2:=0;
   k1:=0;
   k2:=0;
   r1:=0;
   r2:=0;
   writeln('Vvedite n');
   readln(n);
   for i:= 1 to n do
   begin
   readln(A[i]);
   for i:= 1 to n do
   begin
   writeln('a[',i,']=');
   end;
   for i:=1 to n do
   if A[i]>=0 then
Begin
   s1:=s1+A[i];
   k1:=k1+1;
  
end;
   if A[i]<0 then
Begin
   s2:=s2+A[i];
   k2:=k2+1;
end;
 r1:=s1/k1;
   r2:=s2/k2;
end;
   writeln('r1=',r1,'r2=',r2);
   readln;
end.

Grag · 08.04.2010, 18:08

Ты совершенно прав! Это и есть средние арифметические...
Плохо, когда переменные имеют безликие имена...

Но меня убивает эта конструкция:

Код:

for i:=1 to n do
   if A[i]>=0 then
Begin
   s1:=s1+A[i];
   k1:=k1+1;
  
end;
   if A[i]<0 then
Begin
   s2:=s2+A[i];
   k2:=k2+1;
end;

Делать две взаимоисключающие друг друга проверки, ха-ха-ха

Defender42 · 08.04.2010, 18:33

[/code]
переделываем в

Код:

Program Prim;
Var A:array[1..100] of integer;
    i:byte;
    n,s1,s2,k1,k2:integer;
    r1,r2:real;
Begin
   s1:=0;
   s2:=0;
   k1:=0;
   k2:=0;
   r1:=0;
   r2:=0;
   writeln('Vvedite n');
   readln(n);
   for i:= 1 to n do
   begin
   readln(A[i]);
   for i:= 1 to n do
   begin
   writeln('a[',i,']=');
   end;
   for i:=1 to n do
   if A[i]>=0 then
Begin
   s1:=s1+A[i];
   k1:=k1+1;
  
end;
   if A[i]<0 then
Begin
   s2:=s2+A[i];
   k2:=k2+1;
end;
 r1:=s1/k1;
   r2:=s2/k2;
end;
   writeln('r1=',r1,'r2=',r2);
   readln;
end.

[/QUOTE]
Вылетает ошибка(error 200) после того как ввел первый элемент массива

Serebro · 08.04.2010, 18:56

Цитата:

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

переделываем в

Код:

Program Prim;
Var A:array[1..100] of integer;
    i:byte;
    n,s1,s2,k1,k2:integer;
    r1,r2:real;
Begin
   s1:=0;
   s2:=0;
   k1:=0;
   k2:=0;
   r1:=0;
   r2:=0;
   writeln('Vvedite n');
   readln(n);
   for i:= 1 to n do
   begin
   readln(A[i]);
   for i:= 1 to n do
   begin
   writeln('a[',i,']=');
   end;
   for i:=1 to n do
   if A[i]>=0 then
Begin
   s1:=s1+A[i];
   k1:=k1+1;
  
end;
   if A[i]<0 then
Begin
   s2:=s2+A[i];
   k2:=k2+1;
end;
 r1:=s1/k1;
   r2:=s2/k2;
end;
   writeln('r1=',r1,'r2=',r2);
   readln;
end.

Вылетает ошибка(error 200) после того как ввел первый элемент массива

Неправильно расставлены begin и end, например, первый выделенный begin без соответсвующего end.

08.04.2010, 17:39	#1
Defender42 Пользователь Регистрация: 27.12.2008 Сообщений: 89	объясните(паскаль) Дан массив,найти среднее арифметическое положительных и отрицательных чисел(ввод с клавиатуры). Вот код: Код: `Program Prim; Var A:array[1..100] of integer; i:byte; n,s1,s2,k1,k2:integer; r1,r2:real; Begin s1:=0; s2:=0; k1:=0; k2:=0; r1:=0; r2:=0; writeln('Vvedite n'); readln(n); for i:= 1 to n do readln(A[i]); for i:= 1 to n do begin writeln('a[',i,']='); end; for i:=1 to n do if A[i]>=0 then Begin s1:=s1+A[i]; k1:=k1+1; r1:=s1/k1; end; if A[i]<0 then Begin s2:=s2+A[i]; k2:=k2+1; r2:=s2/k2; end; writeln('r1=',r1,'r2=',r2); readln; end.` скажите что не так написано. Дали задачу условие писать не буду, самому охото решить но есть загвоздка надо заполнить массив в котором храниться информация о росте человека,я так понял что массив надо заполнять примерно от 160 до 200 рандомом, а вот это писать не понимаю(, объясните пожалуйста.

08.04.2010, 17:54	#4
Grag А может и не... Участник клуба Регистрация: 27.03.2010 Сообщений: 1,269	А не проще вот это Код: `for i:=1 to n do BEGIN if A[i]>=0 then Begin s1:=s1+A[i]; k1:=k1+1; r1:=s1/k1; end; if A[i]<0 then Begin s2:=s2+A[i]; k2:=k2+1; r2:=s2/k2; end; END;` записать так Код: `for i:=1 to n do if A[i]>=0 then begin s1:=s1+A[i]; k1:=k1+1; r1:=s1/k1 end else begin s2:=s2+A[i]; k2:=k2+1; r2:=s2/k2 end;` Перемешивай дело с бездельем и не сойдешь с ума...

08.04.2010, 18:08	#6
Grag А может и не... Участник клуба Регистрация: 27.03.2010 Сообщений: 1,269	Ты совершенно прав! Это и есть средние арифметические... Плохо, когда переменные имеют безликие имена... Но меня убивает эта конструкция: Код: `for i:=1 to n do if A[i]>=0 then Begin s1:=s1+A[i]; k1:=k1+1; end; if A[i]<0 then Begin s2:=s2+A[i]; k2:=k2+1; end;` Делать две взаимоисключающие друг друга проверки, ха-ха-ха Перемешивай дело с бездельем и не сойдешь с ума... Последний раз редактировалось Grag; 08.04.2010 в 18:11.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Объясните	Alexsssandr	Помощь студентам	2	17.02.2010 20:50
C++ (объясните!)	slim>>>	Помощь студентам	7	27.01.2010 19:39
Объясните!!!	Dawystrik	Общие вопросы Delphi	1	20.03.2009 12:07
паскаль. массивы. объясните код.	[silver beast]	Помощь студентам	3	21.01.2009 08:42
Паскаль. рекурсия. числа. объясните, как работает код	[silver beast]	Помощь студентам	2	21.01.2009 05:00