Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.09.2009, 17:16   #1
NTFF
Пользователь
 
Регистрация: 29.09.2009
Сообщений: 11
По умолчанию Paskal zadacha

Составить алгоритм и написать программу которая заменяет каждый элемент массива из 1000 знач суммой его соседних элементов.

знаю как это визуально а как ему(ЕОМ) обьяснить не знаю.
вот как понимаю

1 5 7 4 2
5 12 7 4 2
5 12 16 4 2
5 12 16 15 2

прошу помощи.
NTFF вне форума Ответить с цитированием
Старый 29.09.2009, 17:49   #2
.Phoenix
Форумчанин
 
Регистрация: 02.04.2009
Сообщений: 235
По умолчанию

Цитата:
написать программу которая заменяет каждый элемент массива из 1000 знач суммой его соседних элементов.
Я вот тут не пойму тебя никак...
Цитата:
знаю как это визуально а как ему(ЕОМ) обьяснить не знаю.
Кому ему?
Всё гениальное - просто!
.Phoenix вне форума Ответить с цитированием
Старый 29.09.2009, 17:54   #3
NTFF
Пользователь
 
Регистрация: 29.09.2009
Сообщений: 11
По умолчанию

условие звучит так: Составить алгоритм и написать программу которая заменяет каждый элемент массива из 1000 знач суммой его соседних элементов.

вспомогательные

Ai=Ai-1+Ai+1

i=1, Ai=Ai+1, i=1000, Ai=Ai-1,
NTFF вне форума Ответить с цитированием
Старый 29.09.2009, 17:55   #4
netrino
Участник клуба
 
Аватар для netrino
 
Регистрация: 15.07.2008
Сообщений: 1,933
По умолчанию

Цитата:
Сообщение от .Phoenix
Цитата:
Сообщение от NTFF
знаю как это визуально а как ему(ЕОМ) обьяснить не знаю.
Кому ему?
Вероятно ЭВМ )
2NTFF, ну раз вы алгоритм понимаете, то что именно не позволяет его запрограммировать? Для каждого i-го взять сумму (i-1)-го и (i+1)-го, что тут сложного-то?)
netrino вне форума Ответить с цитированием
Старый 29.09.2009, 17:59   #5
NTFF
Пользователь
 
Регистрация: 29.09.2009
Сообщений: 11
По умолчанию

я не знаю как его правильно записать.
NTFF вне форума Ответить с цитированием
Старый 29.09.2009, 18:14   #6
NTFF
Пользователь
 
Регистрация: 29.09.2009
Сообщений: 11
По умолчанию

помогите записать
NTFF вне форума Ответить с цитированием
Старый 29.09.2009, 18:36   #7
NeshSoft
Максим Николаев
Форумчанин
 
Аватар для NeshSoft
 
Регистрация: 15.02.2009
Сообщений: 170
По умолчанию

Код:
for i:=2 to 999 do mas[i]:=mas[i-1]+mas[i+1];
//где mas: array[1..1000] of integer;
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
NeshSoft вне форума Ответить с цитированием
Старый 29.09.2009, 18:39   #8
NTFF
Пользователь
 
Регистрация: 29.09.2009
Сообщений: 11
По умолчанию

а как записать что что
0 1 2
не имеет соседненго числа????
NTFF вне форума Ответить с цитированием
Старый 29.09.2009, 18:43   #9
NeshSoft
Максим Николаев
Форумчанин
 
Аватар для NeshSoft
 
Регистрация: 15.02.2009
Сообщений: 170
По умолчанию

Цитата:
Сообщение от NTFF Посмотреть сообщение
а как записать что что
0 1 2
не имеет соседненго числа????
а что такое 0 1 2?
не имеют соседнего числа только крайние элементы массива т.е. 1 и 1000, поэтому цикл идет от 2 до 999.
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
NeshSoft вне форума Ответить с цитированием
Старый 29.09.2009, 19:02   #10
NTFF
Пользователь
 
Регистрация: 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.
NTFF вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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