VPF::одномерные массивы - Форум программистов

syoksana

Дата 26.9.2008, 21:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 19.2.2008

Репутация: нет
Всего: нет

Привет! решала задачки, что-то не получается, где ошибка?
Массив А из 20 элементов. Заменить отрицательные элементы на среднее арифметическое элементов массив.
Результат вывести на печать.

Код


Program qqq;
const n=5;
var a:array[1..n]of real;
 sum: real; k,i:integer;
begin
writeln ('vv massivi a');
for i:=1 to n do readln (a[i]);
sum:=0; k:=0;
for i:=1 to n do
    begin sum:=sum+a[i];
          k:=k+1;
    end;
for i:=1 to n do
if a[i]<0 then a[i]:=sum/k;
for i:=1 to n do writeln(a[i]); {else writeln('otricstelnix net') ;  }

end.

Это сообщение отредактировал(а) volvo877 - 27.9.2008, 15:39

ne0n

Дата 26.9.2008, 22:18 (ссылка)

(нет голосов)

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: нет
Всего: 11

все нормально, просто в конец добавь Readln; и увидешь результат)

--------------------

http://sa-sec.org
как я вам? smile

syoksana

Дата 27.9.2008, 01:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 19.2.2008

Репутация: нет
Всего: нет

Цитата(ne0n @ 26.9.2008, 22:18)

все нормально, просто в конец добавь Readln; и увидешь результат)

добавила, всё равно ничего не изменилось, вот возьмём пример, массив из пяти элементов
-2
1
0
0
0
а резуьтат не верный выводит
-2
1
0
0
0
где ошибка? и как вывести что нет отрицательных элементов?

Код


Program qqq;
const n=5;
var a:array[1..n]of real;
 sum: real; k,i:integer;
begin
writeln ('vv massivi a');
for i:=1 to n do readln (a[i]);
sum:=0; k:=0;
for i:=1 to n do
    begin sum:=sum+a[i];
          k:=k+1;
    end;
for i:=1 to n do
if a[i]<0 then a[i]:=sum/k;
for i:=1 to n do writeln(a[i]); {else writeln('otricstelnix net') ;  }
readln;
end.

ne0n

Дата 27.9.2008, 02:02 (ссылка)

(нет голосов)

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: нет
Всего: 11

Цитата(syoksana @ 27.9.2008, 01:41

)

а резуьтат не верный выводит

все он правильно выводит..смотри внимательней)

Код



-2.00000000000000E-0001
 1.00000000000000E+0000
 0.00000000000000E+0000
 0.00000000000000E+0000
 0.00000000000000E+0000

-2.00000000000000E-0001 это значит -0.2

(-2+1)/5 = -0.2 smile

если хочешь чтоб выводилось в более привычном виде то поступи так:

Код


for i:=1 to n do writeln(a[i]:4:4);

это значит выводить 4 знака перед запятой и 4 после. если у тебя среднеарифметическое и сами элементы не будут привышать 9999 то можно так и оставить)

Цитата(syoksana @ 27.9.2008, 01:41

)

и как вывести что нет отрицательных элементов?

ну добавь еще какуюнито переменную дополнительную j:

Код


if a[i]<0 then 
 begin
    j:=j+1;
    a[i]:=sum/k;
 end;

if j=0 then writeln('otricstelnix net') ;

Это сообщение отредактировал(а) ne0n - 27.9.2008, 02:04

--------------------

http://sa-sec.org
как я вам? smile

syoksana

Дата 27.9.2008, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 19.2.2008

Репутация: нет
Всего: нет

Цитата(ne0n @ 27.9.2008, 02:02)

все он правильно выводит..смотри внимательней)

Код


-2.00000000000000E-0001

-2.00000000000000E-0001 это значит -0.2

(-2+1)/5 = -0.2 smile

ну добавь еще какуюнито переменную дополнительную j:

Код


if a[i]<0 then 
 begin
    j:=j+1;
    a[i]:=sum/k;
 end;

if j=0 then writeln('otricstelnix net') ;

Поняла, это что-то я подзабыла.
Спасибо тебе, что помог! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »