менше одініці.
Завдання 2.
знайте суму від'ємніх ЕЛЕМЕНТІВ та середнє Значення додатніх ЕЛЕМЕНТІВ масівів: L (6), B (5), H (7) ціліх чисел, вікорістовуючі процедури.
В
Задача 1:
program var_1_1;
uses crt;
var
c, k: array [1 .. 5,1 .. 4] of real;
i, j: integer;
m: byte;
function facktorial (x: integer): real;
var
i: integer;
facktorial1: real;
begin
facktorial1: = 1;
if i <= 1 then facktorial: = 1 else begin
for i: = 1 to x do facktorial1: = facktorial1 * i;
facktorial: = facktorial1;
end;
end;
begin
clrscr;
writeln ('Введiть елєменти масива: ');
writeln;
for i: = 1 to 5 do
for j: = 1 to 4 do begin
write ('Елемент [', i, ',', j, '] =');
readln (c [i, j]);
end;
m: = 0;
clrscr;
for i: = 1 to 5 do begin
for j: = 1 to 4 do begin
k [i, j]: = c [i, j]/facktorial (i + j);
if k [i, j] <1 then m: = m +1;
write (k [i, j]: 7:5, '');
end;
writeln;
end;
end.
РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ:
0.50000 0.33333 0.16667 -0.04167
0.66667 0.12500 -0.01667 0.00556
0.20833 -0.01667 -0.00417 0.00119
0.05833 0.01250 0.00417 0.00005
0.00417 -0.00099 0.00005 0.00000
В
Задача 2:
program var_1_2;
uses crt;
var
l: array [1 .. 7] of integer;
b: array [1 .. 6] of integer;
h: array [1 .. 8] of integer;
v: integer;
s: real;
procedure masiv (var x: array of integer; kol: integer; var vid: integer; var ser: real);
var
i: integer;
begin
clrscr;
vid: = 0;
ser: = 0;
writeln ('Введiть елєменти масива:');
writeln;
for i: = 1 to kol do begin
write ('Елемент x [', i, '] =');
readln (x [i]);
if x [i] <0 then vid: = vid +1 else ser: = ser + x [i];
end;
ser: = ser/kol;
end;
begin
masiv (l, 6, v, s);
writeln ('Вiдемніх елементiв:', v);
writeln ('Середне Арифметичний суми додатнiх елементiв: ', s);
repeat until keypressed;
masiv (b, 5, v, s);
writeln ('Вiдемніх елементiв:', v);
writeln ('Середне Арифметичний суми додатнiх елементiв: ', s);
repeat until keypressed;
repeat until keypressed;
masiv (h, 7, v, s);
writeln ('Вiдемніх елементiв:', v);
writeln ('Середне Арифметичний суми додатнiх елементiв: ', s);
end.
РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ:
Введiть елєменти масива:
Елемент x [1] = 2
Елемент x [2] = -2
Елемент x [3] = -3
Елемент x [4] = 5
Елемент x [5] = 3
Елемент x [6] = 4
Вiдемніх елементiв: 2
Середне Арифметичний суми додатнiх елементiв: 2.33
Введiть елєменти масива:
Елемент x [1] = 23
Елемент x [2] = -3
Елемент x [3] = -4
Елемент x [4] = 2
Елемент x [5] = 8
Вiдемніх елементiв: 2
Середне Арифметичний суми додатнiх елементiв: 6.60
Введiть елєменти масива:
Елемент x [1] = 4
Елемент x [2] = 5
Елемент x [3] = -6
Елемент x [4] = 3
Елемент x [5] = 2
Елемент x [6] = -7
Елемент x [7] = 0
Вiдемніх елементiв: 2
Середне Арифметичний суми додатнiх елементiв: 2.00
