Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Подскажите пожалуйста, верна ли программа? (http://www.tehnari.ru/f41/t49052/)

павля 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.




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


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

Vladimir_S 18.03.2011 22:43

Цитата:

Сообщение от павля (Сообщение 488011)
есль не правильно...то..скажите пожалуйста что следует изменить?

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

под ним k=1) * 2x /
Наберите в Word'е, или напишите и сфотографируйте ну и т.п.

павля 18.03.2011 23:11

Вложений: 1
воть....формула:)

Vladimir_S 19.03.2011 17:22

Вложений: 4
Цитата:

Сообщение от павля (Сообщение 488067)
воть....формула:)

Тогда так:
Код:

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.

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

павля 19.03.2011 20:43

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


Часовой пояс GMT +4, время: 18:36.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.