Страница 1 из 1
Паскаль. Вычислить функцию.
Добавлено: 14 апр 2009, 16:47
Basf
Все что помню из програмирования, это набивание перфокарт в PL-1, а тут дочка приносит задачки и просит решить их Паскале т.е. нарисовать ей схему алгоритма, и написать программу решения.
Помогите пожалуйста! (как я понял по правилам форума одна тема, одна задача)
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Картинка не прикрепилась!(
Паскаль. Вычислить функцию.
Добавлено: 14 апр 2009, 17:27
Basf
Вторая задача
Re: Паскаль. Вычислить функцию.
Добавлено: 14 апр 2009, 17:37
Naeel Maqsudov
В вашем случае можно в одну тему. Задачи-то одинаковые, отличаются формулами.
Re: Паскаль. Вычислить функцию.
Добавлено: 14 апр 2009, 18:02
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 - целое число.
Re: Паскаль. Вычислить функцию.
Добавлено: 14 апр 2009, 19:45
Basf
Спасибо, выручили, а то для меня это темный лес!
А это решение первой или второй задачи?
Re: Паскаль. Вычислить функцию.
Добавлено: 14 апр 2009, 22:46
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));
Re: Паскаль. Вычислить функцию.
Добавлено: 14 апр 2009, 23:37
Basf
Еще раз большое спасибо за помощь!