VPF::[Pascal] Нахождение суммарных масс

СМЕХ

Дата 10.12.2006, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 24.10.2006

Репутация: нет
Всего: нет

НАРОД НАДО НАЙТИ суммарные массы каждого столбца, вывести их.

Код


Procedure P3(a:c);
begin
writeln;
for I:=1 to n do
for J:=1 to m do
begin
sum:=0;
begin
sum:=sum+a[i,j];
if(i=n)then
begin
Writeln('Сумарная масса  ',j,'-ого столбца = ',sum);
end;
end;
end;
end;

ЧТО НЕ ПРАВИЛЬНО?

Это сообщение отредактировал(а) alexeis1 - 10.12.2006, 17:53

mr.Anderson

Дата 10.12.2006, 16:45 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 16
Всего: 128

Во-первых, что за заголовок процедуры?

Код


Procedure P3(a:c);

Во-вторых, откуда у тебя в процедуре переменные N и M, если они никак туда не передаются?
В-третьих, что значит "что не правильно"? А что выводится вообще?

Короче, давай подробнее.

--------------------

СМЕХ

Дата 10.12.2006, 18:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 24.10.2006

Репутация: нет
Всего: нет

Задача  № 279.
Дана матрица А [7,4 ] массы М вагонов в N составах.
1)    Ввести и распечатать матрицу.
2)    Определить суммарные массаа каждого столбца, вывести их.
3)    Определить номера столбцов с max и min массаами.
4)    Сформировать одномерный массив из элементов матрицы < = 10 , заменив их в матрице 0. Распечатать массив и матрицу.

Решить надо в паскале и записать через процидуры. Решение есть а  через процедуры не полуается написать

Код


program Project2;
const n=5;
      m=4;
var a:array [1..n, 1..m] of integer;
    b:array [1..n*m] of integer;
    i,j,sum,sum1,sum2, mini,maxi, minj,maxj:integer;

begin
//1
  sum:=0;
  sum1:=10000;
  for i:=1 to n do
    for j:=1 to m do
    begin
      gotoxy(i*5,j*2);
      read(a[i,j]);
      


if(a[i,j]<sum1)then
      begin
        mini:=i;
        minj:=j;
        sum1:=A[i,j];
      end;
      if(a[i,j]>sum)then
      begin
        maxi:=i;
        maxj:=j;
        sum:=A[i,j];
      end;
    end;
  for i:=1 to n do
    for j:=1 to m do
    begin
      gotoxy(i*5,j*2);
      Write(a[i,j]);
    end;
  Writeln('Ìèíèìàëüíûé ýëìåíò íà i = ',mini,' è j= ',minj);
  Writeln('Ìàêñèìàëüíûé ýëìåíò íà i = ',maxi,' è j= ',maxj);

  sum:=0;
  sum1:=100000;
  for i:=1 to n do
  begin
    sum:=0;
    for j:=1 to m do
    begin
      sum:=sum+a[i,j];
      if(j=m)then
      begin
          Writeln('Ñòîëáåö ',i);
          Writeln(sum);
      end'
    end;
  
end;
  sum:=1;
  for i:=1 to n do
    for j:=1 to m do
    begin
      b[sum]:=a[i,j];
      if(a[i,j]<=10000)then
        a[i,j]:=0;
      Inc(sum);
    end;
end.

Это сообщение отредактировал(а) alexeis1 - 11.12.2006, 17:25

Alexeis

Дата 10.12.2006, 21:46 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

СМЕХ, вот тут я сделал темку для того, чтобы показать как выделять код. Зайдите, возможно так будет понятнее.
http://forum.vingrad.ru/index.php?showtopic=126445

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

СМЕХ

Дата 11.12.2006, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 24.10.2006

Репутация: нет
Всего: нет

Никто не поможет????? smile

СМЕХ

Дата 11.12.2006, 19:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 24.10.2006

Репутация: нет
Всего: нет

Прогу вроде сдела, только не получается сформировать одномерный массив из элементов матрицы < = 10 , заменив их в матрице 0. Распечатать массив и матрицу. ХОТЬ ЭТО ПОДСКАЖИТЕ smile

Код


Program lab3;
const n=2; m=2;
Type c=array[1..n,1..m] of integer;
Type ct=array[1..m,1..n] of integer;
var
A:c;
AT:ct;
I,J,sum,sum1,sum2,g,max,imax,jmax,min,imin,jmin,h:integer;
x,b,alfa:real;

Procedure P1(var z:c);
begin
For I:=1 to n do
For J:=1 to m do
begin
writeln('vvedite ',I,' ',J,' elementi matrix');
readln(z[I,J]);
end;
end;

Procedure P2(e:c);
begin
writeln('Isxodnai matrix:');
For I:=1 to n do
begin
writeln;
For J:=1 to m do
write(' ',e[I,J]:3);
end;
end;


Procedure P3(a:c);
begin
writeln;
for j:=1 to m do
begin
sum:=0;
for i:=1 to n do
sum:=sum+a[i,j];
Writeln('Сумарная масса  ',j,'-ого столбца = ',sum);
end;
end;

Procedure P4(a:c);
begin
MAX:=a[i,j];
imax:=1;
jmax:=1;
for I:=1 to n do
for J:=1 to m do
if(a[i,j]>sum)then
sum:=a[i,j];
begin MAX:=j;
end;
writeln;
writeln('номер столбца с максимальными массами = ',max);
end;

Procedure P5(b:c);
begin
MIN:=b[i,j];
imin:=1;
jmin:=1;
for i:=1 to n do
for j:=1 to m do
if(b[i,j]<sum)then
sum:=b[i,j];
begin MIN:=j;
end;
writeln;
writeln('номер столбца с минимальными массами = ',min);
end;

Это сообщение отредактировал(а) alexeis1 - 11.12.2006, 20:11

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »