Developing.ru

1.Разработать приложение для задачи: Найти площадь сектора, для которого на форме должны вводиться радиус и число радиан в дуге.
2.Разработать приложение для задачи: На форме вводятся три действительных числа. Возвести в квадрат те из них, которые не отрицательны
3.Разработать приложение для задачи: На форме вводятся x,y,z. Вычислить a,b если

#1
[syntax='Pascal']
Program Number1;
Var R,A:Real;
Begin
Read(R,A);
Writeln('S=',((2*pi)/A) *R);
End.
[/syntax]
#2
[syntax='Pascal']
Program Number2;
Var N1,N2,N3:Real;
Begin
Read(N1,N2,N3);
If N1>0 Then N1:=Sqr(N1);
If N2>0 Then N2:=Sqr(N2);
If N3>0 Then N3:=Sqr(N3);
Writeln(N1,N2,N3);
End.
[/syntax]
#3
[syntax='Pascal']
Program Number3;
Var X,Y,Z,A:Real;
Begin
Read(X,Y,Z);
A:=(3+exp(Y-1))/(1+sqr(x)*abs(y-tan(z)));
B:=1+abs(y-x)+sqr(y-x)/2+(sqr(y-x)*abs(y-x))/3;
Writeln(A,B);
End.
[/syntax]

Medved, за тобой не успееш ))) тока нашол что-то подумать, пусть даже очень лёгкое то ты уже тут побывал )))

Огромное спасибо

В 3 задачи пишет, что неизвестный идентификатор tan. tg как - то по другому нужно записать?

Ой всё разобралась