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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
VIG
193 / 9 / 0
Регистрация: 05.10.2010
Сообщений: 309
#1

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

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

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

Заполнить линейный массив, элементы которого вычисляются по формуле - Turbo Pascal
Заполнить линейный массив, элементы которого вычисляются по формуле a=(5i!-d)/i!-1. Вычисление по формуле оформить процедурой

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

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

Создать типизированный файл, элементы которого вычисляются по формуле - Turbo Pascal
Program tipizfail; var M: file of integer; i,F,Fi,n:integer; Begin assign(M,'c:/pascal/M.txt'); rewrite(M); ...

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

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

1
ermolay
3420 / 2359 / 685
Регистрация: 04.12.2011
Сообщений: 3,962
22.05.2012, 22:41 #2
Цитата Сообщение от 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) - Turbo Pascal
Сформировать и напечатать матрицу FV ,элементы которой вычисляются по формуле FV(i,j)=sin(i + j / 2) Определить и напечатать сколько...

Блок-схема: Из заданного массива V(n) сформировать массив B, элементы которого находятся по формуле - Turbo Pascal
Из заданного массива V(n) сформировать массив B, элементы которого находятся по формуле bi=(ai+ai+1+ai+2)/3 uses crt; Var...

Сформировать одномерный массив, элементы которого - максимумы элементов диагоналей матрицы - Turbo Pascal
Для заданной квадратной матрицы сформировать одномерный массив, элементы которого- максимумы элементов диагоналей , параллельных главной и...

Сформировать одномерный массив, элементы которого - количества отрицательных, кратных 3 или 5 в строке матрицы - Turbo Pascal
Исходная матрица должна быть выведена на экран в виде таблици.Все преобразования производить с исходным массивом. После каждого...


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

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

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