Вывести значения двух функций

@Wasik · Регистрация: 28.02.2012

Author24 — интернет-сервис помощи студентам

Как сделать так чтобы вывести значения этих функций? Я не совсем понял, можно ли так две функции в одной проге использовать или как их использовать?

Pascal

Program lab17;
var
a,d,n,k,f:real;
function vic (a,d,n,k:real):real;
function vuc (a,n,f:real):real;
begin
vic:=sqr(ln(a*sqrt(abs(n))))-sin(12*exp(3*ln(k))/abs(a+n));
end;
begin
vuc:=(sqr(sin(a*a))+exp((-a+n)*ln(exp))+6.3)/(arctan(2.6)+abs(a-n));
end;
begin
write('a=');
readln(a);
write('k=');
readln(k);
write('n=');
readln(n);
d:= vic (a,d,n,k);
f:= vuc (a,n,f);
write('d=',d:1:3);
write('f=',f:1:3);
readln;
end.

Комментарий модератора

Оформляйте код в соответствующие тэги. Для языка Pascal - это кнопочка PASCAL в редакторе сообщения

@Puporev · 02.03.2012, 10:09

В принципе так.

Pascal

Program lab17;
function vic (a,d,n,k:real):real;
begin
vic:=sqr(ln(a*sqrt(abs(n))))-sin(12*exp(3*ln(k))/abs(a+n));
end;
function vuc (a,n,f:real):real;
begin
vuc:=(sqr(sin(a*a))+exp((-a+n)*ln(exp))+6.3)/(arctan(2.6)+abs(a-n));
end;
var
a,d,n,k,f:real;
begin
write('a=');
readln(a);
write('k=');
readln(k);
write('n=');
readln(n);
d:= vic (a,d,n,k);
f:= vuc (a,n,f);
write('d=',d:1:3);
write('f=',f:1:3);
readln;
end.

Только здесь ошибка
vuc:=(sqr(sin(a*a))+exp((-a+n)*ln(exp))+6.3)/(arctan(2.6)+abs(a-n));
нужно правильно писать формулы.

	02.03.2012, 10:09