Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Vera_Ivanova
0 / 0 / 0
Регистрация: 30.05.2015
Сообщений: 6
1

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

01.06.2015, 19:11. Просмотров 158. Ответов 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
Ответы с готовыми решениями:

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

Переделать функцию в процедуру
Помогите переделать в программе функцию в процедуру (если нужно условие...

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

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

Через процедуру поменять первые элементы столбцов матрицы с минимальными элементами строк матрицы
var b:matrix; i, j, jmin: integer; k:char; Procedure App (var...

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4148 / 2742 / 2172
Регистрация: 22.11.2013
Сообщений: 7,661
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

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

Используя процедуру, отсортировать строки матрицы
Результаты выводить различным цветом. само задание: Создать матрицу А. Если...

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


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

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

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