Пример 1. Напечатать значения функции y на интервале [a,b] с шагом h

{Модуль в котором реализована функция y}

(Pascal)

Unit Func;

Interface

function f (x: extended): extended;

Implementation

function f1 (x: extended): extended;

begin

f1:= ln(sqr(x) + 3);

end;

function f2 (x: extended): extended;

begin

f2:= arctan(x)*x;

end;

function f(x: extended): extende;

begin

if (x > -2) and (x <= 2) then f:= f1 (x)

else f:= f2 (x);

end;

END.

Program Lab_Rab;

Uses Crt, Func;

var

a,b,h,x: extended;

Begin

ClrScr;

WriteLn('Введите границы интервала табулирования [a;b]');

Write('a=');

Readln(a);

Write('b=');

Readln(b);

WriteLn('Введите шаг табулирования ');

Write('h=');

Readln(h);

Writeln('| x | y(x) |');

Writeln('__________________________');

x:= a;

While x <= b do

begin

writeln('|', x:6:2,' | ', f(x):6:3,' |');

x:= x + h;

end;

Writeln('__________________________');

ReadKey;

End.

Задание 2.1 (6 баллов)

Написать программу, печатающую значения функции y(х) на интервале [a,b] с шагом h.

Указания:

1) вычисление значения функции y(х) оформить в виде функции;

2) самостоятельно определить какой из видов циклического оператора целесообразно использовать;

3) поместить все вспомогательные алгоритмы в отдельный модуль.

Лабораторная работа № 3 (массивы) (4 часа)

Цели: формирование навыка использования в программах массивов данных; развитие умения выполнения декомпозиции задачи.