Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача про матрицу
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Rom
24.12.2005 20:14
Задача:**Известно, что в матрице элемент последнего столбца может иметь лишь значение 0 и 1. Найти среднее фрифметическое общей совакупности элементов тех строк, последний элемент который равен 1.**
Вроде написал, но выдает ошибки.
Код

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var a: array [0..5,0..5] of real;
n,m,k,i,j:integer;
ca:real;

begin
writeln ('n=,  m =');
readln (n,m);
writeln (n,'*',m);
for i:=0 to n-1 do
for j:=0 to m-1 do
read (a[i,j]);
k:=0;
ca:=0;
for j=m-1 do
for i=0 to n-1 do
if a[i,j]:=1 then
begin
ca:=ca+a[i,j];
k:=k+1;
end;
ca:=ca/k;
writeln ('k=',k);
writeln ('ca=',ca);
end;


end.
volvo
24.12.2005 20:18
Если бы ты соизволил форматировать программу, как положено, а не писать все с первой позиции строки, то сам бы увидел ошибки:
program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
  a: array [0..5,0..5] of real;
  n,m,k,i,j:integer;
  ca:real;

begin
  writeln ('n=,  m =');
  readln (n,m);
  writeln (n,'*',m);
  for i:=0 to n-1 do
    for j:=0 to m-1 do
      read (a[i,j]);

  k:=0; ca:=0;
  for j:=0 to m-1 do
    for i:=0 to n-1 do
      if a[i,j] = 1 then begin
        ca:=ca+a[i,j];
        k:=k+1;
      end;
  ca:=ca/k;
  writeln ('k=',k);
  writeln ('ca=',ca);
end.

На правильность работы НЕ проверял, но программа компилируется...
Rom
24.12.2005 20:31
Теперь програма компилируется только ничего не считает. Что мне сделать?
volvo
24.12.2005 20:35
Исправляй... Значит, ошибки в логике программы...
Rom
24.12.2005 21:09
Цитата(volvo @ 24.12.2005 16:35) *

Исправляй... Значит, ошибки в логике программы...

Это понятно, непонятно как праверить 0 или 1 в последнем столбце.
Гость
24.12.2005 22:19
вроде делается это так, но компилятору это не нравиться?
Код

for j:=m-1 do
for i:=0 to n-1 do
if a[i,j]:=1 then
begin
ca:=ca+a[i,j];
k=k+1;
end;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.