Код с ошибкой, Error: Found declaration, Error: Wrong number of parameters specified for call - Pascal - Ответ 12459889

@mishneg · Регистрация: 08.06.2018

Студворк — интернет-сервис помощи студентам

Задние: Заполнить двумерный массив случайными числами. Размерность массива и диапазон генерации вводятся с клавиатуры. Составить программу, которая подсчитывает сумму всех элементов массива. Затем организовать формирование нового массива С, в котором элементы, лежащие не на главной диагонали, равны 1, а остальные элементы равны соответствующим элементам исходного массива С
Код;

Pascal

procedure random (c, x, y:integer; var r:integer);
  begin
     case c of
                1: r:=Random((y)+(x)+1)+x;
                2: r:=Random((y)+(x)+1)+y;
                3: r:=Random(Y-x+1)+x;
                4: r:=Random(x-y+1)+y;
                5: r:=Random(x+y);
                6: r:=Random((x+y))-(x+y);
                7: r:=x;
                8: r:=Random(((x)-(y)))-(x);
                9: r:=Random(((x)-(y)))-(y);
        end;
   end;
var
  a,b: array of array of integer;
  i,j,x,y,c,m,p,sum:integer;  
begin
Randomize;
sum:=0;
writeln('Кол-во строк и столбцов массива? //X,Y\\  ');
read(i,j); //Размерность массива
writeln('Диапазон чисел //от X,до Y\\ '); 
read(x,y); //и диапазон генерации вводятся с клавиатуры.
if (x=y) then
c:=7
else
if(x<0) and (y<0) then 
if (x<y) then 
c:=8
else
c:=9
else
if (x=0) or (y=0) then 
if(x<0) or (y<0) then 
c:=6
else
c:=5
else
if(x<0) or (y<0) then 
if (x<y) then 
c:=1
else 
c:=2
else
if (x<y) then 
c:=3
else 
c:=4;
SetLength(a,i);
for  m:=0 to i-1 do
  SetLength(a[m],j);
  SetLength(b,i);
  for  m:=0 to i-1 do
  SetLength(b[m],j);    
for  m:=0 to i-1 do begin  
writeln();
     for  p:=0 to j-1 do   begin                     
     random(c,x,y,a[m,p]);    //Заполнить двумерный массив случайными числами.
 sum:=sum+a[m,p];  //вычисляет сумму всех элементов массива
          write (a[m,p]:3,' ':3);
           end; 
         end;  
        c:=0;   
        writeln('Сумма =',sum);  
 for  m:=0 to i-1 do begin //новый массив С//
writeln();
     for  p:=0 to j-1 do  begin            
 if (a[m,p] <0) then          begin  
       b[m,p]:=1; //в котором заменить отрицательные элементы исходного массива на 1        
   end       
   else         
  b[m,p]:=a[m,p]; //а значения остальных элементов оставить без изменения 
   write(b[m, p]:3, ' ':3);      
  end;         
 end;         
 writeln('kol=',c);        
  a:=NIL;          
b:=NIL;     
end.

Ошибка:
fpc "56.pas" (в каталоге: /home/misha)
Free Pascal Compiler version 3.0.4+dfsg-18 [2018/04/22] for x86_64
Copyright (c) 1993-2017 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling 56.pas
56.pas(5,23) Error: Wrong number of parameters specified for call to "random"
56.pas(2,11) Error: Found declaration: random(SmallInt;SmallInt;SmallInt;var SmallInt);
56.pas(6,23) Error: Wrong number of parameters specified for call to "random"
56.pas(2,11) Error: Found declaration: random(SmallInt;SmallInt;SmallInt;var SmallInt);
56.pas(7,23) Error: Wrong number of parameters specified for call to "random"
56.pas(2,11) Error: Found declaration: random(SmallInt;SmallInt;SmallInt;var SmallInt);
56.pas(8,23) Error: Wrong number of parameters specified for call to "random"
56.pas(2,11) Error: Found declaration: random(SmallInt;SmallInt;SmallInt;var SmallInt);
56.pas(9,23) Error: Wrong number of parameters specified for call to "random"
56.pas(2,11) Error: Found declaration: random(SmallInt;SmallInt;SmallInt;var SmallInt);
56.pas(10,23) Error: Wrong number of parameters specified for call to "random"
56.pas(2,11) Error: Found declaration: random(SmallInt;SmallInt;SmallInt;var SmallInt);
56.pas(12,23) Error: Wrong number of parameters specified for call to "random"
56.pas(2,11) Error: Found declaration: random(SmallInt;SmallInt;SmallInt;var SmallInt);
56.pas(13,23) Error: Wrong number of parameters specified for call to "random"
56.pas(2,11) Error: Found declaration: random(SmallInt;SmallInt;SmallInt;var SmallInt);
56.pas(82) Fatal: There were 16 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode
Сборка завершилась с ошибкой.

Вернуться к обсуждению:
Код с ошибкой, Error: Found declaration, Error: Wrong number of parameters specified for call Pascal

Следующий ответ

Другие темы раздела
Pascal Найти целые числа, которые делятся на 5 от 10 до 150 https://www.cyberforum.ru/ pascal/ thread2261111.html Найти целые числа, которые делятся на 5 от 10 до 150 помогите решить задание с помощью цикла WHILE.	Pascal Получить действительную матрицу Пожалуйста, помогите.. срочно нужен ответ. Заранее спасибо!!! даны действительные числа a1,a2,..,a10,b1,b2,..,b20. Получить действительную матрицу i=1,..,20; j=1,..,10. для которой Cij=(\|aj\|+\|bi\|).
Pascal Удалить заданную часть строки и определить длину полученной строки https://www.cyberforum.ru/ pascal/ thread2260851.html Дана строкой длиной до 40 символов. Используя функции по работе с символьными переменными, удалить часть строки и определить длину полученной строки. Вывести ее на экран. Количество удаляемых символов и номер символа, с которого следует удалять, ввести с клавиатуры. Помогите пожалуйста	Pascal Решение задач циклом for https://www.cyberforum.ru/ pascal/ thread2260809.html Program Practica_esep2; var i,j,k: integer; begin k:=1; repeat readln(j); k:=k*j; i:=i+1; until i>=10; writeln('произведение чисел: = ',k);
Pascal Функция пользователя и определение MIN функции Задали сделать задачу Pascal, не могу понять как её сделать... Если можете помогите решить или скиньте ссылки на обучающие статьи/уроки по этой теме, буду очень благодарен) Заранее спасибо))) Задача: Создать функцию пользователя и определить MIN функции Y=еcosx, x=0.7(0.5)2.7	Pascal Применение стека в программе Произвести проверку соблюдения баланса операторов REPEAT UNTIL в тексте программы на языке Паскаль. Использовать программный стек. Нашёл схожую программу и попытался сделать по аналогии, но не вышло. Помогите найти и исправить ошибки. type stack = record data : array of char; size : longint; end; https://www.cyberforum.ru/ pascal/ thread2259642.html
Pascal Умножить отрицательные элементы матрицы на константу По умножению отрицательных элементов матрицы на константу. Матрица размером 20Х20 считывается из файла, результат записывается в этот же файл. https://www.cyberforum.ru/ pascal/ thread2259566.html	Среднее арифметическое чётных элементов массива Pascal Даны целые числа a1,...,a10. Найдите среднее арифметическое чётных элементов массива.
Pascal Вывод информации о маршрутах Определить запись с именем TMarsh, который содержит следующие поля:  название начального пункта маршрута;  название конечного пункта маршрута;  номер маршрута. Я просто ищу подобные темы в разделе паскаля,если есть у вас литература или что-то подобное до этого задания на данном языке,то буду благодарен за помощь. https://www.cyberforum.ru/ pascal/ thread2259306.html	Pascal Реализации Эйлерова цикла Нужно Исправить (доработать) программу пожалуйстаconst maxn = 100; var e,was:arrayof longint; ne:arrayof longint; stack:arrayof longint; i,n,m,u,v,top:longint; ok:boolean; begin https://www.cyberforum.ru/ pascal/ thread2258862.html
Pascal Имеется список N учеников, Имеется список N учеников, сдававших переводные экзамены по 5 предметам (фамилия, название предмета, оценки). Напечатать фамилии тех, кто остался "на осень" (то есть те, кто получил 1—2 двойки), кто остался на второй год (больше двух двоек), кто сдал все экзамены на "отлично".Имеется похожая задача что в ней сделать чтоб она работала как в моем условии type pupil=record surname:String; ...	Pascal Палиндромы. Создать новую строку – исходную в обратном порядке... Дана строка символов. Создать новую строку – исходную в обратном порядке. Проверить, является ли данная строка палиндромом (Например, «шалаш»). Порядок ввода исходных данных: - исходная строка. Порядок вывода результатов: - новая строка и слово «палиндром» или «не палиндром». https://www.cyberforum.ru/ pascal/ thread2258432.html