Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → Обчислення квадратного кореня за рекурентною формулою
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися
Допоможіть будь ласка зробити завдання по лабораторній
igormyakota
Ви уже щось пробували робити? Із чим саме виникли проблеми?
я не можу зрозуміти як реалізувати рекурентну формулу допоможіть з цим чи допоможіть знайти х0 ну і а
Допомагаю знайти a:
readln(a);Тепер легше?
igormyakota
Взагалі, можна взяти будь-яке х0, наприклад нехай воно дорівнює а. Що стосується рекурентної формули, то вона реалізовується через цикл. На кожній ітерації циклу ви берете попереднє значення х та вираховуєте на його основі наступне. І так до тих пір, поки різниця між попереднім та наступним значенням не буде менша за епсілон. Епсілон можна задати прямо в коді як константу.
так ???
var a,xn,x0,e:real;
begin
write('a>=0 a=');
read(a);
write('e>0 e=');
read(e);
x0:=1;
xn:=0;
while abs(xn-x0)>e do
begin
xn:=x0;
x0:=(xn+a/xn)/2;
end;
writeln('xn=',xn:0:5);
write('x^0.5=',sqrt(a):0:5);
end.а можете допомогти з блок схемою ?
так ???
Вибачте, це ваше завдання і ваша програма. Якщо вона вас задовольняє - то й добре. Якщо ні - то скажіть, в чому саме. Ми за вас не відгадаємо, що для вас неправильно.
var ... end.
Тег code використовуйте, будь ласка.
а можете допомогти з блок схемою ?
Ось тут є купа порад. А в цілому - блок-схема складається ДО написання програми, а не після.
igormyakota
Ніяких помітних помилок у вашій програмі немає. І побудована тим сайтом блок-схема також виглядає цілком задовільно.
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися