Нужна помощь Pascal

[SweetOpium]

Помогите ктонить решить 3 задачки по примерам, только условия разные, я вообще не шарю в этом, буду очень благодарен

Задача 1: (выделенное условие - мое)


Задача 2: (выделенное условие - мое)


Задача 3: (выделенное условие - мое)

[Шаман]

Вот первая задача...На вторую ты предоставил условие первой...

program LR3;
uses
crt,math;
const
a=0;
b=2*pi;
var
f1,f2,x,dx:real;
i,n:integer;
begin
clrscr;
writeln('Введите число точек n');
readln(n);
dx:=abs(b-a)/(n-1);
x:=a;
writeln('--------------------------------------');
for i:=1 to n do
begin
f1:=sin(x)*cos(x);
f2:=sin(x)+cos(x-1);
writeln('| ','x=',x:7:3,' |' ,' F1=',f1:7:3,' |',' f2=',f2:7:3,'|');
x:=x+dx;
end;
writeln('--------------------------------------');
readln;
end.

[SweetOpium]

нет, условие такое же. Спасибо за 1-ю задачу!!

[SweetOpium]

file not found (math.tpu) что это может значить?))
это не для делфи случаем?

[Шаман]

нет...это модуль, который работает с математическими функциями..

В приципе можно и без него...все работает...

[SweetOpium]

без него когда exe файл запускаешь, пишет: Runtime error 200 at 0025:0091.

[Шаман]

а чем ты компилируешь? у мну fps 2.04

[SweetOpium]

ну в паскале alt f9 жму и все =)

[Шаман]

В ТР7 компилируется и запускается без проблем...даже без math.tpu

[SweetOpium]

Можешь остальные задачки еще реишить?))