Работа с нахождением корней уравнения

[noise_girl]

1.Найти корни уравнения методом касательных:
x - 3cos^2x (икс минус три косинус квадрат икс) (тут надо вставить проверку - как это делать - не знаю)
2. Написать программу для сортировки массива заполненного заглавными русскими буквами методом выбора (сортировка в порядке возрастания)
3. Необходимо создать процедуру и функцию, которая преобразовывает системную дату в следующий формат: 11 февраля 2003г; системную дату можно получить с помощью стандартной процедуры GetDate, которая находится в модуле Dos;
4. а) Реализовать вывод о товарах, содержащихся на складе: наименование товара, количество его на складе, стоимость единицы товара, единицы измерения товара.
б) Дан текстовый файл и ключевое слово для поиска. Выдать на экран 3 строки файла, начиная с первой строки, включающей заданный образец. Выделить цветом ключевое слово поиска.
5. а) Написать программу для вычисления матрицы: a∙A – b∙B + C
б) необходимо придумать и составить программу на использование выданной по заданию процедуры или функции: UpCase(идентификатор) System(модуль)
6. задание на модуль graph: r = 1+ cos φ/ sin φ(эр равно единица плюс косинус фи разделить на синус фи)

помогите плиз
никак не даются мне эти задачи

[noise_girl]

собственно, на первый вопрос я сделала программу. на остальные - не выходит. а препод грызёт. ребят, помогите.
uses crt;
var f, f_, xlast, e,x: double;
begin
clrscr;
writeln('Данная программа находит корень уравнения методом касательных y = x - 3*cos(x)*cos(x)');
writeln('Введите значение аргумента первоначального приближения');
readln(x);
writeln('Введите значение точности');
readln(e);
repeat
if (keypressed) then halt;
f:= x - 3*cos(x)*cos(x);
f_:= 6*sin(2*x)+1;
xlast:=x;
x:=xlast-f/f_;
until (abs(xlast-x)<e);
Writeln('Корень=', x: 5: 4);
{тут нужна проверка, а я не знаю как её воткнуть}
readln;
end.

з.ы. и ещё там где-то ошибка есть вроде но хз где

[Mad_Cat]

2.

program Sort_Vybor1; 
 var A:array[1..100] of char; 
 N,i,m,k : integer; 
x:char;

begin 
 write('количество элементов массива '); 
 read(N); 
 for i:=1 to n do read(A[i]); 
 for k:=n downto 2 do {k- количество элементов для поиска max } 
   begin 
    m:=1; { m - место max } 
    for i:=2 to k do if A[i]>A[m] then m:=i; 
    {меняем местами элементы с номером m и номером k} 
    x:=A[m]; A[m]:=A[k]; A[k]:=x; 
   end; 
 for i:=1 to n do write(A[i],' '); {упорядоченный массив} 
end.

[noise_girl]

спасибо

[noise_girl]

Только есть вопрос: как вставлять проверку в нахождении корней методом касательной?
На математике это просто - написал "проверка", подставил - сошлось и хорошо. А тут я не понимаю как делать

[Mad_Cat]

3

uses dos;
var
date,s:string;
dd,mm,yy,e:integer;
begin
getdate(yy,mm,dd,e);
date:='';
str(dd,s);
date:=date+s;
case mm of
1:date:=date+'января';
2:date:=date+'февраля';
3:date:=date+'марта';
4:date:=date+'апреля';
5:date:=date+'мая';
6:date:=date+'июня';
7:date:=date+'июля';
8:date:=date+' августа';
9:date:=date+' сентября';
10:date:=date+' октября';
11:date:=date+' ноября';
12:date:=date+' декабря';
end;
str(yy,s);
date:=date+' '+s+' г.';
writeln(date);
end.

А тут я не понимаю как делать

Подставить в уравнение проверить сколько получится если 0+/-e значит сошлось

[noise_girl]

а всё, допёрло. сходится проверка.

[noise_girl]

теперь надо доделать оставшиеся вопросы.

[noise_girl]

вопрос 5б я сама уже написала. ужна помощь по 4-му, 5а, 6 вопросам