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

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
vla-dos
0 / 0 / 0
Регистрация: 22.10.2010
Сообщений: 10
#1

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

26.11.2010, 21:13. Просмотров 281. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Функция, вычисляющая отношение главной диагонали к побочной (Pascal):

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

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

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

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

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

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

2
Puporev
Модератор
54039 / 41672 / 14753
Регистрация: 18.05.2008
Сообщений: 97,993
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-го порядка найти сумму элеметнов, лежащих выше побочной диагонали, и произведение элементов лежащих ниже главной диагонали - Pascal
В матрице n-го порядка найти сумму элеметнов, лежащих выше побочной диагонали, и произведение элементов лежащих ниже главной диагонали....

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

Матрицы. Найти сумму элементов главной и побочной диагонали. - Pascal
Дана матрица вещественых чисел P(7,7). Вычислить сумму элементов главной диагонали и симметричной ей. program qwesadf; uses crt; ...

Сформировать одномерные массивы главной диагонали и побочной диагоналей - Pascal
Дан двумерный массив. Сформировать одномерный массив Х(икс) главной диагонали и У(игрик) побочной диагонали . (Оформить решение с...


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

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

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