Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
61 / 42 / 20
Регистрация: 28.09.2013
Сообщений: 193
1

Матрица

06.10.2013, 21:46. Просмотров 384. Ответов 0
Метки нет (Все метки)

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

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
Program n4;
uses Crt;
type
Matrix=array[1..10,1..10] of integer;
Vector=array[1..10] of integer;
 
Procedure Readinteger(x,y,l,h:integer; var I:integer);
var s:string; err:integer;
begin
repeat
window(x,y,x+3,y);
Clrscr;
readln(s);
val(s,i,err);
Until (err=0) and(i<=h)and(i>=l);
{x,y-koordinati, l,h-diapozon, I-celoe chislo}
write(i);
end;
 
 
Procedure Setka(n,m:integer);
var i,k:integer;
begin
write('Ъ');
for i:=1 to m-1 do write('ДДДДВ');                 // в тп выводится нормально
writeln('ДДДДї');
write('і');
for i:=1 to m-1 do write('    і');
writeln('    і');
for k:=1 to n-1 do
   begin
   write('Г');
   for i:=1 to m-1 do
   write('ДДДДЕ');
   writeln('ДДДДґ');
   write('і');
   for i:=1 to m-1 do write('    і');
   writeln('    і');
   end;
write('А');
for i:=1 to m-1 do
write('ДДДДБ');
write('ДДДДЩ');
end;
 
Procedure MyWindow(x1,y1,x2,y2,colortext,colorb:integer;title:string);
var x,y:integer;
begin
textcolor(colortext);
textbackground(colorb);
window(1,1,80,25);
Gotoxy(x1,y1); write('Й');
for x:=x1+1 to x2-1 do begin write('Н');  end;
Write('»');
Gotoxy(x1,y2);Write('И');
for x:=x1+1 to x2-1 do write('Н'); Write('ј');
for y:=y1+1 to y2-1 do
begin
Gotoxy(x1,y);Write('є');
Gotoxy(x2,y);Write('є');
end;
Gotoxy((x1+x2) div 2 - length(title)div 2,y1);
Write(title);
Window(x1+1,y1+1, x2-1,y2-1);
Clrscr;
end;
 
procedure Cs(a:Matrix; b:vector; n,m:integer; Var q:vector );
var i,j,k:integer;
begin
   for i:=1 to n do begin
   j:=1;
   while (j<=m) and (a[i,j]<>b[i]) do
   j:=j+1;
   if j>m then q[i]:=0
   else q[i]:=j;
 end;
end;
 
procedure Ds(a:Matrix; b:vector; n,m:integer; Var p:vector );
var i,j,s:integer;
begin
for i:=1 to n do
begin
  s:=0;
  for j:=1 to m do
  begin
     if a[i,j]=b[i] then s:=j;
      p[i]:=s;
    end;
    end;
end;
 
procedure WriteVector(x,y,n:integer; f:Vector);
 var i:integer;
 Begin
 Window(1,1,80,25);
 for i:=1 to n do
 begin
   GotoXY(x,y+i*2-1);    write(f[i]);
 end;
 End;
 
var i,j,n,m,t,w:integer;
a:Matrix;
b,c,d:Vector;
 
begin
MyWindow(1,1,80,24,white,blue,' L.R N 1 ');
MyWindow(3,3,77,8,white,blue,' AUTOR ');
Gotoxy(28,2);
Write('');
MyWindow(3,10,77,22,white,blue,'Problem');
Gotoxy(2,1);
Write('Dana matrica A(n*m) vbIvesti obratny10 eu` ');
ReadKey;
Delay(25);
MyWindow(1,1,80,24,white,blue,' L.R N 1 ');
MyWindow(4,4,74,10,white,blue,' Vvedite chiclo strok matrici А ');
readinteger(5,5,1,10,n);
MyWindow(4,14,74,20,white,blue,' Vvedite chiclo ctolbczov matrici А ');
readinteger(5,15,1,10,m);
Window(1,1,80,25);
Clrscr;
mywindow(1,1,80,24,white,blue,' L.R N 1 ');
setka(n,m);
for i:=1 to n do
  for j:=1 to m do
   readinteger(5*j-2,2*i+1,-99,999,a[i,j]);
window(30,2,80,24);
setka(n,m);
for  i:=1 to n do
begin
gotoxy(4,i*2);
for j:=M downto 1 do
begin
 write(a[i,j]);
   writeln;
end;
end;
readkey;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.10.2013, 21:46
Ответы с готовыми решениями:

Дана квадратная матрица А порядка n. Проверить, является ли матрица единичной.
Ребят,помогите решить задачу &quot;Дана квадратная матрица А порядка n. Проверить, является ли матрица...

Матрица
Если в заданной матрице A(N, N) есть хотя бы один элемент, больший ста, то элементы обеих...

Матрица
Задать матрицу 5*5. Найти скалярное произведение строки, содержащей наименьший элемент, на...

матрица
Задана матрица м на н 1. Поменять местами найбольший и наменьший елемент каждой строчки 2....

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.10.2013, 21:46

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

Матрица
Дана матрица B, N=5 M=3. Ввести элементы матрицы с клавиатуры. Оперделить минимальные и...

Матрица
Составить программу, которая создает и выводит на экран массив такого вида: 0 0 0 0 0 0 0...

Матрица
Привет, уважаемые программисты! Помогите написать программку , которая будет заполнять матрицу...

Матрица
Пусть дана действительная матрица размером n x m. Требуется преобразовать матрицу следующим...

Матрица
Помогите !!! Пожалуйста написать программу ... ни как не могу вехать в задание, для меня чот...

Матрица
Дана действительная квадратная матрица порядка n (n - нечетное), все элементы которой различны....


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

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

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