Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Мышка-нарушка
0 / 0 / 1
Регистрация: 10.12.2014
Сообщений: 7
#1

Нахождение элементов матрицы

11.03.2018, 11:47. Просмотров 206. Ответов 2
Метки нет (Все метки)

Составить программу для нахождения элементов матрицы размерностью NxN и величины D http://www.cyberforum.ru/cgi-bin/latex.cgi?a{i}_{j}=sin(\frac{i+j}{4}\pi ) http://www.cyberforum.ru/cgi-bin/latex.cgi?D=min{}_{i}(\sum_{k=1}^{4}a{}_{ik})
Вот что получилось. Подскажите, пожалуйста, что надо исправить?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var
i,j:integer; 
N:real;
A:array[1..N,1..N] of real;
Begin 
write('Введите размерность матрицы N=');
readln(N);
For i:=1 to N do 
begin
For j:=1 to N do   
begin
a[i,j]:=sin(((i+j)/4)*pi);
write(a[i,j]:7:3);  
end;  
end;  
end.
Добавлено через 19 часов 22 минуты
Ну помогите, пожалуйста
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.03.2018, 11:47
Ответы с готовыми решениями:

Нахождение ненулевых элементов матрицы и их произведение
Дана матрица X(3,7). Определить для каждого четного столбца: количество ненулевых элементов и их...

Нахождение под диагональных элементов матрицы
Привет всем ! Была задача, перед глазами задания нету (только в памяти и в голове), но суть такая:...

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

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

Найти среднее арифметическое элементов матрицы и сумму элементов тех строк матрицы, в которых отрицателен элемент главной диагонали
Найти среднее арифметическое элементов матрицы и сумму элементов тех строк матрицы, в которых...

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3861 / 2847 / 3632
Регистрация: 05.06.2014
Сообщений: 13,960
12.03.2018, 18:11 #2
В смысл задачи не вчитывался (не вдумывался). Исправил ярко выраженные ошибки.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  i, j: integer; 
  N: integer;
  A: array[1..100, 1..100] of real;
 
begin
  write('Введите размерность матрицы N=');
  readln(N);
  for i := 1 to N do 
  begin
    for j := 1 to N do   
    begin
      a[i, j] := sin(((i + j) / 4) * pi);
      write(a[i, j]:12:3);  
    end;  
    writeln;
  end;  
end.
1
Мышка-нарушка
0 / 0 / 1
Регистрация: 10.12.2014
Сообщений: 7
13.03.2018, 18:46  [ТС] #3
ZX Spectrum-128, Я вот не могу понять как рассчитывать величину D http://www.cyberforum.ru/cgi-bin/latex.cgi?min{}_{i}(\sum_{k=1}^{4}a{}_{ik}). Это получается надо найти минимум из сумм элементов по строкам, или нет?
Вот что у меня получилось, но мне кажется что это неправильно...
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
var
  i, j,k: integer; 
  N: integer;
  A: array[1..100, 1..100] of real;
 min:real;
 S:array[1..8] of real; 
 
begin
  write('Введите размерность матрицы N=');
  readln(N);
  for i := 1 to N do 
  begin
  min:=0;
    for j := 1 to N do   
    begin
    S[i]:=0;
      a[i, j] := sin(((i + j) / 4) * pi);
      write(a[i, j]:12:3);  
    end;
    writeln;
    min := integer.MaxValue;
    for k := 1 to 4 do
      if min > a[i, k] then min := a[i, k];
      S[i]:= s[i]+min;
      write(S[i]);  
  end;
 writeln;
    
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2018, 18:46

Нахождение нормы матрицы.
Задание: Даны три квадратных матрицы A, B, C n-го порядка. Вывести на печать ту из них, норма...

Нахождение обратной матрицы
помогите пожалуйста нужна БЛОК СХЕМА и ПРОГРАММА на нахождение обратной матрицы, (паскаль)

Нахождение ранга матрицы
Помогите плиз написать прогу на паскале для нахождения ранга матрицы... Добавлено через 8 часов...


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

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

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