Текст программы (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, так как принтер может начудить со шрифтами.