F должно быть равно "1", т.к. для произведения(а факториал - это произведение) нейтральное число - "1", а для суммы - "0".
while k, нельзя преобразовать тип Integer к типу boolean в Паскале, даже если и было можно, то данная запись давала нам бесконечный цикл, нужно заменить на while k <= n
--------------------------------
k:=1; f:= 1;
while k <= n do begin
f:= f*k;
k:= k+1;
end;
<u>Понятие:</u>
Операционная система-обеспечивает управление и обрабатывание аппаратными средствами компьютера,а также служит устройством прикладных программ и вычислительных систем..
Делятся на две группы это:1)"программы, управляющие оборудованием;2)программы, управляющие другими программами"
Например:Допустим мы купили стиральную машинку,на ней установлена программа или чип, котрая выполняет определённый запрограммированный порядок действий.
Виды:
Вычислительная система у операционной системы используется для различных типов сложности задач.
Многопользовательская система(т.е позволяет определённому кол-ву пользователям одновременно иметь доступ к одной системе)
Однопользовательская система(т.е всё то что не обладает свойствами
многопол.системы)
<span>Пусть размер музыкального файла X, тогда скорость канала А ' x/30 '. Тот же файл в пункте Б, разрешение увеличили в два раза т.е будет x*2, а дискритизацию уменьшили в 1,5 раза, тогда (x*2)/1,5 это объем файла после всех процедур сжатия. Так как скорость в пункте Б больше в 4 раза, чем в А(X/30), тогда скорость в Б будет 4*(x/30) т.е (4x)/30. Ну и теперь стандартно объем после всех процедур (2x/1,5) поделим на скорость т.е (4x)/30, можно наглядно все записать, в результате получится 10.</span>
Program pr3;
const {убраны лишние описатели - чистая косметика}
a = 2.12;
b = 7.45;
h = 0.34;
var
x, f1, f2, y, s: real;
i, n: integer; {описание, необходимое для цикла}
begin
{ x := a; этот оператор не нужен }
s := 0;
n := Trunc((b - a) / h)+1; {стандартная формула числа повторений цикла }
for i := 1 to n do { Заголовок цикла }
begin {начало блока для выполнения в цикле }
x := a + (i - 1) * h; { перенесено из конца цикла }
f1 := 3 * ln(exp(1 / 5) * ln(sin(x) + sqr(x)));
f2 := ((2 * x + 1) / (x * x * x * x * x));
y := f1 / f2;
s := s + y;
end; {конец блока для выполнения в цикле }
Writeln('S=', s:10:5);
end.
Тестовое решение:
S=26390.53751
