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
Поэтому Вам прийдется поправить некоторые ошибки в коде.
Геном - наследственный материал, заключенный в клетке организма. Геном человека построен из ДНК.
Вывод: вариант б
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>5)</u>
begin
Writeln('Max=',ReadSeqReal('Введите числа:',ReadInteger('n=')).Max)
end.
<u>Пример</u>
n= 8
Введите числа: 4.12 5 1.48 -6 0 7.3 5.12 0.005
Max=7.3
<u>3)</u>
begin
Writeln('Sum = ',Range(1,ReadInteger('n ='),2).Sum)
end.
<u>Пример</u>
n = 5
Sum = 9
:D
А задачу написать? Я же не провидец, и не знаю что у тебя там за рабочая тетрадь