Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
KapuTowka
9 / 2 / 0
Регистрация: 19.11.2013
Сообщений: 58
#1

Построить вектор - Turbo Pascal

02.12.2013, 14:05. Просмотров 290. Ответов 1
Метки нет (Все метки)

Здравствуйте. Будьте так добры, помогите с задачей, спасибо) Условие : Дан целочисленный вектор A(n). Построить вектор B(n), i-ый элемент которого равен среднему арифметическому первых i-элементов вектора A:B[i]=(A[1]+...+A[i])/i
Оформить без передачи параметров.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2013, 14:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Построить вектор (Turbo Pascal):

Построить вектор - Turbo Pascal
1. Ввести размерность матрицы и значения ее элементов. Построить вектор В, где В(i) - 1) минимальное значение в i-ой...

Построить вектор из элементов матрицы - Turbo Pascal
3. Дана квадратная матрица A(nхn). Построить вектор b, где bi, i=1,…,n – максималь-ный элемент i-ой строки матрицы, среди элементов,...

Построить логический вектор по правилу - Turbo Pascal
Разработать программу, которая строит логический вектор L(n) по правилу : L(i)=true, если в i-й строке этой матрицы количество отъемных...

Дана матрица С(4,3).Построить в ней вектор А(4) - Turbo Pascal

Дана квадратная матрица. Построить вектор - Turbo Pascal
В задание матрицу заполнять “вручную”. Дана квадратная матрица A(nхn). Построить вектор b, где bi, i=1,…,n – сумма нечетных элементов...

Дана квадратная матрица. Построить вектор - Turbo Pascal
В задание матрицу заполнять “вручную”. Дана квадратная матрица A(nхn). Построить вектор b, где bi, i=1,…,n – сумма положительных...

1
Фаер
640 / 369 / 68
Регистрация: 09.12.2011
Сообщений: 733
Записей в блоге: 35
02.12.2013, 15:13 #2
Не понял я, что Вы понимаете под "без передачи параметров". Но вот:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Uses crt;
Var A:array[1..100] of integer; i,j,n,s:integer;
B:array[1..100] of real;
Begin
ClrScr; Randomize;
Write('n='); Readln(n);{ввод кол-ва элементов в массивах}
For i:=1 to n do
 Begin
  A[i]:=random(51);{генерация произвольного элемента массива}
  s:=0;
  For j:=1 to i do s:=s+A[j];{расчёт суммы первых i элементов}
  B[i]:=s/i;{среднее арифметическое и перенос в массив В}
 End;
ClrScr;
For i:=1 to n do Write(A[i]:7);{вывод первого массива}
Writeln;
For i:=1 to n do Write(B[i]:7:2);{вывод второго массива}
Readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2013, 15:13
Привет! Вот еще темы с ответами:

Дана квадратная матрица. Построить вектор - Turbo Pascal
Дана квадратная матрица A (nхn). Построить вектор b, где bi, i=1,…,n – сумма положительных элементов i-ого столбца матрицы

Дана квадратная матрица. Построить вектор - Turbo Pascal
В задание матрицу заполнять “вручную”. Дана квадратная матрица A(nхn). Построить вектор b, где bi, i=1,…,n – сумма положительных...

Матрица. Построить вектор в соответствии с условиями - Turbo Pascal
Буду признателен, если поможете с этим заданием. Задана действительная квадратная матрица порядка 10. Построить вектор длиной 19,...

По заданной квадратной матрице построить вектор - Turbo Pascal
По заданной квадратной матрице размером 10x10 построить вектор длиной 19, элементы которого – максимумы эле- ментов диагоналей,...


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

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

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