Задача с вложенными корнями

MrSTEP · 22.03.2011, 00:04

Здравствуйте. Была нам задана задача, написать на паскале задачу для вычисления следующего выражения:

Возникли некоторые разногласия среди студентов, как решать. Вроде и решили своими способами, а проверить никак - ответ никто не знает. Даже препод. Вот мой вариант программы, вроде похож на правду:

Код:

uses crt;
var y:real; x:integer;
begin clrscr;
      x:=99;
      y:=0;
      while (x>=3) do begin
            y:=sqrt(y+sqrt(x));
            x:=x-3;
      end;
      writeln (y:4:2);
      readkey;
end.

Но хотелось бы узнать мнение более опытных людей со стороны, насколько правильно решена задача. Заранее благодарю

kreol · 22.03.2011, 00:39

хм что-то не то.
если начать проверять пошагово то после 2 итерации будет 3,59...
т.е. по идее из формулы корень(96 + корень(99)) = 3,59
на самом же деле при подсчете на калькуляторе 10,29... у тебя же при первом уже проходе вычисляется корень(корень 99) хотя должен просто корень(99)

kreol · 22.03.2011, 00:52

вот верная прога. проверял на калькуляторе и дебаге ))

Код:

uses crt;
var y:real; x:integer;
begin clrscr;
      x:=99;
      y:=0;
      while (x>=3) do begin
            y:=sqrt(x+y);
            x:=x-3;
      end;
      writeln (y:4:2);
      readkey;
end.

MrSTEP · 23.03.2011, 00:16

Да, я уже подумал о том, что внутренний корень надо убрать

спасибо, все верно

22.03.2011, 00:04	#1 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	Задача с вложенными корнями Здравствуйте. Была нам задана задача, написать на паскале задачу для вычисления следующего выражения: Возникли некоторые разногласия среди студентов, как решать. Вроде и решили своими способами, а проверить никак - ответ никто не знает. Даже препод. Вот мой вариант программы, вроде похож на правду: Код: uses crt; var y:real; x:integer; begin clrscr; x:=99; y:=0; while (x>=3) do begin y:=sqrt(y+sqrt(x)); x:=x-3; end; writeln (y:4:2); readkey; end. Но хотелось бы узнать мнение более опытных людей со стороны, насколько правильно решена задача. Заранее благодарю

22.03.2011, 00:52	#3 (permalink)
kreol Member Регистрация: 27.02.2010 Сообщений: 659 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1312	вот верная прога. проверял на калькуляторе и дебаге )) Код: uses crt; var y:real; x:integer; begin clrscr; x:=99; y:=0; while (x>=3) do begin y:=sqrt(x+y); x:=x-3; end; writeln (y:4:2); readkey; end.

22.03.2011, 00:04
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Интернет сейчас популярная штука много похожего создается Задача по С + + Задача по С++ Задача Задача на Паскале... Задача

22.03.2011, 00:39	#2 (permalink)
kreol Member Регистрация: 27.02.2010 Сообщений: 659 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1312	хм что-то не то. если начать проверять пошагово то после 2 итерации будет 3,59... т.е. по идее из формулы корень(96 + корень(99)) = 3,59 на самом же деле при подсчете на калькуляторе 10,29... у тебя же при первом уже проходе вычисляется корень(корень 99) хотя должен просто корень(99)

23.03.2011, 00:16	#4 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	Да, я уже подумал о том, что внутренний корень надо убрать спасибо, все верно

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