Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
KapuTowka
9 / 2 / 0
Регистрация: 19.11.2013
Сообщений: 58
#1

Построить вектор

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

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

Построить вектор
1. Ввести размерность матрицы и значения ее элементов. Построить...

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

Построить логический вектор по правилу
Разработать программу, которая строит логический вектор L(n) по правилу :...

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

Дана квадратная матрица. Построить вектор
В задание матрицу заполнять “вручную”. Дана квадратная матрица A(nхn)....

1
Фаер
640 / 369 / 259
Регистрация: 09.12.2011
Сообщений: 733
Записей в блоге: 35
02.12.2013, 15:13 #2
Лучший ответ Сообщение было отмечено KapuTowka как решение

Решение

Не понял я, что Вы понимаете под "без передачи параметров". Но вот:

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

Дана квадратная матрица. Построить вектор
В задание матрицу заполнять “вручную”. Дана квадратная матрица A(nхn)....

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

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


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

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

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