С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
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
0

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

29.05.2014, 16:39. Просмотров 3075. Ответов 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
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2014, 16:39
Готовые ответы и решения:

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

Заполнить двумерный массив 4 на 4 случайными значениями так, чтобы его элементы были симметричны главной диагонали.
Заполнить двумерный массив 4 на 4 случайными значениями так, чтобы его элементы...

Дан двумерный массив, заполнить его случайными числами и найти сумму элементов, имеющих нечетное значение
Подскажите, сам никак не могу врубиться (( Дан двумерный массив из целых...

Дан двумерный массив A[5,6]. Заполнить его случайными числами в промежутке от 30 до 100, сравнить суммы элементов столбцов, вывести сумму наибольшего
Дан двумерный массив A. Заполнить его случайными числами в промежутке от 30 до...

Создать вещественный массив из 10 000 чисел , заполнить его случайными числами в диапазоне от 0 до 1 . Вычислить
Создать вещественный массив из 10 000 чисел , заполнить его случайными числами...

12
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru