Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 16.10.2018
Сообщений: 45
1

Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру

16.10.2018, 20:00. Просмотров 1070. Ответов 1
Метки нет (Все метки)

Оформить с использованием функций и процедур.
Нахождение основных значений оформить через функцию, а вывод
на печать – через процедуру.
Код Матрица, которая переставляет места столбцы четных на нечетные.

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
29
30
31
32
33
34
const
  n = 6;
 
var
  a: array[1..n, 1..n] of byte;
  i, j, k, x: byte;
 
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := (i - 1) * n + j;
      write(a[i, j]:3);
    end;
    writeln;
  end;
  k := 1;
  while k < n * n do
  begin
    x := a[(k - 1) div n + 1, (k - 1) mod n + 1];
    a[(k - 1) div n + 1, (k - 1) mod n + 1] := a[k div n + 1, k mod n + 1];
    a[k div n + 1, k mod n + 1] := x;
    k := k + 2;
  end;
  writeln;
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:3);
    writeln;
  end;
  
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2018, 20:00
Ответы с готовыми решениями:

Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру
Оформить с использованием функций и процедур. Нахождение основных значений оформить через функцию,...

Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру
Код программы: const n=6; var a:array of byte; i,j,k,x:byte; begin for i:=1 to n do ...

Нахождение основных значений оформить через функцию, а вывод на печать – через процедуру
Дана квадратная вещественная матрица размерности n. Построить матрицу вектор (одномерный массив)...

Нахождение основных значений оформить через функцию RESHENIE(), ввод данных и вывод на печать через функцию MAIN()
а помогите теперь эту задачку #include &lt;iostream&gt; int main() { int last = 0, next = 1; ...

__________________
1
Модератор
63328 / 47042 / 32425
Регистрация: 18.05.2008
Сообщений: 114,028
17.10.2018, 11:16 2
Лучший ответ Сообщение было отмечено MaFros как решение

Решение

А у Вас просто АВС или АВС.net?

Добавлено через 15 минут
Для простого.
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
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
const  n = 6;
type mtr=array[1..n, 1..n] of byte;
function matrix:mtr;
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
result[i,j]:=(i-1)*n+j;
end;
function obmen(a:mtr):mtr;
var k,x:byte;
begin
k:=1;
while k<n*n do
 begin
  x:=a[(k - 1) div n + 1, (k - 1) mod n + 1];
  result[(k - 1) div n + 1, (k - 1) mod n + 1] := a[k div n + 1, k mod n + 1];
  result[k div n + 1, k mod n + 1] := x;
  k := k + 2;
 end;
end;
procedure vyvod(a:mtr;s:string);
var i,j:byte;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end;
var a:mtr;
begin
a:=matrix;
vyvod(a,'Исходная матрица');
a:=obmen(a);
vyvod(a,'Обмен столбцов');
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2018, 11:16

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Оформить программу через процедуру
Срочно помогите оформить программу как через процедуру,буду благодарна const n = 20; m = 40; ...

Оформить программу через процедуру
Помогите оформить через процедуру program lab1; var x:array of real; n,m,i,j:integer;...

Оформить нахождение максимального числа как процедуру, а так же сделать вывод всех результатов в текстовый файл
Здравствуйте! Помогите, пожалуйста. Есть вот такой код. В нм надо нахождение максимального числа...

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

Оформить через функцию
var s: string; sum: integer; num,p: integer; numstr: string; begin ...


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

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

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