<span>5 дискретность - алгоритм должен состоять из конечного числа шагов, приводящих к решению задачи</span>
Program Table;
uses math; //подключаем математический модуль, возможно с модулем я ошибся
var // объявляем локальные переменные для программы
a , b, h : Real; //указывает дробный тип числа
function calculate_f( x: Real) : Real; //объявляем функцию в теле программы
begin
calculate_f := 1/2*sin(x/4+1) ; //записываем результат вычисления в функцию
end;
Begin
a := -0.99; //определяем
b := 50.0; //вводные
h := 0.1; //значения
while a < b do begin //пока "a" меньше "b"
writeln("F(", a, ') = ', calculate_f(a)); //выводим результат вычислений в строку
a := a + h; //прибавляем шаг "h"
end;
end.
Я могу и ошибиться, потому что писал на Паскале оочень давно :D
Поэтому Вам прийдется поправить некоторые ошибки в коде.
3750кбайт=3750*1024байт=3840000байт
2мин=120с
3840000байт/120с=32000байт/с
1байт=8бит
32000*8=256000бит/с
<u>PascalABC.NET 3.4.0, сборка 1677 от 17.06.2018</u><u>Внимание! Если программа не работает, обновите версию!</u>function CountCond(a:array of real):=a.Where(t->t<a.Average).Count;
begin
var a:=ArrGen(15,i->Cos(5*(i+1))-1/sqrt((i+1)**3+9)); a.Println;
Writeln('Элементов массива, меньших среднего арифметического: ',CountCond(a))
end.
110001.011100110011001100110011001100110011001100110011002
