VPF::[Pascal]динамические переменные, - Форум программистов

S0S

Дата 19.11.2008, 00:23 (ссылка)

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

Загрузка ...

Новичок

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

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

Дан массив А размером n*m. Получить сумму последовательности b1...,bn, где bk - количество отрицательных элементов в k-той строке. А, B - динамические переменные smile

Ofer

Дата 23.11.2008, 01:41 (ссылка)

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

Загрузка ...

Опытный

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

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

На сколько я понял суть задания - надо создать массивы, используя указатели и динамическую память. Правильно? Тогда, в таком случае, достаточно такого кода.

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 5;
  m = 7;

var
  i,j,Summ : Integer;
  A : array [1..n,1..m] of ^Integer;
  B : array [1..m] of ^Integer;

begin
  Summ := 0;
  Randomize();
  WriteLn('Исходный массив');
  WriteLn;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      New(A[i,j]);
      A[i,j]^ := random(100) - 50;
      Write(A[i,j]^,' ');
    end;
    WriteLn;
  end;
  WriteLn;

  for i := 1 to n do
  begin
    New(B[i]);
    B[i]^ := 0;
  end;
  
  WriteLn('Массив В');
  WriteLn;
  for i := 1 to n do
  begin
    for j := 1 to m do
      if A[i,j]^ < 0 then
      Inc(B[i]^);
    Write(B[i]^,'  ');
    Summ := Summ + B[i]^;
  end;
  WriteLn;
  WriteLn;
  WriteLn('Сумма количества отрицательных элементов: ',Summ);
  ReadLn;
end.

S0S

Дата 28.11.2008, 22:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Ofer спасибо респект

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