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

павля · 18.03.2011, 22:21

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

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.

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

?

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

Vladimir_S · 18.03.2011, 22:43

Цитата:

Сообщение от павля

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

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

Цитата:

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

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

павля · 18.03.2011, 23:11

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

Vladimir_S · 19.03.2011, 17:22

Цитата:

Сообщение от павля

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

Тогда так:

Код:

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.

Вообще-то приведенный вид функции вызывает некоторое недоумение. Вот вы пишете:

. Но ведь это то же самое, что

, или

! Просто последние два варианта записаны по-человечески.
Название: offtopic.gif
Просмотров: 125

Размер: 925 байт

Ну и конечно, когда вижу задания типа "использовать цикл с предусловием" там, где он как седло на корове, а естественно было бы применить простой for...to...do...begin...end, впадаю в тихое бешенство в адрес этих горе-преподавателей. Ведь ничего не стОит найти задачку, где цикл с пред- (пост-) условием реально облегчит решение, так нет же! Только отбивают у ребят интерес к программированию. Дебилы!
Извините...

павля · 19.03.2011, 20:43

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

)

18.03.2011, 22:21	#1 (permalink)
павля незнайка:) Регистрация: 29.01.2011 Сообщений: 124 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 152	Подскажите пожалуйста, верна ли программа? задача: решить задачу вычесления значения функций, содержащей сумму. При вычислении суммы используется цикл с предусловием. 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. есль не правильно...то..скажите пожалуйста что следует изменить? заранее благодарна

18.03.2011, 23:11	#3 (permalink)
павля незнайка:) Регистрация: 29.01.2011 Сообщений: 124 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 152	воть....формула Миниатюры

19.03.2011, 20:43	#5 (permalink)
павля незнайка:) Регистрация: 29.01.2011 Сообщений: 124 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 152	спасибочки громадное)

18.03.2011, 22:21
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Дам вам ссылки на темы, которые имеют что то общее с вашей темой Подскажите пожалуйста по флеш памяти Подскажите, пожалуйста, глупому Подскажите, пожалуйста, правильное расположение

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