IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Немогу понять какие матрицы нужны программе!
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 55
Пол: Мужской

Репутация: -  -1  +


Есть программа.....немогу сообразить какие матрицы с какими елементами (как именно их описать в блокноте) нужны етой программе что б она их открыла и зделала соответствующие пробразования?????
program umblok;
uses crt;
type mas=array[1..7,1..7] of integer;
var
m,n,k,i,j,p,s,r,l,l1,kk,w,g,t,SA11,SA12,SA21,SA22,SB11,SB12,SB21,SB22:integer;
a,b,c,d:mas;
A11,A12,A21,A22,B11,B12,B21,B22:mas;
z1,z2:boolean;
c01,c02,c03,c04,c05,c06,c07,c08:mas;
c11,c12,c21,c22:mas;
t1:text;
name1:string;

procedure vvod;
var tv:text;
name:string;
begin
writeln('vvedi imya faila');
readln(name);
assign(tv,name);
reset(tv);
for i:=1 to m do
begin
for j:=1 to n do
read(tv,a[i,j]);
readln(tv);
end;
readln(tv);
for i:=1 to n do
begin
for j:=1 to k do
read(tv,b[i,j]);
readln(tv);
end;
close(tv);
end;

procedure viv(d:mas;kstrd,kstd:integer);
begin
for i:=1 to kstrd do
begin
for j:=1 to kstd do
write(t1,d[i,j],' ');
writeln(t1);
end;
writeln(t1);
end;

procedure umnog(X,Y:mas;mx,kx,nx:integer;var Z:mas);
begin
for i:=1 to mx do
for j:=1 to kx do
begin
s:=0;
for p:=1 to nx do
s:=s+X[i,p]*Y[p,j];
z[i,j]:=s;
end;
end;

procedure viv_c;
var t:text;
name:string;
begin
writeln('vvedi imya faila ');
readln(name);
assign(t,name);
append(t);
writeln(t,' matrica c:');
writeln(t);
for i:=1 to m do
begin
for j:=1 to k do
write(t,c[i,j]:4);
writeln(t);
end;
close(t);
end;

procedure razbien(aa:mas;i1,i2,j1,j2,k,l:integer;var d:mas);
begin
for i:=i1 to i2 do
for j:=j1 to j2 do
d[i-k,j-l]:=aa[i,j];
end;

procedure vivnaek(x:mas;n1,m1:integer);
begin
for i:=1 to n1 do
begin
for j:=1 to m1 do
write(x[i,j]:4);
writeln;
end;
end;

procedure nulmatr(x:mas;n1,m1:integer; var s:integer);
begin
s:=0;
for i:=1 to n1 do
for j:=1 to m1 do
s:=s+x[i,j];
end;

begin
m:=6;
n:=7;
k:=6;
clrscr;
writeln('vvod el-tov matr.A i B:');

vvod;

writeln(' matrica a:');
for i:=1 to m do
begin
for j:=1 to n do
write(' ',a[i,j]);
writeln;
end;

writeln(' matrica b:');
for i:=1 to n do
begin
for j:=1 to k do
write(' ',b[i,j]); writeln;
end;

for i:=1 to m do
for j:=1 to k do
c[i,j]:=0;
readln;

razbien(a,1,2,1,4,0,0,A11);
writeln('matrica A11');
vivnaek(A11,2,4);
razbien(a,1,2,5,7,0,4,A12);
writeln('matrica A12');
vivnaek(A12,2,3);
razbien(a,3,6,1,4,2,0,A21);
writeln('matrica A21');
vivnaek(A21,4,4);
razbien(a,3,6,5,7,2,4,A22);
writeln('matrica A22');
vivnaek(A22,4,3);
readln;
razbien(b,1,4,1,3,0,0,B11);
writeln('matrica B11');
vivnaek(B11,4,3);
razbien(b,1,4,4,6,0,3,B12);
writeln('matrica B12');
vivnaek(B12,4,3);
razbien(b,5,7,1,3,4,0,B21);
writeln('matrica B21');
vivnaek(B21,3,3);
razbien(b,5,7,4,6,4,3,B22);
writeln('matrica B22');
vivnaek(B22,3,3);
readln;

nulmatr(A11,2,4,SA11);
writeln('SA11=',SA11:3);
nulmatr(A12,2,3,SA12);
writeln('SA12=',SA12:3);
nulmatr(A21,4,4,SA21);
writeln('SA21=',SA21:3);
nulmatr(A22,4,3,SA22);
writeln('SA22=',SA22:3);
nulmatr(B11,4,3,SB11);
writeln('SB11=',SB11:3);
nulmatr(B12,4,3,SB12);
writeln('SB12=',SB12:3);
nulmatr(B21,3,3,SB21);
writeln('SB21=',SB21:3);
nulmatr(B22,3,3,SB22);
writeln('SB22=',SB22:3);

z1:=false; z2:=false;
if (SA11<>0) and (SB11<>0) then
begin
umnog(A11,B11,2,3,4,c01);
z1:=true;
end;
if (SA12<>0) and (SB21<>0) then
begin
umnog(A12,B21,2,3,3,c02);
z2:=true;
end;
if (z1=true) and (z2=true) then
begin
for i:=1 to 2 do
for j:=1 to 3 do
c11[i,j]:=c01[i,j]+c02[i,j];
end;
if (z1=true) and (z2=false) then
begin
for i:=1 to 2 do
for j:=1 to 3 do
c11[i,j]:=c01[i,j];
end;
if (z1=false) and (z2=true) then
begin
for i:=1 to 2 do
for j:=1 to 3 do
c11[i,j]:=c02[i,j];
end;
writeln('matrica c11');
vivnaek(c11,2,3);

z1:=false; z2:=false;
if (SA11<>0) and (SB12<>0) then
begin
umnog(A11,B12,2,3,4,c03);
z1:=true;
end;
if (SA12<>0) and (SB22<>0) then
begin
umnog(A12,B22,2,3,3,c04);
z2:=true;
end;
if (z1=true) and (z2=true) then
begin
for i:=1 to 2 do
for j:=1 to 3 do
c12[i,j]:=c03[i,j]+c04[i,j];
end;
if (z1=true) and (z2=false) then
begin
for i:=1 to 2 do
for j:=1 to 3 do
c12[i,j]:=c03[i,j]
end;
if (z1=false) and (z2=true) then
begin
for i:=1 to 2 do
for j:=1 to 3 do
c12[i,j]:=c04[i,j];
end;
writeln('matrica c12');
vivnaek(c12,2,3);

z1:=false; z2:=false;
if (SA21<>0) and (SB11<>0) then
begin
umnog(A21,B11,4,3,4,c05);
z1:=true;
end;
if (SA22<>0) and (SB21<>0) then
begin
umnog(A22,B21,4,3,3,c06);
z2:=true;
end;
if (z1=true) and (z2=true) then
begin
for i:=1 to 4 do
for j:=1 to 3 do
c21[i,j]:=c05[i,j]+c06[i,j];
end;
if (z1=true) and (z2=false) then
begin
for i:=1 to 4 do
for j:=1 to 3 do
c21[i,j]:=c05[i,j]
end;
if (z1=false) and (z2=true) then
begin
for i:=1 to 4 do
for j:=1 to 3 do
c21[i,j]:=c06[i,j];
end;
writeln('matrica c21');
vivnaek(c21,4,3);

z1:=false; z2:=false;
if (SA21<>0) and (SB12<>0) then
begin
umnog(A21,B12,4,3,4,c07);
z1:=true;
end;
if (SA22<>0) and (SB22<>0) then
begin
umnog(A22,B22,4,3,3,c08);
z2:=true;
end;
if (z1=true) and (z2=true) then
begin
for i:=1 to 4 do
for j:=1 to 3 do
c22[i,j]:=c07[i,j]+c08[i,j];
end;
if (z1=true) and (z2=false) then
begin
for i:=1 to 4 do
for j:=1 to 3 do
c22[i,j]:=c07[i,j];
end;
if (z1=false) and (z2=true) then
begin
for i:=1 to 4 do
for j:=1 to 3 do
c22[i,j]:=c08[i,j];
end;
writeln('matrica c22');
vivnaek(c22,4,3);

for i:=1 to 2 do
for j:=1 to 3 do
begin
c[i,j]:=c11[i,j];
c[i,j+3]:=c12[i,j];
end;
for i:=1 to 4 do
for j:=1 to 3 do
begin
c[i+2,j]:=c21[i,j];
c[i+2,j+3]:=c22[i,j];
end;
readln;
writeln('matrica c');
vivnaek(c,6,6);
writeln('vvedi imya faila rezult');
readln(name1);
assign(t1,name1);
rewrite(t1);
writeln('rezult');
writeln(t1,'matrica C11');
viv(C11,2,3);
writeln(t1,'matrica C12');
viv(C12,2,3);
writeln(t1,'matrica C21');
viv(C21,4,3);
writeln(t1,'matrica C22');
viv(C22,4,3);
close(t1);
viv_c;
readln;
end.
Какого вида елементы использывать в етой матрице???Есть несколько вариантов!!!!!
1) 0.1, 0,2 и т.д.(десятичные)
2) 1 2 4 и т.д. (целые).
Или как то иначе!!!Помогите !!!!Если нужны матрицы - скажите я выложу!!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Вообще-то, матрицы A и B, которые и вводятся из файла, описаны как
type mas=array[1..7,1..7] of integer;
, значит - целочисленные...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 55
Пол: Мужской

Репутация: -  -1  +


Цитата(volvo @ 24.11.2007 17:23) *
Вообще-то, матрицы A и B, которые и вводятся из файла, описаны как
type mas=array[1..7,1..7] of integer;
, значит - целочисленные...
VOLVO такие матрицы подойдут???
A
2 3 0 0 0 0
4 0 5 7 0 0
0 2 0 3 9 0
0 0 7 0 1 0
0 0 0 4 0 6



B
5 3 0 0 0 0 0	
8 0 2 4 0 0 0
0 6 0 9 7 0 0
0 0 7 0 8 0 0
0 0 0 4 0 5 0
0 0 0 0 0 0 6



Если да, то не подскажеш почему при вводе имени файла, так как требуется при запуске программы мне выдает ошибку file not found в следующей части программы (reset(tv);)!!!!
procedure vvod;
var tv:text;
name:string;
begin
writeln('vvedi imya faila');
readln(name);
assign(tv,name);
reset(tv);
for i:=1 to m do
begin
for j:=1 to n do
read(tv,a[i,j]);
readln(tv);
end;
readln(tv);
for i:=1 to n do
begin
for j:=1 to k do
read(tv,b[i,j]);
readln(tv);
end;
close(tv);
end;


Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Цитата
почему при вводе имени файла, так как требуется при запуске программы мне выдает ошибку file not found
Не знаю... Только что запустил программу с твоими данными, никакой ошибки не получил...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Пионер
**

Группа: Пользователи
Сообщений: 55
Пол: Мужской

Репутация: -  -1  +


Цитата(volvo @ 24.11.2007 17:56) *

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

У меня тоже запустилось!!!!! Если что будет не понятно спрошу!!!!Спасибо огромное за помощь!!!!!

Сообщение отредактировано: metamfetamin -


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Пионер
**

Группа: Пользователи
Сообщений: 55
Пол: Мужской

Репутация: -  -1  +


Цитата(volvo @ 24.11.2007 17:56) *

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


немогу понять что в данной программе обозначают строки выделеные цветом.и каким образом ети цыфры влияют на перемещение елементов в матрице в зависимости от их меняется елемент в строке(столбце)!!!!
razbien(a,1,2,1,4,0,0,A11);
writeln('matrica A11');
vivnaek(A11,2,4);
razbien(a,1,2,5,7,0,4,A12);
writeln('matrica A12');
vivnaek(A12,2,3);
razbien(a,3,6,1,4,2,0,A21);
writeln('matrica A21');
vivnaek(A21,4,4);
razbien(a,3,6,5,7,2,4,A22);
writeln('matrica A22');
vivnaek(A22,4,3);
readln;
razbien(b,1,4,1,3,0,0,B11);
writeln('matrica B11');
vivnaek(B11,4,3);
razbien(b,1,4,4,6,0,3,B12);
writeln('matrica B12');
vivnaek(B12,4,3);
razbien(b,5,7,1,3,4,0,B21);
writeln('matrica B21');
vivnaek(B21,3,3);
razbien(b,5,7,4,6,4,3,B22);
writeln('matrica B22');
vivnaek(B22,3,3);
readln;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 30.10.2020 6:23
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name