Помощь - Поиск - Пользователи - Календарь
Полная версия: Заполняем массив...
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
comanche
22.03.2006 1:41
Элементарное задание: заполнил двумерный массив при помощи процедуры дробными числами, вывел на экран числа.
После заполнения пытаюсь получить доступ к элементам массива, а он пустой mega_chok.gif

Код
Program Exercise;
Uses
  CRT;

Type
  TArray2D = Array [1..9, 1..9] OF Single;

Procedure FillArray2D(Array2D: TArray2D);
    var
      i, x: Byte;
    begin
      WriteLn('  þ Initial array:');
      WriteLn;
      For i := 1 To 9 Do
        For x := 1 To 9 Do
          begin
            Array2D[i, x] := Random(90)+10;
            Write(Array2D[i, x]:4:0);
            if x mod 9 = 0 Then WriteLn;
          end;
    end;

Var

  FracNums: TArray2D;

Begin

  ClrScr;
  FillArray2D(FracNums);
  WriteLn;
  WriteLn(FracNums[5, 5]:4:0); {вот здесь и начинаются приколы}
  ReadKey;

End.
arhimag
22.03.2006 2:11
Program Exercise;
Uses
  CRT;

Type
  TArray2D = Array [1..9, 1..9] OF single;

Procedure FillArr(var Array2: TArray2D);
    var
      i, x: integer;
    begin
      randomize;
      WriteLn('  ? Initial array:');
      WriteLn;
      For i := 1 To 9 Do
        For x := 1 To 9 Do
          begin
            Array2[i, x] := Random(90)+10;
            Write(Array2[i, x]);
            if x mod 9 = 0 Then WriteLn;
          end;
    end;

Var

  FracNums: TArray2D;

Begin

  ClrScr;
  FillArr(FracNums);
  WriteLn;
  WriteLn(FracNums[1, 1]); {вот здесь и начинаются приколы}
  ReadKey;

End.
comanche
22.03.2006 2:23
Точно. Спасибо smile.gif
мисс_граффити
22.03.2006 2:24
почему ты их считаешь дробными?
comanche
22.03.2006 2:49
Да задание такое дали, с дробными числами. Это всего лишь его начало smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.