IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Модифицировать одномерный массив, Заменить числа в определенном интервале на максимальный элемент
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской

Репутация: -  0  +


Помогите пажайлуста решить задачу:
Заменить числа, которые находятся в интервале от c до d на наибольший четный элемент массива или на ноль если такого элемента не окажется.
Например задан массив 1,2,5,3,8,9,2,0,2,4; при c=2 а при d=3, т.е интервал от [2,3] мы заменяем числа данного интервала на 8( максимальный четный элемент) т.е получаем массив 1,8,8,8,8,9,2,0,2,4
Вот есть наброски программы но она работает не верно,как исправить? Что нужно дописать чтоб программа заменяла данные числа интервала на ноль если максимального нет?


const n=10;
type mymas=array[1..n] of integer;

function MaxAbs(n:integer;a:mymas):integer;
var i,max:integer;
begin
max:=abs(a[1]);
for i:=2 to n do
if (a[i] mod 2)=0 then
if abs(a[i])>max then max:=abs(a[i]);
MaxAbs:=max;
end;

var i,c,d:integer;
const a:mymas=(1,2,5,3,8,9,2,0,2,4);
begin

writeln('vvod c=',c); readln©;
writeln('vvod d=',d); readln(d);
if (a[i]>c)and(a[i]<d) then
a[i]:=MaxAbs(n,a);

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



 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата
Что нужно дописать чтоб программа заменяла данные числа интервала на ноль если максимального нет?
Нужно сделать так, чтобы в описанном тобой случае функция MaxAbs сразу возвращала 0...
function MaxAbs(n:integer;a:mymas):integer;
var i, max: integer;
begin
max := -1;
for i:=1 to n do
if (a[i] mod 2)=0 then
if abs(a[i])>max then max:=abs(a[i]);

if max = -1 then MaxAbs := 0
else MaxAbs:=max;
end;
Кстати, было бы гораздо более логично вызвать эту функцию 1 раз (перед тем, как пробегать по массиву в основной программе), запомнить ее результат, и использовать уже его. Чего ж ты несколько раз будешь вызывать функцию, возвращающую одно и то же?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской

Репутация: -  0  +


А как быть c интервалом?
Если допустим изменем условие: заменим не все числа а ток границы интервала т.е массив 1,2,5,3,8,9,2,0,2,4; при c=2 а при d=3, т.е интервал от [2,3] мы заменяем границу данного интервала на 8( максимальный четный элемент) т.е получаем массив 1,8,5,8,8,9,2,0,2,4

Сообщение отредактировано: Zlo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Цитата
Если допустим изменем условие
Допустим, условие менять не надо... Здесь все-таки не телепаты, просматривать все возможные варианты условий, которые придут тебе в голову... Ты задал вопрос:
Цитата
Что нужно дописать чтоб программа заменяла данные числа интервала на ноль если максимального нет?
? На него и получил ответ.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской

Репутация: -  0  +


Есть ещё один вопрос( который я неправильно сформулировал):
Заменить числа, которые находятся в интервале от c до d на наибольший четный элемент массива или на ноль если такого элемента не окажется.
Например( один из вариантов условия) задан массив 1,2,5,3,8,9,2,0,2,4; при c=2 а при d=3, т.е интервал от [2,3] мы заменяем числа данного интервала на 8( максимальный четный элемент) т.е получаем массив 1,8,8,8,8,9,2,0,2,4.
Выше( в первом моем посте) есть кое какие наброски программы, которая работает не правильно , т.е не заменяет числа заданного интервала.
Что нужно исправить чтоб программа правильно работала?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 26.10.2020 21:32
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name