Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Egor.S
100 / 99 / 45
Регистрация: 02.10.2011
Сообщений: 499
#1

Записать элементы нечетных строк матрицы в обратном виде - Free Pascal

26.01.2012, 10:26. Просмотров 428. Ответов 7
Метки нет (Все метки)

Нашел на форуме задачу, котоорая записывает элементы нечетных строк в обратном виде в комплексной матрице.
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
unit unit1;
interface
const n=5;
type complex=record
             re,im:real;
             end;
     strok=array[1..n]of complex;
     matr=array[1..n] of strok;
procedure Chislo(var f:complex);
procedure Vvod(var a:matr);
procedure Vyvod(a:matr;s:string);
procedure Revers(var a:strok);
implementation
procedure Chislo(var f:complex);
begin
if f.im<0 then write(f.re:6:2,' -',-f.im:0:2,'i  ')
else write(f.re:6:2,' +',f.im:0:2,'i  ');
end;
procedure Vvod(var a:matr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
 begin
  a[j].re:=10*random-4;
  a[j].im:=10*random-4;
 end;
end;
procedure Vyvod(a:matr;s:string);
var i,j:byte;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
  Chislo(a[j]);
  writeln;
 end;
writeln;
end;
procedure Revers(var a:strok);
var i:byte;
    x:complex;
begin
for i:=1 to n div 2 do
 begin
  x:=a;
  a:=a[n-i+1];
  a[n-i+1]:=x;
 end;
end;
 
uses crt,unit1;
var  a:matr;
     i:byte;
begin
randomize;
Vvod(a);
Vyvod(a,'Исходная матрица:');
for i:=1 to n do
if odd(i)then Revers(a);
Vyvod(a,'Измененная матрица:');
end.
А для того чтобы она работала с четными рядами нужно изменить в процедуре риверс div на mod ?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2012, 10:26
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Записать элементы нечетных строк матрицы в обратном виде (Free Pascal):

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

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

Записать элементы каждого столбца матрицы в обратном порядке
вот еще перечень (вроде не сложных задач)..прошу помочь! 1)Записать элементы...

Записать элементы каждого столбца матрицы в обратном порядке
26 L(5,6) Записать элементы каждого столбца матрицы в обратном порядке.

Упорядочить элементы нечетных строк матрицы А по убыванию значений
3) упорядочить элементы нечетных строк матрицы А по убыванию значений;...

Записать элементы массива в обратном порядке
Записать елементы массива А(n) в обратном порядке Добавлено через 15 секунд...

7
Puporev
Модератор
54136 / 41769 / 28880
Регистрация: 18.05.2008
Сообщений: 98,311
26.01.2012, 11:36 #2
Цитата Сообщение от Egor.S Посмотреть сообщение
А для того чтобы она работала с четными рядами нужно изменить в процедуре риверс div на mod ?
В процедуре ничего менять не нужно, ей пофиг четная строка или нет.
Менять нужно в программе
Pascal
1
2
for i:=1 to n do
if i mod 2=0 then Revers(a);//четный номер строки
0
Egor.S
100 / 99 / 45
Регистрация: 02.10.2011
Сообщений: 499
26.01.2012, 14:56  [ТС] #3
не компилируется
0
Puporev
Модератор
54136 / 41769 / 28880
Регистрация: 18.05.2008
Сообщений: 98,311
26.01.2012, 15:06 #4
В каком Паскале не компилируется? Или ты думаешь что все Паскали одинаковые?
0
Egor.S
100 / 99 / 45
Регистрация: 02.10.2011
Сообщений: 499
26.01.2012, 15:08  [ТС] #5
free pascal
0
Puporev
Модератор
54136 / 41769 / 28880
Регистрация: 18.05.2008
Сообщений: 98,311
26.01.2012, 15:09 #6
Еще и кто-то напакостил в коде..
0
Egor.S
100 / 99 / 45
Регистрация: 02.10.2011
Сообщений: 499
26.01.2012, 15:13  [ТС] #7
я ничего не трогал)
0
Puporev
Модератор
54136 / 41769 / 28880
Регистрация: 18.05.2008
Сообщений: 98,311
26.01.2012, 15:14 #8
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Модуль.

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
41
42
43
44
45
46
47
48
49
50
51
52
unit unit1;
interface
const n=5;
type complex=record
             re,im:real;
             end;
     strok=array[1..n]of complex;
     matr=array[1..n] of strok;
procedure Chislo(var f:complex);
procedure Vvod(var a:matr);
procedure Vyvod(a:matr;s:string);
procedure Revers(var a:strok);
implementation
procedure Chislo(var f:complex);
begin
if f.im<0 then write(f.re:6:2,' -',-f.im:0:2,'i  ')
else write(f.re:6:2,' +',f.im:0:2,'i  ');
end;
procedure Vvod(var a:matr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
 begin
  a[i,j].re:=10*random-4;
  a[i,j].im:=10*random-4;
 end;
end;
procedure Vyvod(a:matr;s:string);
var i,j:byte;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
  Chislo(a[i,j]);
  writeln;
 end;
writeln;
end;
procedure Revers(var a:strok);
var i:byte;
    x:complex;
begin
for i:=1 to n div 2 do
 begin
  x:=a[i];
  a[i]:=a[n-i+1];
  a[n-i+1]:=x;
 end;
end;
end.
Программа, уже для четных номеров строк.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt,unit1;
var  a:matr;
     i:byte;
begin
clrscr;
randomize;
Vvod(a);
Vyvod(a,'Исходная матрица:');
for i:=1 to n do
if i mod 2=0 then Revers(a[i]);
Vyvod(a,'Измененная матрица:');
readln
end.
А ссылку можешь дать где это взял, я посмотрю и исправлю.
0
26.01.2012, 15:14
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.01.2012, 15:14
Привет! Вот еще темы с решениями:

Записать элементы массива в обратном порядке
Записать елементы массива А(n) в обратном порядке ПОМОГИТЕ РЕШИТЬ))))!!!

Используя процедуры и функции из целочисленной матрицы А (n x m) получить вектор, состоящий из номеров минимальных нечетных элементов строк матрицы
поможете сделать? Используя процедуры и функции из целочисленной матрицы А (n...

Расположить элементы матрицы в обратном порядке
Дан массив x из n элементов. a) Расположить его элементы в обратном порядке....

Сортировка нечетных строк матрицы по возрастанию - блок-схема
i:=1; while i&lt;=n do begin if odd (i) then for j:=1 to n-1 do for...


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

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

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