Подскажите пожалуйста, верна ли программа?

[павля]

Подскажите пожалуйста, верна ли программа?

задача:
решить задачу вычесления значения функций, содержащей сумму. При вычислении суммы используется цикл с предусловием.

z=1/x + (значёчек суммы, над которым стоит "n", а под ним k=1) * 2x / x(в квадрате) - k(в квадрате) * п(тобиш "пи", в квадрате)...

даны исходные данные: n=20; x=0.5

программа:

program _;
uses crt;
var
x,z,s: real;
n,k: integer;
begin
clrscr;
writeln ('введите n,x');
readln (n,x);
k:=1;
while k<=n do begin
z:=S+(1/x + x * (S + (2 * x)/sqr(x) - xqr (k * п);
k:=k+1;
end;
writeln ('z=',z:2:2);
readln;
end.




есль не правильно...то..скажите пожалуйста что следует изменить?


заранее благодарна:tehnari_ru_102:

 

[Vladimir_S]

есль не правильно...то..скажите пожалуйста что следует изменить?

Практически, всё. Ошибок очень много.
А для начала - найдите способ показать запись функции как следует, потому что из описания я, например, мало что понял. В частности, совсем не понял, к чему относится значок первого умножения

под ним k=1) * 2x /

Наберите в Word'е, или напишите и сфотографируйте ну и т.п.

 

[павля]

воть....формула

 

[Vladimir_S]

воть....формула

Тогда так:

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, впадаю в тихое бешенство в адрес этих горе-преподавателей. Ведь ничего не стОит найти задачку, где цикл с пред- (пост-) условием реально облегчит решение, так нет же! Только отбивают у ребят интерес к программированию. Дебилы!
Извините...

 

[павля]

спасибочки громадное)))