Форум программистов, компьютерный форум, киберфорум
Наши страницы

Создать динамический двумерный массив, заполнить его случайными цифрами, затем распечатать - Pascal ABC

Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Блок-схема процедур http://www.cyberforum.ru/pascalabc/thread1192615.html
program aueroport; uses SysUtils, Windows, CRT32; type airport=record number:integer;
Pascal ABC Построить график функции: y=3-2/x-3/x^2 Построить график функции: (y=3-2/x-3/x^2) y=3-\frac{2}{x}-\frac{3}{{x}^{2}} При написании программы учесть изменение начального и конечного значенияx, а так же шага, с которымx изменяется. ... http://www.cyberforum.ru/pascalabc/thread1192515.html
Установить на шахматной доске минимум ферзей (первоначально 8), чтобы каждое поле было под боем Pascal ABC
Доска (8*8). Требуется, чтобы программа выводила первоначально матрицу с 8-ью ферзями, затем с 7-ью и так уменьшала количество ферзей до тех пор пока не станет невозможно расставить ферзей так, чтобы...
Pascal ABC Нарисовать двух парашютистов
Нужно перед тем, как выводить результат(перед строкой "t2:=t1*sqrt(m1/m2);" вставить изображение двух падающих парашютистов. вот текст:program z1; uses crt; var x:integer; m1,m2,t1,t2:real;...
Pascal ABC Подсчитать площади десяти кругов http://www.cyberforum.ru/pascalabc/thread1192287.html
как решить вот эту задачу не подскажите подсчитать площади десяти кругов с радиусами от 1 см с шагом 2 см и вывести значения площадей на экран.
Pascal ABC Найти номер первого из столбцов, не содержащих ни одного отрицательного элемента Найти номер первого из столбцов, не содержащих ни одного отрицательного элемента. подробнее

Показать сообщение отдельно
Frip
3 / 3 / 1
Регистрация: 04.11.2013
Сообщений: 272

Создать динамический двумерный массив, заполнить его случайными цифрами, затем распечатать - Pascal ABC

29.05.2014, 16:39. Просмотров 2877. Ответов 12
Метки (Все метки)

Создать динамический двумерный массив, заполнить его случайными цифрами, затем распечатать.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program dinmas2;
uses crt;
type
 row =array[1..1] of integer;   
 prow=^row;
 mas = array[1..1] of prow;
 pmas=^ mas; 
var
  r: pmas;
  m, n: integer;         {count elements of array }
  i, j : integer; {index of array}
 begin
   write('количество строк массива');    readln(m);
   write('количество столбцов массива');   readln(n);
{$R-}    {set off control range of array}
  getmem(r,m*sizeof(prow));
  for i:=i to m do getmem(r^[i],n*sizeof(integer));
   for i:=i to m do
     begin writeln;
        for j:=1 to n do 
         begin    
          r^[i]^[j]:=random(10);
          write(r^ [i] ^ [j],'  '); 
         end;
    for i:=1 to n do freemem(r^[i], n*sizeof (integer));
      freemem(r,m*sizeof(prow)); 
      end;
     end.
Преподаватель дал такое задание, и к нему программу. Видимо, чтобы мы его отладили. Где-то недописана точка с запятой, где-то пробел не там, но это все по мелочи. Проблема идет в 5 строке. Паскаль пишет "Указатели на ссылочные типы недопустимы". Подскажите, что делать.
Заранее спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru