Функция вычисления f(x) в зависимости от значения x

Задача

Описать функцию вычисления f(x) по формуле:
f(x)= x^2 при -2<=x<2;
x^2+4x+5 при x>=2;
4 при x<-2.

Используя эту функцию для n заданных чисел, вычислить f(x). Среди вычисленных значений найти наибольшее.

Решение

const
    n = 5;
var
    a, max: integer;
    i: byte;
    arr: array[1..n] of integer;
 
function func(x: integer): integer;
    begin
        if (x >= -2) and (x < 2) then
            func := x * x
        else
            if x >= 2 then
                func := x * x + 4 * x + 5
            else
                func := 4;
    end;
 
begin
    max := -32768;
    for i:=1 to n do begin
        write('a = '); readln(a);
        arr[i] := func(a);
        if arr[i] > max then
            max := arr[i];
    end;
 
    write('Result: ');
    for i:=1 to n do
        write(arr[i], ' ');
    writeln;
    writeln('max = ', max);
 
readln;
end.

 

Тема

Процедуры, функции, рекурсии

Уровень

Простые задачи

Добавить комментарий