Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 28.11.2013
Сообщений: 14
1

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

12.12.2013, 17:39. Просмотров 743. Ответов 5
Метки нет (Все метки)

Составить программу с использованием базовых алгоритмов для работы с одномерными массивами
Ввести с клавиатуры одномерный массив, состоящий из 10 элементов. Заменить в нем каждый нулевой элемент полусуммой последующего и предыдущего. Если первый элемент равен нулю, заменить его на второй, если последний равен нулю, заменить его на предыдущий. На экран вывести новый массив в одну строку
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.12.2013, 17:39
Ответы с готовыми решениями:

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

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

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

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

5
1 / 1 / 0
Регистрация: 28.11.2013
Сообщений: 14
06.02.2014, 08:38  [ТС] 2
Помогите
0
5 / 5 / 0
Регистрация: 26.05.2010
Сообщений: 65
06.02.2014, 09:13 3
Кинь на форму StringGrid, поставь свойство Options ->editing в True
Кинь Лайбу и Бутон
Событие по кнопке
в
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var I: integer;
        mas1: array[0..9] of integer;
begin
  //Проверем есть ли в ячейке данные если да то записываем в массив если нет то это 0!
  For i:=0 to 9 do
      If StringGrid1.Cells[i,0]='' then mas1[i]:=0 else mas1[i]:=StringGrid1.Cells[i,0];
  //Если первый 0
  If mas1[0]=0 then mas1[0]:=mas1[1];
  //Если в нутри 0
  For i:=1 to 8 do
      If mas1[i]=0 then mas1[i]:=Int((mas1[i-1]+mas1[i+1])/2); //Int() Возвращает целую часть, если надо с дробями меняй тип массива
  //Последний 0
  If mas1[9]=0 then mas1[9]:=mas1[8];
  //Выводим массив
  For i:=0 to 9 do
      Label1.Caption:=Label1.Caption+IntToStr(mas1[i])+'; ';
2
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
29831 / 19637 / 7683
Регистрация: 22.10.2011
Сообщений: 34,219
Записей в блоге: 6
06.02.2014, 13:07 4
FantomaS91, а ты на название раздела обращаешь внимание, или у тебя WriteOnly mode? Это не Лазарус, а FPC, консольные приложения, если что...
1
5 / 5 / 0
Регистрация: 26.05.2010
Сообщений: 65
06.02.2014, 14:01 5
Извиняюсь, заработался, не заметил..
1
1 / 1 / 0
Регистрация: 28.11.2013
Сообщений: 14
08.02.2014, 12:51  [ТС] 6
))))ну я думаю на FPC заработает?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.02.2014, 12:51

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

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

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

Создать массив, где каждый элемент будет суммой из предыдущего и последующего элементов первого массива
Привет, помогите, пожалуйста. Тема такая: нужно сгенерировать 20 элемнтов массива из 4-хзначных...

Каждый отрицательный элемент массива заменить полусуммой соседей
Составить программу. Пусть дан массив из n элементов.Каждый отрицательный элемент замените...


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

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

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