Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 26.04.2014
Сообщений: 6
1

Заменить нули в целочисленном массиве полусуммой последующего и предыдущего чисел

24.05.2014, 09:48. Просмотров 584. Ответов 1
Метки нет (Все метки)

Составить программу, предусматривающую обработку значений одномерного массива. Ввод/вывод осуществлять с использованием компонентов классов (TMemo, TEdit / TextBox).
Заменить нули в целочисленном массиве полусуммой последующего и предыдущего чисел (если ноль содержится в первом или последнем элементе, то необходимо взять 1/2 второго или предпоследнего чисел соответственно).
Программу составил, но не корректно. Слишком много пересчитывает, не могу исправить.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
A,B: array[1..100] of double;
i,n:integer;
begin
n:=M_masa.Lines.Count;
for i:= 1 to n do
A[i]:= strtofloat(M_MasA.Lines.Strings[i-1]);
for i:=1 to n do
begin
 if (A[i]=0) and (i<>1) and (i<>n) then
B[i]:=(A[i+1]+A[i-1])/2
else
B[i]:=A[i];
end;
 for i:=1 to n do
begin
 if A[1]=0 then
B[1]:=A[2]/2;
 if A[n]=0 then
B[n]:=A[n-1]/2;
end;
M_masb.Lines.Clear;
for i:=1 to n do
M_masb.Lines.add(floattostr(B[i]));
end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2014, 09:48
Ответы с готовыми решениями:

Заменить нули в целочисленном массиве полусуммой последующего и предыдущего чисел
Заменить нули в целочисленном массиве полусуммой последующего и предыдущего чисел(если ноль...

Заменить нули в целочисленном массиве полусуммой последующего и предыдущего чисел
Заменить нули в целочисленном массиве полусуммой последующего и предыдущего чисел(если ноль...

Заменить в массиве каждый нулевой элемент полусуммой последующего и предыдущего
Ввести с клавиатуры список, состоящий из 10 элементов. Заменить в нем каждый нулевой элемент...

Заменить в массиве каждый нулевой элемент полусуммой последующего и предыдущего
Составить программу с использованием базовых алгоритмов для работы с одномерными массивами Ввести...

1
Модератор
60897 / 45705 / 31535
Регистрация: 18.05.2008
Сообщений: 109,997
24.05.2014, 09:58 2
Второй массив здесь по условию не нужен, просят заменить элементы, а не создать новый массив.
Delphi
1
2
3
4
5
6
7
for i:=1 to n do
if A[i]=0 then
 begin
  if(i<>1) and (i<>n) then A[i]:=(A[i+1]+A[i-1])/2
  else if i=1 then A[i]:=A[i+1]/2
  else if i=n then A[i]:=A[i-1]/2
 end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2014, 09:58

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

Найти сколько чисел больше предыдущего и последующего чисел в массиве
Здравствуйте. Есть такое задание: задан массив. Запомнить сколько чисел больше предыдущего и...

Заменить каждый элемент массива на сумму предыдущего и последующего элемента
Дан массив размера N. Заменить каждый элемент(кроме крайних) массива на сумму предыдущего и...

Определить сколько из элементов вектора больше предыдущего и последующего чисел
Дан вектор целых чисел. Определить сколько из них больше предыдущего и последующего чисел.

В одномерном массиве целых чисел заменить все нули единицами
В одномерном массиве целых чисел заменить все нули единицами.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.