Паскаль. Вычислить функцию.

[Basf]

Все что помню из програмирования, это набивание перфокарт в PL-1, а тут дочка приносит задачки и просит решить их Паскале т.е. нарисовать ей схему алгоритма, и написать программу решения. Помогите пожалуйста! (как я понял по правилам форума одна тема, одна задача)
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Картинка не прикрепилась!(

[Basf]

Вторая задача

[Naeel Maqsudov]

В вашем случае можно в одну тему. Задачи-то одинаковые, отличаются формулами.

[somewhere]

1.

Код: Выделить всё

uses crt;

var a, b, x, y, z : Real;

function Power(p1, p2:Real):Real;
begin
Power := exp(p2*ln(p1));
end;

function Tan(p1:Real):Real;
begin
Tan := sin(p1)/cos(p1);
end;

begin
Clrscr;
Write('Input X = '); Readln(x);
Write('Input Y = '); Readln(y);
Write('Input Z = '); Readln(z);
a := power(12+sqr(x-y), 1/3);
b := exp(abs(x-y))*power(sqr(tan(z))+1, x);
writeln('A = ',A:12:9);
writeln('B = ',B:12:9);
readln;
end.

В коде нет никаких проверок на правильность значений z. Напомню что функция tan(z) не определена для значений z = pi/2 + pi*n, где n - целое число.

[Basf]

Спасибо, выручили, а то для меня это темный лес!
А это решение первой или второй задачи?

[Naeel Maqsudov]

Это первой.
А во второй все то же самое, только

a:=(2+sqr(y))*(x+y/2)/(sqr(y)+1/(sqr(y)+1));
b:=sqrt(tan(x*y-Pi/z)+cos(x*y));

[Basf]

Еще раз большое спасибо за помощь!