Несложные задачи

[танкек]

Вечно путаюсь с количеством скобок.
условия

[Leshii]

Program raz;
Uses crt;
var y,x:real;
begin
clrscr;
write('Enter x:');
readln(x);
if (x>=1) and (x<=3) then y:=2*sqr(x) - 3*exp(sin(x))
else
if x>3 then y:=3*(sin(x)/cos(x));
writeln('y=',y:3:2);
readln;
end.

Program dva;
Uses crt;
const pi=3.14;
var y,x:real;
begin
clrscr;
write('Enter x:');
readln(x);
if x>pi then y:=sqr(sin(x))+1
else
if x<=pi then y:=....//допишеш сам
writeln('y=',y:3:2);
readln;
end.

3 аналогично 4 заданию
вот тебе

function tan ( x:real ):real;
  begin
   tan:=sin(x)/cos(x);
  end;

основная программу организовуеш циклом и записываеш приблизительно так:

while a>=b do begin
  y:=tan(x);
  // с шагом
 end;
writeln(...);
readln;
end.

Дерзай.

[VIK_aka_TOR]

собственно какие у тебя проблемы? какой язык? и какие задания... какое вознаграждение за все это коль уж без наработок???....

[танкек]

Сообщение от VIK_aka_TOR

собственно какие у тебя проблемы? какой язык? и какие задания... какое вознаграждение за все это коль уж без наработок???....

Наработки написаны, не запостил сюда.

[Leshii]

Так чего не запостил?
Причем написано после того как 4 задачи уже разжевали...( ты про эти наработки говорил ).

[Mad_Cat]

function tan ( x:real ):real;
  begin
   if cos(x)<>0 then
   tan:=sin(x)/cos(x);
 else tan:=-999999999999;
  end;