Код | program labrab6; uses crt; label pechat,preobr,characteristic,menu; type matr = array[1..10,1..10] of integer; bi = array[1..10] of integer;
var a,b:matr; maxel,min,i,j,p,d,m,n,c,z,y:integer; max: bi; f:text; stroka,txtfile:string; txt,character:boolean; begin clrscr; stroka:=''; txt:=false; menu:clrscr; writeln('1. ‚ў®¤ ¬ ваЁжл б Є« ўЁ вгал'); writeln('2. ‚ў®¤ ¬ ваЁжл Ё§ д ©« '); writeln('3. ‚лзЁб«ҐЁҐ е а ЄвҐаЁбвЁЄЁ '); writeln('4. ЏаҐ®Ўа §®ў ЁҐ ¬ ваЁжл'); writeln('5. ЏҐз вм ¬ ваЁжл'); writeln('6. ‚л室'); writeln; readln(c); clrscr; if c=1 then begin writeln; writeln('N='); readln(n); for i:=1 to n do begin for j:=1 to n do begin write('a[',i,',',j,']= '); readln(a[i,j]); end; end; txt:=true; writeln('Complete!'); readln; goto menu; end; {-----------------------------------------} if c=2 then begin writeln('Write the file name'); readln(txtfile); assign(f,txtfile); reset(f); readln(f,n); for i:=1 to n do begin for j:=1 to n do read(f,a[i,j]); end; close(f); txt:=true; writeln('Txt file "',txtfile, '" was readen =) '); readln; goto menu; end; {-----------------------------------------}
if c=3 then begin
z:=1;
for j:=1 to n do begin; min:=a[1,j]; for i:=1 to n do Begin if (a[i,j]<min ) then min:=a[i,j] End; max[z]:=min; z:=z+1;
end;
maxel:=max[1]; for z:=1 to n do begin if maxel<max[z] then maxel:=max[z]; end; writeln('MAX final= ',maxel); if maxel<0 then begin writeln('(= (= (= All WORK =) =) =)'); character:=true; end else writeln('HET!!! =('); readln; goto menu; end;
{-----------------------------------------}
if c= 4 then begin
z:=1; d:=1 ; y:=0; For i:=n downto 1 do Begin; For j:=1 to n do Begin y:=A[j,i]; B[d,z]:= y; writeln(b[d,z]); z:=z+1; end; d:=d+1; End; writeln('___') ; min:=0;
for i:=1 to n do begin for j:=1 to n do begin min:=b[i,j]; a[i,j]:= min; writeln(a[i,j]); end; end; readln; goto menu; end; {-----------------------------------------}
if c=5 then begin if txt=true then begin i:=1; while i<=n do begin for J:=1 to n do write(a[i,j],' '); writeln(' '); inc(i); end; end; readln; goto menu; end;
end.
|
Вообщем прога должна повернуть матрицу на 90 градусов против часовой стрелки. Всё работает, но когда я ввожу матрицу (из файла не работает =) , но суть не в этом). Проблема в повороте. Он когда её поворачивает (это где с=4) почему то теряет пол матрицы =( Помогите... ПОЖАЛУЙСТА
|