Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача: Программирование циклических процессов.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Psychologist
Здравствуйте!
Очень нужна ваша помощь, ни как не доходит решение задачки одной...
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1. Номер минимального по модулю элемента массива; {именно номер, а не значение}
2. Сумму модулей элементов массива, расположенных после первого отрицательного элемента.

Я тут заготовочку сделал. Помогите, плз...

Program MASSIV;
Var
A : array [1..10] of Real; {объявление массива}
i, j : Integer; {счётчики цикла}
min : Integer; {номер минимального по модулю элемента}
minus : Integer; {первй отрицательный элемент}
sum : Integer; {сумма элементов массива}
Begin

writeln ('vvedite 10 el. massiva');
for i:=1 to 10 do begin
readln (a[i]);
end;

min:=abs(min);

End.

klem4
1)
imin := 1;
for i := 2 to n do
if abs(x[i]) < abs(x[imin]) then
imin := i;


2)
i := 1;
while (i <= n) and (x[i] >= 0) do
inc(i);
s := 0;
inc(i);
while (i <= n) do begin
s := s + abs(x[i]);
inc(i);
end;
Psychologist
klem4 Большое спасибо!
Только непонятно, нужно ли оставлять min:=abs(min); (то, что я писал раньше) и откуда взялся х...
volvo
Цитата
откуда взялся х...
Вопроса "Куда делся А" не возникло при этом?
klem4
x[i] налогично твоему a[i]. X - это массив.

по поводу первого вопроса - вообще не очень ясно что ты хотел сделать. Хранить нужно только номер минимального (в данном случае по модулю) элемента. Изначально мы берем за минимальный элемент - элемент под номером 1. Затем в цикле смотрим, если очередной элемент с номером i по модулю менньше чем последний найденный минимум (abs(x[imin])), то принимаем его номер за новый минимум imin := i;

volvo smile.gif)
Psychologist
Вот, что в итоге получилось:

Program MASSIV;
Var
A : array [1..10] of Real; {ob'yavlenie massiva}
i, j : Integer; {schetchiki tcikla}
min : Integer; {nomer min. el}
minus : Integer; {perviy otric. el}
sum : Integer; {summa el. massiva}
Begin

writeln ('vvedite 10 el. massiva');
for i:=1 to 10 do begin
readln (a[i]);
end;

min:= 1;
for i:= 2 to 10 do
if abs(A[i]) < abs(A[min]) then
min:= i;

writeln ('nomer min. el', min);

i:= 1;
while (i<=10) and (A[i]>= 0) do
inc(i);
sum:= 0;
inc(i);
while (i<= 10) do begin
sum:= sum + abs(A[i]);
inc(i);
end;

writeln ('summa el.', sum);

End.



Ставит указатель после "sum:= sum + abs(A[i]);" и пишет "Error 26: Type mismatch"
И ещё, что за функция такая - inc??
klem4
Правильно ругается, потомучто sum - переменная целого типа(Integer), а элементы массива - вещественного (real)
Psychologist
Ок, исправил.
Ошибок, не пишет, всё работает!
Ещё раз, большое спасибо! smile.gif

Только вопрос остался открытым: Что такое inc?
Client
inc(i,5);

здесь значение i увеличится на 5
inc(i)

а здесь на 1
Psychologist
Client Пасиб!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.