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

Функция, вычисляющая отношение главной диагонали к побочной

26.11.2010, 21:13. Просмотров 287. Ответов 2
Метки нет (Все метки)

здравствуйте. составил функцию, но она всегда выдает единицу. код прграммы:
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
 program Project4;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  const m=3;n=3;
  var a:array [1..m,1..n] of integer;
  i,j:integer;
  sum1,sum2:integer;
  otn:real;
 
  function step ():real;
      var resh:real;
          sum1,sum2:integer;
      begin
      resh:=sum1/sum2;
      step:=resh;
      end;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(10);
for i:=1 to m do begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
sum1:=0;
for i:=1 to m do begin
for j:=1 to n do begin
if i=j then
sum1:=sum1+a[i,j];
end;end;
sum2:=0;
for i:=1 to m do begin
sum2:=sum2+a[i,n+1-i];
end;
otn:=step;
writeln('otn=',otn:3:1);
readln;
end.


помогите,пожалуйста,исправить ошибку.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2010, 21:13
Ответы с готовыми решениями:

Вычислить четыре суммы: элементов на главной диагонали, на побочной, над главной и под главной диагональю
1. сформировать двумерный массив размером 4х4 с помощью функции random из...

Заменить min элементом побочной диагонали каждый элемент главной диагонали
Задача: Написать программу, которая находит минимальный элемент побочной...

Найти произведения элементов главной диагонали и побочной диагонали матрицы
Найдите для массива nxn произведение чисел главной диагонали и боковой...

Найти произведение главной диагонали и суммы побочной диагонали матрицы
Дана матрица действительных чисел M(n,m). Найти произведение главной диагонали...

Обнулить элементы матрицы, лежащие одновременно выше главной диагонали и ниже побочной диагонали
Дана квадратная матрица порядка М. Обнулить элементы матрицы,лежащие...

2
Puporev
Модератор
54345 / 41940 / 28975
Регистрация: 18.05.2008
Сообщений: 98,782
26.11.2010, 21:25 #2
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
const n=3;
type matr=array [1..n,1..n] of integer;
function step(a:matr):real;
var i:byte;
    s1,s2:integer;
    r:real;
begin
s1:=0;
s2:=0;
for i:=1 to n do
 begin
   s1:=s1+a[i,i];
   s2:=s2+a[i,n-i+1];
 end;
step:=s1/s2;
end;
var a:matr;
i,j:integer;
begin
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln('otn=',step(a):0:3);
readln;
end.
1
vla-dos
0 / 0 / 0
Регистрация: 22.10.2010
Сообщений: 10
26.11.2010, 22:13  [ТС] #3
огромное тебе спасибо, Puporev
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.11.2010, 22:13

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

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

Сумму элементов, стоящих на главной и побочной диагоналях диагонали.
Надо составить программу, которая для введенной с клавиатуры квадратной матрицы...


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

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

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