Подскажите пожалуйста, верна ли программа?
задача:
решить задачу вычесления значения функций, содержащей сумму. При вычислении суммы используется цикл с предусловием. 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: |
Цитата:
А для начала - найдите способ показать запись функции как следует, потому что из описания я, например, мало что понял. В частности, совсем не понял, к чему относится значок первого умножения Цитата:
|
Вложений: 1
воть....формула:)
|
Вложений: 4
Цитата:
Код:
program _; Вложение 32901 Ну и конечно, когда вижу задания типа "использовать цикл с предусловием" там, где он как седло на корове, а естественно было бы применить простой for...to...do...begin...end, впадаю в тихое бешенство в адрес этих горе-преподавателей. Ведь ничего не стОит найти задачку, где цикл с пред- (пост-) условием реально облегчит решение, так нет же! Только отбивают у ребят интерес к программированию. Дебилы! Извините... |
спасибочки громадное:))))
|
Часовой пояс GMT +4, время: 18:36. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.