Цитата:
Сообщение от АсяЯ
вот я начала 1 задание,но где то косяк
var a,m,p,n:real;
begin
writeln('введите значения');
readln(a,m,p);
n:=(exp(p*ln(a))+(1/exp(p*ln(a)))/(((2*exp(m*ln(a))-(exp(m-p)*ln(a))))));
writeln(n)
end.
|
Никаких особых косяков не вижу. Почти всё правильно, правда, с расстановкой скобок несколько Вы запутались. Кроме того:
1. В задании сказано использовать функцию, значит сделаем через функцию.
2. В некоторых версиях Паскаля нужно в конце поставить остановку, чтобы посмотреть на результат. Это делается оператором readln без параметров. Потом, для выхода из программы, нужно нажать "Enter".
Итого:
Код:
var a,m,p:real;
function n(a1,m1,p1:real):real;
begin
n:=(exp(p1*ln(a1))+1/exp(p1*ln(a1)))/(2*exp(m1*ln(a1))-exp((m1-p1)*ln(a1)));
end;
begin
writeln('введите значения a, m, p:');
readln(a,m,p);
writeln(n(a,m,p));
readln
end.