1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем Diunamis, 8 апр 2010.

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

    Diunamis Гость

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

    hosm * so what *

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

    Diunamis Гость

    Репутация:
    0
    Подскажите в чем ошибка.Программа не работает

    Код:
    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 :-]

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

    Код:
     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 Больной Компом Детектед

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

    VahaC Well-Known Member

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

    Вложения:

    • Arrays.zip
      Размер файла:
      19 КБ
      Просмотров:
      7
Загрузка...
Статус темы:
Закрыта.

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