Составить программу вычисления значений функции f(x) на отрезке [а; b] с шагом h. результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции: f(x)=1/2 sin x/4+1

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 поэтому вам прийдется поправить некоторые ошибки в коде.

V= k * i, где: v - объем. k - размер изображения. i - количество бит на цвет. n = 2^i, где: n - количество цветов. дано: i1 = 24 бит. n2 = 16 цветов. найти: v1/v2. найдем количество бит на цвет при вторичном сохранении: n = 2^i. 16 = 2^i. i2 = 4 бита. найдем во сколько раз одно изображение больше другого. v1/v2 = (k * i1)/(k * i2). так как сохраняем тот же рисунок, то размер изображения не меняется, его можно сократить. v1/v2 = i1/i2. v1/v2 = 24/4. v1/v2 = 6. ответ: объем изменился в 6 раз.

Pascalabc.net 3.3.5, сборка 1644 от 23.03.2018 внимание! если программа не работает, обновите версию! begin   var f: file of real;   // создаем файл   rewrite(f,'myfileofreals.bin');   var a: =seqrandom(10,1,30).select(t-> t/10).toarray;   a.println;   for var i: =0 to a.length-1 do write(f,a[i]);   f.close;   // файл создан, далее собственно   reset(f,'myfileofreals.bin');   f.seek(f.filesize-1);   var p: =f.read;   p.println;   f.close end.