Тема

Составление и отладка программы с нестандартными функциями.

Задание

По индивидуальному заданию составить и отладить программу расчета выражения с использованием функции.

Алгоритм

Z = 5xІ + ?(x – b)

?(x + 4)

где ?(a) = a+10 при a < 2

aІ a ? 2

Контрольный пример

Проведем контрольный пример использования программы. Входные и выходные данные указаны ниже.

После ручной перепроверки видно, что программа работает согласно поставленному перед ней алгоритму.

Распечатка программы

program Lab10;

{$APPTYPE CONSOLE}

uses

SysUtils;

Function s(a:real):real;

Begin

If a<2 then s:=a+10 else s:=a*a;

End;

var z,x,b:real;

begin

x:=5;

b:=1;

z:=(5*x*x+s(x-b))/s(x+4);

writeln('Z = ',z:6:2);

read(z);

end.

Распечатка исходных данных

X=5;

B:=1;

Распечатка результатов

Z:=1.74.