лабораторная работа / вар12 / лабы № 7 и№ 8 и №9 вариант 12
.doc7)Найти количество отрицательных элементов каждого столбца для матриц А(10,10) и В(15,20)
Program lab_7;
Type mas=array[1..15,1..20] of real;
Var A:mas;
B:mas;
i,j,k,m1,m2,n1,n2:byte;
procedure massiv(C:mas;n,m:byte);
var k:array[1..10] of byte;
begin writeln ('massiv');
for j:=1 to n do begin
K[j]:=0;
for i:=1 to m do begin
if C[i,j]<0 then K[j]:=K[j]+1;
end;
writeln(K[j]:3);
end;
end;
begin
writeln ('m1,m2'); read(m1, m2); writeln ('vvedite massiv A ');
for i:=1 to m1 do
for j:=1 to m2 do read(A[i,j]);
writeln ('n1,n2'); read(n1, n2); writeln ('vvedite massiv B ');
for i:=1 to n1 do
for j:=1 to n2 do read(B[i,j]);
massiv(A,m1,m2);
massiv(B,n1,n2);
end.
m1, m2
2 2
vvedite massiv A
-1 1
1 -1
vvedite massiv B
-1 1 1
-1 -1 1
-1 -1 -1
massiv A
1
1
massiv B
3
2
1
Процедура
K[j]=0
K[j]=k[j]+1
Программа
8)Вычислить:
Program lab_8;
var x,y,a:real;
function f(a:real):real;
begin
f:=sqrt(x*x+x*x*x);
end;
begin
read(x);
y:=f(f(x)/f/(1/x));
write(y:8:3);
end.
x = 0.251 x = 1.12
y = 7.405 y = 11.630
Функция
f=SQRT(x*x+x*x*x)
Программа
y=f(f(x)/f(1/x))
9)Задано существительное первого склонения, оканчивающееся на ,,а,,. Напечатайте это слово во всех падежах.
Program lab9;
Var s,st1,st2,st3,st4,st5,st6:string[100];
smb:char;
i,t,p:byte;
begin
Writeln('sobaka');
Read(s);
st1:=copy(s,1,5);
st2:=st1+'и';
st3:=st1+'е';
st4:=st1+'a';
st5:=st1+'ой';
st6:=st1+'е';
writeln(st2);
writeln(st3);
writeln(st4);
writeln(st5);
writeln(st6);
end.
Sobaka
Sobakи
Sobake
Sobaka
Sobakой
Sobake
st1:=copy(s,1,5)
st2:=st1+'и'
st3:=st1+'е'
st4:=st1+'a'
st5:=st1+'ой'
st6:=st1+'е'