![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 29.09.2009
Сообщений: 11
|
![]()
Составить алгоритм и написать программу которая заменяет каждый элемент массива из 1000 знач суммой его соседних элементов.
знаю как это визуально а как ему(ЕОМ) обьяснить не знаю. вот как понимаю 1 5 7 4 2 5 12 7 4 2 5 12 16 4 2 5 12 16 15 2 прошу помощи. |
![]() |
![]() |
![]() |
#2 | ||
Форумчанин
Регистрация: 02.04.2009
Сообщений: 235
|
![]() Цитата:
Цитата:
Всё гениальное - просто!
|
||
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 29.09.2009
Сообщений: 11
|
![]()
условие звучит так: Составить алгоритм и написать программу которая заменяет каждый элемент массива из 1000 знач суммой его соседних элементов.
вспомогательные Ai=Ai-1+Ai+1 i=1, Ai=Ai+1, i=1000, Ai=Ai-1, |
![]() |
![]() |
![]() |
#4 | ||
Участник клуба
Регистрация: 15.07.2008
Сообщений: 1,933
|
![]() Цитата:
2NTFF, ну раз вы алгоритм понимаете, то что именно не позволяет его запрограммировать? Для каждого i-го взять сумму (i-1)-го и (i+1)-го, что тут сложного-то?) |
||
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 29.09.2009
Сообщений: 11
|
![]()
я не знаю как его правильно записать.
|
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 29.09.2009
Сообщений: 11
|
![]()
помогите записать
|
![]() |
![]() |
![]() |
#7 |
Максим Николаев
Форумчанин
Регистрация: 15.02.2009
Сообщений: 170
|
![]() Код:
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
|
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 29.09.2009
Сообщений: 11
|
![]()
а как записать что что
0 1 2 не имеет соседненго числа???? |
![]() |
![]() |
![]() |
#9 |
Максим Николаев
Форумчанин
Регистрация: 15.02.2009
Сообщений: 170
|
![]()
а что такое 0 1 2?
не имеют соседнего числа только крайние элементы массива т.е. 1 и 1000, поэтому цикл идет от 2 до 999.
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
|
![]() |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 29.09.2009
Сообщений: 11
|
![]()
Что сдесь не так????
program math; uses crt; var A:array[1..1000] of integer; i:integer; begin clrscr; for i:=1 to 1000 do A[i]:=A[i-1]+A[i+1]; if i=1 then A[i]:=A[i-1]; else if i:=1000 then A[i]:=A[i+1]; end. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
String (paskal) | Veselyn | Помощь студентам | 3 | 09.11.2009 20:40 |
Paskal | Dima169 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 20.05.2009 18:38 |
Графика на Paskal | aiktz | Помощь студентам | 1 | 24.04.2009 20:14 |
Paskal | netcher | Помощь студентам | 3 | 05.02.2009 02:04 |
Turbo Paskal | Dimon.ru | Помощь студентам | 1 | 04.01.2009 17:54 |