03.03.2009, 22:10
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 99
С нами:
9577084
Репутация:
51
|
|
Сообщение от Unregistered
Дано действительное число y, натуральное число n и сгенерированное случайное действительное число x (x=0…n). Вычислить  . Вивести дробовую часть результата. IDE: Borland Pascal 7.0.
Код:
program primer;
var n:integer;
y,x:real;
begin
readln (y,n);
x:=random(n-1)+random; {random - для получения случайного вещественного числа, у меня работает}
writeln ('Ответ: ',frac((cos(exp(ln(y)*x))+x-y/3)/(2*sqr(x)-y+1)));
end.
Последний раз редактировалось lll6; 03.03.2009 в 22:14..
|
|
|