t;
var x, y, s, s1, h, xk: real; n: integer;
begin
clrscr;
x: = 0; xk: = 3.1; h: = 0.1;: = 0; n: = 0;
while x <= xk + h/2 do
у: = sin (x); (x: 3: l, y: 6:2);
if (y> 0.1) and (y <0.6) then s : = s + y; n : = n + 1 end;
x : = x + h;; n > 0 then
begin si: = s/n; writeln ('Середнє =', si) end writeln ('Таких значень немає n = 0');
readln
end.
3. Команда циклу з післяумовою (repeat) має вигляд
repeat <відряд> until <логічний вирази>;
Дія команди. Команди віконуються в ціклі, доки Значення логічного вирази не стану істіннім. Істінній логічний вирази задає умову виходе з циклу.
Приклад. Нехай змінні х, у мают Значення х = 5, і/= 0. У результаті Виконання відряд
repeat y: = y + x; z: = 2 * x; x: = x-2 until х <= 1;
змінні у, z, х набудуть значень y = 0 +5 +3 = 8, z = 6, x = 1 .
.6 МАСИВ
1. Масив (array) - це скінченій набор ЕЛЕМЕНТІВ одного (базового) типу, Які зберігаються в послідовно розташованіх комірках оператівної пам'яті и мают спільну Назв.
У математіці Поняття масив відповідають Поняття вектора та матріці. Розрізняють одно-та ба...
