Программирование обработки одномерных массивов Опции

[ЯЯЯ]

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

2) Создать массив целых чисел. Найти сумму и количество тех элементов массива, которые меньше заданного числа N. Вывести результат работы на экран.

[Reflex]

var arr : array [ 1..100] of real;
n:integer;
i:integer;
begin
for i:= 1 to n do
if arr[i]<0 then arr[i]:=-2*(arr[i]);
for i:= 1 to n do
writeln(arr[i]);
end.

Сообщение отредактировано: volvo - 3.11.2006 18:10

[volvo]

ЯЯЯ, в задаче №1 проще всего пробежаться по всему массиву, заменяя

a[i] := Abs(a[i]);

при этом неотрицательные числа останутся прежними, а отрицательные сменят знак... И никаких условий не нужно - без них будет даже быстрее...

[Reflex]

var arr : array [ 1..100 ] of integer;
n:integer;
c:integer;
i,count:integer;
begin
count:=0;
for i:= 1 to c do
if arr[i]<n then count:=count+arr[i];
for i:= 1 to c do
write(arr[i],' ');
end.

[volvo]

Reflex, а если подумать?

if arr[i]<0 then arr[i]:=-2*(arr[i]);

При arr[i] = -20 что будет?

В задаче №2 ты можешь очень сильно пострадать: переменная C не инициализирована (впрочем, так же, как и N в первой)...

Никогда не торопись... Особенно, если хочешь кому-то ПОМОЧЬ...

М

P.S. Ну, и зачем ПОЛНЫЕ решения??? Что, человек научится чему-нибудь? А вот неприятный осадок точно останется. Решения вроде полные, а нерабочие... Будет так продолжаться - получишь наказание. Правила еще никто не отменял: 7. Проверяйте программы перед тем, как разместить их на форуме!!!

[Reflex]

Volvo - опечатка

if arr[i]<0 then arr[i]:=-(arr[i]);

а поповоду переменных N и С - это переменные означающие количество использованных переменных в массиве, а предполагаеться что значение переменных n и c даны и массив заполнен

А программы проверялись, просто я запуталась когда перепечатывала

теперь буду писать в Delphi и просто копировать, а полные решение, лично мне проще, тебе дают а ты потом час, а то и два разбираешься, к каждой строчке коментарий пишешь. Так тоже понимание приходит

[мисс_граффити]

ОФФ:
из паскаля тоже можно копировать просто открывай pas файл блокнотом.
а разбираться никто не будет пойдут сдавать готовое, не глядя. ни на один вопрос препода не смогут ответить и тебя же обвинят во всех смертных грехах.

[ЯЯЯ]

Задачи не работают! Помогите исправить!

[Reflex]

выложи код, который править. А те задачи которые выложила я достаточно правильные почитай эту тему и пойми что делать ;)

[Гость]

Program Sm;
var arr : array [ 1..100 ] of integer;
n:integer;
c:integer;
i,count:integer;
begin
count:=0;
for i:= 1 to c do
if arr[i]<0 then arr[i]:=-(arr[i]);
for i:= 1 to c do
write(arr[i],' ');
end.

Заменил, не работает всё равно!

Сколько ни пытался "пробежаться по всему массиву заменяя a[i] := Abs(a[i]);" в 1-ой задаче, ничего не вышло!
Где я не прав?

!

ТЕГИ !

[TimeStopper]

Program Sm;
uses crt;
var a : array [ 1..100 ] of integer;
n:integer;
i:integer;
begin
clrscr;
randomize; {делает так чтоб числа каждый раз выпадали разные}
writeln('Введите количесто символов в массиве?');
read(n); {читаем скоко символов хотите чтоб было }
for i:= 1 to n do
begin
a[i]:=random(20)-10; {заполняем массив чилами случайным образом}
write(a[i],' ');{показывает ети числа которые задались рандомом}
if a[i]< 0 then a[i]:=abs(a[i]);{если число < 0 то тогда записуем ето число в масcив по модулю}
end;
writeln;
for i:= 1 to n do
write(a[i],' '); {выдает результат}
repeat until keypressed; {выходит при нажатий на любую клавишу }
end.

!

Используем теги !

Сообщение отредактировано: klem4 - 10.11.2006 22:24

[Алена]

TimeStopper, если в IDE установлен режим RangeCheck (что, кстати, вполне логично делать, особенно для начинающего), то твой код вылетит при генерации первого же числа, которое ты думаешь, что будет отрицательным... Я бы делала так:

a[i]:=Integer(random(20))-10;

, тогда ошибки не будет...

[ЯЯЯ]

А что насчёт первой задачи?

[TimeStopper]

А что насчёт первой задачи?

Так ето и есть первая задача.
а на счет второй вот:

Program n1;
uses crt;
var a : array [ 1..100 ] of integer; 
 n,m:integer;
 i:integer;
s:integer;
k:integer;
begin
clrscr;
randomize; 
writeln('Введите количесто символов в массиве?');
read(m); 
writeln('Введите N');
read(n);
for i:= 1 to m do
begin
a[i]:=random(20);
write(a[i],' ');
if a[i]<n then
s:=s+a[i];
inc(k);
end;
writeln;
writeln('Количество символов которые меньше N = ',k); 
writeln('Сума таких чисел = ',s);
repeat until keypressed; {выходит при нажатий на любую клавишу }
end.

Я не компилировал но вроде правильно.

!

Еще раз запостишь код без тегов, получишь предупреждение

[klem4]

Я не компилировал но вроде правильно.

Последнее китайское предупреждение, _ЧИТАЙТЕ_ правила форума или в крайнем случае не пишит подобные глупости, вот это ты видел ?

7. Проверяйте программы перед тем, как разместить их на форуме!!!

[TimeStopper]

Видел, но я просто быстро писал и хотел помочь, и если сделал какуето ошибку, то чтоб не ругали сильно. Но больше так небуду.

Сообщение отредактировано: TimeStopper - 10.11.2006 22:33

[klem4]

Поспешишь - людей насмешишь. Твоя программа выдает бредовый результат.

[мисс_граффити]

Поспешишь - людей насмешишь. Твоя программа выдает бредовый результат.

ну... а что она может выдавать?

TimeStopper, накопительные счетчики надо обнулять перед использованием.

[TimeStopper]

Поспешишь - людей насмешишь. Твоя программа выдает бредовый результат.

В смысле бредовые?

Сообщение отредактировано: TimeStopper - 10.11.2006 23:07

[klem4]

В смысле результат, который выдает твоя программа порой является чушью не совместимой с истиной, так понятнее ?