Показать сообщение отдельно
Старый 16.11.2016, 10:19   #7 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от АсяЯ Посмотреть сообщение
вот я начала 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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070