Двумерные массивы

Тема в разделе "Pascal and Delphi", создана пользователем Diunamis, 8 апр 2010.

Статус темы:
Закрыта.
  1. Diunamis

    Diunamis Гость

    Помогите , пожалуйста составить процудуру по нахождению номеров колонок двумерного массива С, которые содержат позитивные елементы! ! !
    M(номер рядка)=3, N(номер столбца)=5
    I=3, J=1
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    Переведите с суржика, подкорректируйте заголовок и ознакомьтесь с правилами раздела, куда попала тема...
     
  3. Diunamis

    Diunamis Гость

    Подскажите в чем ошибка.Программа не работает

    Код (Delphi):
    procedure TForm1.FormCreate(Sender: TObject);
    type
    mas=array[1..6,1..3] of real;
    const
    z:array[0..6,0..3]of string=
    (('Масив Q','Колонка1','Колонка2','Колонка3'),
    ('Рядок1','-2,1','-4,4','0,13'),
    ('Рядок2','-8,1','15','9,6'),
    ('Рядок3','5,3','0','15,3'),
    ('Рядок4','-1,4','3,5','0'),
    ('Рядок5','13,2','0','23'),
    ('Рядок6','0,2','1,2','-0,5'));
    var
    i,j:integer;
    Q:mas;
    begin
    for i:=0 to 6 do
    for j:=0 to 3 do
    Tabl.Cells[j,i]:=z[i,j];
    for i:=1 to 6 do
    for j:=1 to 3 do
    Q[i,j]:=StrToFloat(Tabl.Cells[j,i]);
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    type
    mas=array[1..6,1..3] of real;
    var
    i,j:integer;
    Q:mas;
    begin
    for i:=1 to 3 do
    for j:=1 to 6 do
    if Q[i,j]=0
    then
    begin
    Label3.Caption:=Label3.Caption+'Колонка'+IntToStr(i)+' ';
    Label3.Caption:=Label3.Caption+'Номер рядка'+IntToStr(j)+#13;

    end;
    end;
    end.
     
  4. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    И не будет работать.
    Q:mas;
    у вас идет как ЛОКАЛЬНАЯ переменная, а надо ГЛОБАЛЬНАЯ;
    ее надо обявить перед словом implementation, и убрать из процедур.
    Выглядит примерно так

    Код (Delphi):
     type
    mas=array[1..6,1..3] of real;

    const
    z:array[0..6,0..3]of string=
    (('Масив Q','Колонка1','Колонка2','Колонка3'),
    ('Рядок1','-2,1','-4,4','0,13'),
    ('Рядок2','-8,1','15','9,6'),
    ('Рядок3','5,3','0','15,3'),
    ('Рядок4','-1,4','3,5','0'),
    ('Рядок5','13,2','0','23'),
    ('Рядок6','0,2','1,2','-0,5'));

    var
    Form1: TForm1;
    Q:mas;
    implementation

    {$R *.dfm}

    ....
     
  5. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    Док, заслуживаешь памятник=)
     
  6. VahaC

    VahaC Well-Known Member

    Регистрация:
    10 янв 2007
    Сообщения:
    116
    Симпатии:
    0
    Вот держи рабочую прогу
     

    Вложения:

    • Arrays.zip
      Размер файла:
      19 КБ
      Просмотров:
      7
Загрузка...
Похожие Темы - Двумерные массивы
  1. Rpp
    Ответов:
    1
    Просмотров:
    811
  2. Малгано
    Ответов:
    0
    Просмотров:
    1.290
  3. 203
    Ответов:
    12
    Просмотров:
    2.449
  4. SchwarzeWolfin
    Ответов:
    3
    Просмотров:
    2.502
  5. Искушенный
    Ответов:
    0
    Просмотров:
    432
Статус темы:
Закрыта.

Поделиться этой страницей