Пример 1. Напечатать значения функции y на интервале [a,b] с шагом h
Напечатать значения функции y на интервале [a,b] с шагом h. Вычисление значения y оформить в виде функции, используемые процедуры описать в модуле.
{Модуль в котором реализована функция 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 часа) Цели: формирование навыка использования в программах массивов данных; развитие умения выполнения декомпозиции задачи.
|
