Цитата:
Сообщение от павля
воть....формула
|
Тогда так:
Код:
program _;
uses crt;
var
x,z,S: real;
n,k: integer;
begin
clrscr;
writeln ('введите n,x');
readln (n,x);
k:=1;
S:=0;
while k<=n do
begin
S:=S+(2*x)/(sqr(x)-sqr(k*Pi));
k:=k+1;
end;
z:=1.0/x+x*S;
writeln ('z=',z:8:3);
readln;
end.
Вообще-то приведенный вид функции вызывает некоторое недоумение. Вот вы пишете:
. Но ведь это то же самое, что
, или
! Просто последние два варианта записаны по-человечески.
Ну и конечно, когда вижу задания типа "использовать цикл с предусловием" там, где он как седло на корове, а естественно было бы применить простой for...to...do...begin...end, впадаю в тихое бешенство в адрес этих горе-преподавателей. Ведь ничего не стОит найти задачку, где цикл с пред- (пост-) условием реально облегчит решение, так нет же! Только отбивают у ребят интерес к программированию. Дебилы!
Извините...