Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

лабораторная работа / вар12 / лабы № 7 и№ 8 и №9 вариант 12

.doc
Скачиваний:
52
Добавлен:
10.02.2014
Размер:
270.34 Кб
Скачать

7)Найти количество отрицательных элементов каждого столбца для матриц А(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+'е'

Соседние файлы в папке вар12