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

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Vera_Ivanova
0 / 0 / 0
Регистрация: 30.05.2015
Сообщений: 6
#1

Переделать вывод матрицы в процедуру - Pascal

01.06.2015, 19:11. Просмотров 146. Ответов 1
Метки нет (Все метки)

Пишу Вам второй раз. После прошлого вопроса прошло не так много времени ,но я уже что-то стала понимать. Делала лабу,вроде работает ,но преподаватель сказал " Переделать вывод матрицы в процедуру " и тут у меня ступор.
Как это сделать ? Я уже битый час сижу с лекциями и ничего понять не могу. Помогите :С
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure laba(var a:massiv);
begin
WriteLn(' Введите размер квадратной матрицы::');
ReadLn(N);
for i:=0 to N-1 do
for j:=0 to N-1 do
begin
a[i,j]:=random(100);
end;
for i:=0 to N-1 do
begin
for j:=0 to N-1 do
Write(a[i,j]:N-1);
WriteLn;
end;
end;
Добавлено через 48 минут
Не актуально,сделала ,спасибо. С:
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2015, 19:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Переделать вывод матрицы в процедуру (Pascal):

Процедуру переделать в функцию - Pascal
Сделал прогу через процедуры, сказали не катит, переделывай, через функции, а я их толком не знаю... Условие задачи таковы: "Дано 2...

функцию переделать на процедуру - Pascal
ребята, пожалуйста помогите. Не могу решить задачу...помогите пожалуйста. Нужно с помощью процедур решаить: Ввести 4...

Опишите процедуру сложения матриц А и В. Опишите процедуру транспонирования матрицы А - Pascal
Опишите процедуру добавления матриц А и В. опишите процедуру транспонирования матрицы А. Опишите процедуру перемножения матриц А и В....

Через процедуру поменять первые элементы столбцов матрицы с минимальными элементами строк матрицы - Pascal
var b:matrix; i, j, jmin: integer; k:char; Procedure App (var a:matrix); begin clrscr; randomize; writeln('исходная...

Составить процедуру для получения из квадратной матрицы A(n,n), n<=6 матрицы B(n,n-1) путем вычеркивания элементов главной диагонали исходной - Pascal
Помогите пожалуйста составить процедуру для Паскаля: Составить процедуру для получения из квадратной матрицы A(n,n), n&lt;=6 матрицы...

Используя процедуру, отсортировать строки матрицы - Pascal
Результаты выводить различным цветом. само задание: Создать матрицу А. Если элемент матрицы на главной диагонали &gt; 0, то эту строку...

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3749 / 2446 / 1307
Регистрация: 22.11.2013
Сообщений: 6,796
02.06.2015, 12:47 #2
Для сравнения:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
  n=10;
type
  TMatr: array [0..n-1,0..n-1] of Integer;
 
procedure mRand(var m: TMatr);
var i, j: Integer;
begin
  for i:=0 to n-1 do
    for j:=0 to n-1 do
      a[i,j]:=Random(100);
end;
 
procedure mWrite(const a: TMatr);
var i, j: Integer;
begin
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do
      Write(a[i,j]:4);
    WriteLn;
  end;
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2015, 12:47
Привет! Вот еще темы с ответами:

Составить процедуру нахождения произведения матрицы А на матрицу B. - Pascal
Здравствуйте, уважаемые! Помогите пожалуйста с задачкой. Дана матрица A= размером mхn и матрица B размером mхn. Составить процедуру...

составить процедуру трансопирования TRANSPON прямоугольной матрицы А - Pascal
составить процедуру трансопирования TRANSPON прямоугольной матрицы А пожалуйста помогите

Написать процедуру,сортирующую столбцы матрицы по убыванию характеристик - Pascal
Помогите пожалуйста вот этот код надо переделать в процедуре) var a: array of integer; s: array of integer; ...

Составить процедуру нахождения индексов минимального элемента матрицы - Pascal
Здравствуйте, помогите решить задачу. Составить процедуру нахождения индексов минимального элемента квадратной матрицы. Используя...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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