0 / 0 / 0
Регистрация: 06.03.2017
Сообщений: 12
1

Выяснить, сколько положительных элементов содержит матрица

18.05.2017, 10:24. Показов 1260. Ответов 5

Студворк — интернет-сервис помощи студентам
Дано натуральное число n.выяснить сколько положительных элементов содержит матрица [a i,j]. I=1...n, j=1…n если a ij=cos(i^2 +n). Помогите пожалуйста с этой задачей на форме Delphi
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2017, 10:24
Ответы с готовыми решениями:

Выяснить сколько положительных элементов содержит матрица
Дано натуральное число n. Выяснить сколько положительных элементов содержит матрица ;i,j=1,…,n,...

Выяснить, сколько положительных элементов содержит матрица
Помогите сделать,пожалуйста Пусть дано число n.Выяснить, сколько положительных элементов содержит...

Выяснить, сколько положительных элементов содержит матрица A
Дано натуральное число n.Выяснить сколько положительных элементов содержит матрица A порядка n,...

Выяснить сколько положительных элементов содержит матрица
надо сделать 3 программы, хелп хотя бы с одной из них вот условия , надо сделать используя функцию...

5
Модератор
8499 / 5658 / 2291
Регистрация: 21.01.2014
Сообщений: 24,255
Записей в блоге: 3
18.05.2017, 13:01 2
Kraster749, а что неясного?
0
Почетный модератор
64288 / 47587 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
18.05.2017, 13:02 3
Лучший ответ Сообщение было отмечено Kraster749 как решение

Решение

Цитата Сообщение от Kraster749 Посмотреть сообщение
cos(i^2 +n)
может i^2+j? а то j никак не участвует.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..10,1..10]of double;
    n,i,j,k:integer;
begin
n:=strtoint(Edit1.Text);
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  defaultcolwidth:=35;
  colcount:=n;
  rowcount:=n;
 end;
k:=0;
for i:=1 to n do
for j:=1 to n do
 begin
  a[i,j]:=cos(i*i+j);
  StringGrid1.Cells[j-1,i-1]:=formatfloat('0.000',a[i,j]);
  if a[i,j]>0 then inc(k);
 end;
ShowMessage('Количество положительных='+inttostr(k));
end;
1
0 / 0 / 0
Регистрация: 06.03.2017
Сообщений: 12
18.05.2017, 13:08  [ТС] 4
вот так по заданию
Миниатюры
Выяснить, сколько положительных элементов содержит матрица  
0
Почетный модератор
64288 / 47587 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
18.05.2017, 13:11 5
Ну замени в формуле j на n.
1
0 / 0 / 0
Регистрация: 06.03.2017
Сообщений: 12
18.05.2017, 13:14  [ТС] 6
Спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2017, 13:14
Помогаю со студенческими работами здесь

Выяснить сколько положительных элементов содержит матрица
Составить алгоритм программы : дано натуральное число n.выяснить сколько положительных элементов...

Выяснить , сколько положительных элементов содержит матрица
Ребята помогите,пожалуйста!!! Дано натуральное число n. Выяснить , сколько положительных...

Выяснить, сколько положительных элементов содержит матрица
Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица ij=1,...,n,...

Выяснить сколько положительных элементов содержит матрица
5)Пусть дано натуральное число n. Выясните, сколько положительных элементов содержит матрица A...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru