Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
VIG
193 / 9 / 1
Регистрация: 05.10.2010
Сообщений: 309
1

Сформировать одномерный массив B(k) элементы которого вычисляются по формуле

22.05.2012, 16:50. Просмотров 1126. Ответов 1
Метки нет (Все метки)

Сформировать одномерный массив B(k) элементы которого вычисляются по формуле zx=(s1+s2)/(k1+k2), где s1 и k1-сумма и количество чётных по модулю элементов массива X(n) s2 и k2-сумма и количество чётных по модулю элементов массива Y(m), полученных случайным образом из указанного промежутка. Массивы X и Y формируются k раз. Размерности массивов n и m вводятся пользователем.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2012, 16:50
Ответы с готовыми решениями:

Заполнить линейный массив, элементы которого вычисляются по формуле
Заполнить линейный массив, элементы которого вычисляются по формуле...

Массив: Получить из исходного вектора новый, элементы которого вычисляются по формуле S(i)= i*(-i - 4)*sin(i)
Дан вектор S размера n, где n<=15. Элементы вектора вычисляются по формуле...

Получить вектор, элементы которого вычисляются по формуле
62. Дана квадратная матрица A порядка n. Получить вектор , где b - вектор,...

Матрицы. Получить вектор Ab, элементы которого вычисляются по формуле Bi=1/(i^2+2)
Дано квадратная матрица порядка n. Получить вектор Ab где b-вектор, элементы...

Создать типизированный файл, элементы которого вычисляются по формуле
Program tipizfail; var M: file of integer; i,F,Fi,n:integer; Begin ...

1
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
22.05.2012, 22:41 2
Лучший ответ Сообщение было отмечено VIG как решение

Решение

Цитата Сообщение от VIG Посмотреть сообщение
сумма и количество чётных по модулю элементов массива
может сумма модулей? но решил дословно, как в задании
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
const
  nmax=100;
type
  arr=array[1..nmax] of integer;
  brr=array[1..nmax] of real;
  
procedure init(p,q,n1: integer; var a: arr);
var i: integer;
begin
  for i:=1 to n1 do
    a[i]:=random(q-p+1)+p;
end;
 
procedure outPut(n1: integer; var a: arr);
var i: integer;
begin
  for i:=1 to n1 do
    write(a[i],' ');
  writeln; writeln;
end;
 
function sum(n1: integer; var a: arr): integer;
var i,s: integer;
begin
  s:=0;
  for i:=1 to n1 do
    if abs(a[i]) mod 2=0 then s:=s+a[i];
  sum:=s;
end;
 
function count(n1: integer; var a: arr): integer;
var i,s: integer;
begin
  s:=0;
  for i:=1 to n1 do
    if abs(a[i]) mod 2=0 then inc(s);
  count:=s;
end;
 
var
  x,y: arr;
  b: brr;
  s1,s2,k,k1,k2,p,q,n,m: integer;
  i: integer;
  
begin
  randomize;
  write('Введите p,q - промежуток для значений элементов: ');
  readln(p,q);
  write('Введите число k - размерность получаемого массива: ');
  readln(k);
  write('Введите n,m - размеры исходных массивов: ');
  readln(n,m);
  for i:=1 to k do
  begin
    init(p,q,n,x);
    writeln(i,'-й массив x:');
    outPut(n,x);
    init(p,q,m,y);
    writeln(i,'-й массив y:');
    outPut(m,y);
    b[i]:=(sum(n,x)+sum(m,y))/(count(n,x)+count(m,y))
  end;
  writeln('Полученный одномерный массив:');
  for i:=1 to k do write(b[i]:7:2,' ');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2012, 22:41

Сформировать массив, элементы которого определяются по формуле
Мальчики, помогите.( Дали задание, нужно сделать как можно скорее. Сейчас на...

Сформировать и напечатать матрицу FV ,элементы которой вычисляются по формуле FV(i,j)=sin(i + j / 2)
Сформировать и напечатать матрицу FV ,элементы которой вычисляются по формуле...

Блок-схема: Из заданного массива V(n) сформировать массив B, элементы которого находятся по формуле
Из заданного массива V(n) сформировать массив B, элементы которого находятся по...


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

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

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