паскаль 19
.docxprogram Lab1_Var19;
uses crt;
var Coscos : array [-100..100,-100..100] of integer;
Coscos2 : array [-100..100,-100..100] of integer;
str,stl,d,g,k,l,o,c,u:integer;
begin
write('Введите количество строк: ');
readln(str);
write('Введите количество столбцов: ');
readln(stl);
for d:=1 to str do
begin
for g:=1 to stl do
begin
write('Введите элемент массива Coscos[',d,'][',g,']: ');
read(Coscos[d,g]);
end;
end;
writeln('Введенная матрица:');
for d :=1 to str do
begin
for g :=1 to stl do
write (' ', Coscos [ d , g ], ' ');
writeln ;
end ;
writeln('Инвертированный массив:');
k:=1;
repeat
l:=1;
repeat
coscos2[k,l]:=coscos[k,l]*(-1);
l:=l+1;
until l>stl;
k:=k+1
until k>str;
for k:=1 to str do
begin
for l:=1 to stl do
write (' ', Coscos2[ k , l ], ' ');
writeln ;
end ;
u:=0;
c:=0;
o:=1;
for l:=1 to stl do
begin
for k:=1 to str do
begin
if Coscos2[ k , l ]>0 then u:=Coscos2[ k , l ];
c:=c+u;
o:=o+1;
end;
end;
write('Вектор из суммы чисел: ');
writeln(c);
end.
3 лаба
Unit Mod_Var_3;
Interface
const e=100; w=100;
type massiv=array [-100..e,-100..w] of integer;
mas= array [1..e] of integer ;
var Coscos : massiv;
ch: mas;
k ,l, i, j : integer;
sm, sm1 : real;
str,stl,d,g,o,c,u:integer;
procedure ur(m: massiv );
function mat(var m:massiv):integer;
Implementation
procedure ur(m: massiv );
var sr,h: real;
n:integer;
ch:mas;
begin
sr:=0;
for g:=1 to stl do
begin
if n=g then
begin
if sr > h then h:=sr;
sr:=0;
end;
begin
for d:=1 to str do
begin
if not (g mod 2 = 0) then
begin
sr:=sr+Coscos[d,g];
n:=n+1;
h:=sr;
end;
end;
end;
end;
writeln(h);
end;
function mat(var m:massiv):integer;
begin
write('Введите количество строк: ');
readln(str);
write('Введите количество столбцов: ');
readln(stl);
for d:=1 to str do
begin
for g:=1 to stl do
begin
write('Введите элемент массива Coscos[',d,'][',g,']: ');
read(Coscos[d,g]);
end;
end;
writeln('Введенная матрица:');
for d :=1 to str do
begin
for g :=1 to stl do
write (' ', Coscos [ d , g ], ' ');
writeln ;
end;
mat:=Coscos[d,g];
end;
end.
3 лаба основа
Program Var_19;
Uses Mod_Var_19,crt;
begin
Coscos[d,g]:=mat(Coscos);
ur(Coscos);
end.
2 лаба
program lab_2;
uses crt;
const e=100; w=100;
type massiv=array [-100..e,-100..w] of integer;
mas= array [1..e] of integer ;
var Coscos : massiv;
ch: mas;
k ,l, i, j : integer;
sm, sm1 : real;
str,stl,d,g,o,c,u:integer;
procedure ur(m: massiv );
var sr,h: real;
n:integer;
ch:mas;
begin
sr:=0;
for g:=1 to stl do
begin
if n=g then
begin
if sr > h then h:=sr;
sr:=0;
end;
begin
for d:=1 to str do
begin
if not (g mod 2 = 0) then
begin
sr:=sr+Coscos[d,g];
n:=n+1;
h:=sr;
end;
end;
end;
end;
writeln(h);
end;
function mat(var m:massiv):integer;
begin
write('Введите количество строк: ');
readln(str);
write('Введите количество столбцов: ');
readln(stl);
for d:=1 to str do
begin
for g:=1 to stl do
begin
write('Введите элемент массива Coscos[',d,'][',g,']: ');
read(Coscos[d,g]);
end;
end;
writeln('Введенная матрица:');
for d :=1 to str do
begin
for g :=1 to stl do
write (' ', Coscos [ d , g ], ' ');
writeln ;
end;
mat:=Coscos[d,g];
end;
begin
Coscos[d,g]:=mat(Coscos);
ur(Coscos);
end.