Найти S=X1Xn+X2Xn-1+...+Xn-1X2+XnX1 - Паскаль, Turbo Pascal, PascalABC.NET

manchester_alan · 07.04.2015, 22:49

S=X1Xn+X2Xn-1+...+Xn-1X2+XnX1

помогите пожалуйста найти S в одномерном массиве...
я знаю что есть тут везде для матрицы, но для одномерного не могу сделать...

manchester_alan · 07.04.2015, 23:40

Помогите пожалуйста?

Вадим Мошев · 07.04.2015, 23:44

Вот основа:

Код:

s:=0;
for i:=1 to n do begin
	s:=s + x[1]*s[n-i+1];
end;

вам осталось объявить переменные и ввести массив с клавиатуры

type_Oleg · 08.04.2015, 00:07

Вадим Мошев, исправил

Код:

s:=s + x[i]*s[n-i+1];  //  здесь исправлено

Вадим Мошев · 08.04.2015, 00:26

Олег, вы не исправили. У вас тоже с опечаткой.
Ладно, пусть будет так, пусть автор подумает.

type_Oleg · 08.04.2015, 02:36

А, ну да .. Точно.
Ну ладно, все равно такую ошибку компилятор заметит. Если конечно, это будет компилироваться.

07.04.2015, 22:49	#1
manchester_alan Форумчанин Регистрация: 07.01.2015 Сообщений: 231	Найти S=X1Xn+X2Xn-1+...+Xn-1X2+XnX1 S=X1Xn+X2Xn-1+...+Xn-1X2+XnX1 помогите пожалуйста найти S в одномерном массиве... я знаю что есть тут везде для матрицы, но для одномерного не могу сделать... Последний раз редактировалось Вадим Мошев; 18.04.2015 в 18:36.

07.04.2015, 23:44	#3
Вадим Мошев Старожил Регистрация: 12.11.2010 Сообщений: 8,568	Вот основа: Код: `s:=0; for i:=1 to n do begin s:=s + x[1]*s[n-i+1]; end;` вам осталось объявить переменные и ввести массив с клавиатуры

08.04.2015, 00:07	#4
type_Oleg Старожил Регистрация: 02.03.2008 Сообщений: 2,499	Вадим Мошев, исправил Код: `s:=s + x[i]*s[n-i+1]; // здесь исправлено`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Пять задач (Найти все трехзначные числа,Массивы и Найти самое длинное симметричное слово)VBA	Nod123	Помощь студентам	0	24.12.2014 01:30
Найти седловые точки в матрице(помогите найти ошибку) - pascal	tdsotm	Помощь студентам	0	20.11.2014 18:57
Дан одномерный массив. Найти последние чётное, удалить отрицательные, найти среднеарифметическое. с++	zevs 12	Помощь студентам	34	10.11.2014 13:49
Найти ошибку в коде (Для данной целочисленной матрицы размером n*m найти матрицу из 0 и 1...) код на C	camel5	Помощь студентам	1	26.11.2013 06:11
Найти байтс наибольшим числом единиц и найти байт с наибольшим чилом нулей. Найти разность число единиц м	Beren42	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	0	14.12.2010 17:44

07.04.2015, 23:40	#2
manchester_alan Форумчанин Регистрация: 07.01.2015 Сообщений: 231	Помогите пожалуйста?

08.04.2015, 00:26	#5
Вадим Мошев Старожил Регистрация: 12.11.2010 Сообщений: 8,568	Олег, вы не исправили. У вас тоже с опечаткой. Ладно, пусть будет так, пусть автор подумает.

08.04.2015, 02:36	#6
type_Oleg Старожил Регистрация: 02.03.2008 Сообщений: 2,499	А, ну да .. Точно. Ну ладно, все равно такую ошибку компилятор заметит. Если конечно, это будет компилироваться.