Циклы

[margarit]

Даны действительные числа а,в и натуральное число n. Среди чисел х0,х1,х2...хn найти те,в котором значение функции f(x)=( x^2 +1)cosx наибольшее. х0=а, х1=а+(в-а)/n,х2=а+2(в-а)/n.....хn=в

[filvika]

const
    n = 10; //  Всего отрезков
var
    a, b, max: real;
    x: array [0..n] of real;
    i: integer;


function f(var x: real): real;
begin
    f := (sqr(x) + 1) * cos(x); //  В радианах
end;

begin
    write('Enter a,b ..');
    read(a, b); //  Границы отрезка

    x[0] := a;
    x[n] := b;
        for i := 1 to n-1 do
            x[i] := a + i*(b-a)/n;

    writeln('x[i]:');
        for i := 0 to n do
            write(x[i]:0:2, ' ');

    writeln;
    writeln('f(x[i]):');
        for i := 0 to n do
            write(f(x[i]):0:2, ' ');

    max := f(x[0]);  //  Начальное значение
        for i := 1 to n do
            if f(x[i]) > max then max := f(x[i]);

    writeln;
    writeln('max f(x) = ', max:0:2);
    readln;
end.

[Алсушка]

ребят знаю задача не в тему но нужна блок схема
6. Листинг программы:
Program Prog1; подключение библиотек
Uses crt;
Var
n: integer;
begin
ClrScr; очистка экрана
Writeln(‘Введите номер дня недели, n=’);
Readln(n);
Case n of
1:write (‘В понедельник 3 пары’);
2: write (‘Во вторник 4 пары’);
3: write (‘В среду 4 пары’);
4: write (‘В четверг 3 пары’);
5: write (‘В пятницу 4 пары’);
6: write (‘В субботу не учимся’);
7: write (‘В воскресенье не учимся’);
else
write (‘Ошибка! В недели 7 дней’);
end;
Readln; ожидание нажатия клавиши
End.

[Mad_Cat]

Держи!!!!!!!!!!!

[Алсушка]

аеее спасибо большое=)