Помогите - Помощь студентам

st1mUA · 12.01.2009, 19:19

Помогите,Написать блок-схему алгоритма

Замена отрицательных элементов числового массива их абсолютными величинами.

goblinyara · 12.01.2009, 19:22

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

maladoy · 12.01.2009, 19:24

Цитата:

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

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

можно и без условия обойтись a[i]:=abs(a[i]); и все

goblinyara · 12.01.2009, 19:29

maladoy, тут просили вообще-то блок-схему алгоритма, а не код... алгоритмика не имеет какого-либо кода, это запись выражений для объяснения логики будущего кода... как бы его костяк... а как раз таки в блок-схеме это условие нужно, чтобы показать преподам(я так понимаю, что это им нужно сдать эту блок-схему

) что студент умеет составлять блок-схемы...

st1mUA · 12.01.2009, 19:33

а можете пожалуйста написать этот блок схему
буду оочень благодарен

alex_fcsm · 12.01.2009, 19:38

Код:

var i:integer;
a:array[1..20] of integer;

begin
 for i:=1  to 20 do
  a[i]:=random(10)-random(10);
 for i:=1 to 20 do
  if a[i]<0 then a[i]:=abs(a[i]);
end.

alex_fcsm · 12.01.2009, 19:40

Косяк в схеме

st1mUA · 12.01.2009, 19:47

Спасибо спасибо спасибо

12.01.2009, 19:19	#1
st1mUA Пользователь Регистрация: 12.01.2009 Сообщений: 10	Помогите Помогите,Написать блок-схему алгоритма Замена отрицательных элементов числового массива их абсолютными величинами.

12.01.2009, 19:22	#2
goblinyara Форумчанин Регистрация: 02.01.2009 Сообщений: 340	хммм... а чё там писать-то?... проходишь массив циклом, в каждом цикле смотришь по условию, отрицательный или положительный элемент... если отрицательный, то менять знак... вот и всё.... DelphiWorld 6. Скачай, поставь, и будет тебе счастье=) Программирование, как и любовь -- одно слово, за которым скрывается бесконечное множество занятий.

12.01.2009, 19:29	#4
goblinyara Форумчанин Регистрация: 02.01.2009 Сообщений: 340	maladoy, тут просили вообще-то блок-схему алгоритма, а не код... алгоритмика не имеет какого-либо кода, это запись выражений для объяснения логики будущего кода... как бы его костяк... а как раз таки в блок-схеме это условие нужно, чтобы показать преподам(я так понимаю, что это им нужно сдать эту блок-схему) что студент умеет составлять блок-схемы... DelphiWorld 6. Скачай, поставь, и будет тебе счастье=) Программирование, как и любовь -- одно слово, за которым скрывается бесконечное множество занятий.

12.01.2009, 19:38	#6
alex_fcsm Участник клуба Регистрация: 10.11.2008 Сообщений: 1,502	Код: `var i:integer; a:array[1..20] of integer; begin for i:=1 to 20 do a[i]:=random(10)-random(10); for i:=1 to 20 do if a[i]<0 then a[i]:=abs(a[i]); end.` Нормальное состояние техники - нерабочее, все остальное частный случай. Последний раз редактировалось alex_fcsm; 23.01.2009 в 12:33.

12.01.2009, 19:40	#7
alex_fcsm Участник клуба Регистрация: 10.11.2008 Сообщений: 1,502	Сорри Косяк в схеме Нормальное состояние техники - нерабочее, все остальное частный случай. Последний раз редактировалось alex_fcsm; 23.01.2009 в 12:33.

12.01.2009, 19:33	#5
st1mUA Пользователь Регистрация: 12.01.2009 Сообщений: 10	а можете пожалуйста написать этот блок схему буду оочень благодарен

12.01.2009, 19:47	#8
st1mUA Пользователь Регистрация: 12.01.2009 Сообщений: 10	Спасибо спасибо спасибо