Текст программы (507109)

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

Текст из файла

• Текст программы:

type stroka=array[1..6] of real;

var

a,b,c,d,e:array[1..6] of stroka; s,n:real;

bs:stroka;

y,imax,imin:integer;

max,min,smax,jmax:real; i,j,k:integer;

{ matrix A}

begin

for i:=1 to 6 do

for j:=1 to 6 do

a[i,j]:=sqr(i)+j*(sin(i)/cos(i));

{write matrix A}

writeln('matrix A');

for i:= 1 to 6 do begin

for j:=1 to 6 do

write(a[i,j]:6:0);

writeln;

readln;

end;

{matrix B}

writeln;

begin

max:=a[1,1];

imax:=1;

min:=a[1,1];

imin:=1;

for i:=1 to 6 do

for j:=1 to 6 do

begin

if a[i,j] > max then

begin

max:=a[i,j];

imax:=i;

end;

if a[i,j] < min then

begin

min:=a[i,j];

imin:=i;

end;

end;

bs:=a[imin];

a[imin]:=a[imax];

a[imax]:=bs;

b:=a;

{write matrix B}

writeln('matrix B');

for i:=1 to 6 do begin

for j:=1 to 6 do

write(b[i,j]:6:0);

writeln;

readln;

end;

end;

{ matrix C}

writeln;

for i:=1 to 6 do

for j:=1 to 6 do

if i>=j then c[i,j]:=0

else c[i,j]:=1;

writeln('matrix C');

for i:= 1 to 6 do begin

for j:=1 to 6 do

write (c[i,j]:6:0);

writeln;

readln;

end;

{ matrix D }

writeln;

for i:=1 to 6 do

for j:=1 to 6 do begin

d[i,j]:=0;

for k:=1 to 6 do

d[i,j]:=d[i,j]+b[i,k]*c[k,j];

end;

{write matrix D}

writeln('matrix D');

for i:=1 to 6 do begin

for j:=1 to 6 do

write(d[i,j]:6:0);

writeln;

readln;

end;

{ matrix E }

writeln;

e:=d;

for i:=1 to 2 do

for j:=3 to 4 do begin

E[i+2,j-2]:=d[i,j];

end;

for i:=3 to 4 do

for j:=1 to 2 do

E[i-2,j+2]:=d[i,j];

writeln('matrix E');

for i:=1 to 6 do begin

for j:=1 to 6 do

write(e[i,j]:6:0);

writeln;

readln;

end;

{ nomer stolbza matrix E }

smax:=0;

jmax:=1;

for i:=1 to 6 do smax:=smax+e[i,1];

for j:=2 to 6 do begin

s:=0;

for i:=1 to 6 do

s:=s+e[i,j];

if s>=smax then begin

smax:=s;

jmax:=j;

end;

end;

{ nomer stolbza matrix E}

writeln('nomer stolbza matrix e');

write(j);

writeln;

readln;readln;

end.

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов лабораторной работы