Программа

Program z5;

Type Matrix=array[1..5,1..4] of real;

Var d, f: Matrix; a, b, s1, s2: Real; i, j: Integer;

Function pp(c: Matrix; m,n: Integer; a, b: Real): Real;

Var s: Real;

Begin

s:=0;

For i:=1 To m Do

For j:=1 To n Do

If (a<=c[i, j]) and (c[i, j]<=b) Then s:=s+c[i, j];

pp:=s;

End;

Begin

Writeln (’Введите пределы’); Readln(a, b);

Writeln (’Введите первую матрицу (3*4)’);

For i:=1 To 3 Do For j:=1 To 4 Do Read(d[i, j]);

Writeln (’Введите вторую матрицу (5*3)’);

For i:=1 To 5 Do For j:=1 To 3 Do Read(f[i, j]);

s1:=pp(d, 3, 4, a, b); s1:=pp(f, 5, 3, a, b);

Writeln (’S1=’,s1, ’S2=’,s2);

End.

Задание 7. Изучение приемов работы с современными пакетами прикладных программ для офисов

Описать возможности по созданию и редактированию документов средствами соответствующего пакета. Варианты заданий предложены в табл. 6.

Таблица 6