0

При запуске в консоль выводятся значения g, каждый раз с увеличенной sigma на 0.1. С каждым разом g уменьшается пока не доходит до нуля (чем больше sigma, тем меньше g). В итоге, дойдя до нуля цикл не останавливается, хотя условие выполнения цикла - пока g>1. Что я делаю не так?

var g,sigma:real;
x,i:integer;
 begin

  x:=100;
  sigma:=0;

   repeat
   sigma:=sigma+0.1;
   g:=1/(2.506628275*sigma)*power(2.718281828,(-1*sqr(x))/(2*sqr(sigma)));
   g:=roundto(g,-4);
   writeln(g:10,4);  //g перестаёт изменятся дойдя до значения 0.0E+00004 , что, как 
   until g>1;        //я понимаю, больше 1. Но цикл продолжается, хотя значение  
                     //остаётся
 readln;
 end.
9
  • 0.0E+00004 > 1 - все правильно?
    – Gorets
    7 апр 2012 в 19:05
  • А что это значит?
    – ололо
    7 апр 2012 в 19:12
  • да я просто думаю, что твое условие некогда не выполняется
    – Gorets
    7 апр 2012 в 19:15
  • Не силён в паскале, скажите power и roundto - это стандартные функции или Ваши? Просто ideone ругается на них [ideone.com/Yl2CS][1] [1]: ideone.com/Yl2CS
    – CyberCoder
    7 апр 2012 в 19:20
  • Это стандартные ф-ии. Но писал я в Delphi. Там они объявлены в модуле Math
    – ололо
    7 апр 2012 в 19:28

2 ответа 2

2

Вот щас тупо взял в Ехеl переложил формулу и как я понял у вас g всегда < 1

1
  • мда... Ок, извините, видимо ошибка моя. Буду переделывать.
    – ололо
    7 апр 2012 в 19:35
0

А попробуйте поменять var g,sigma:real; на var g,sigma:double;. Но точно не уверен.

4
  • Не сработало(
    – ололо
    7 апр 2012 в 19:06
  • Посмотри еще функцию округления g:=roundto(g,-4); Она же округляет до целого числа? 7 апр 2012 в 19:23
  • Нет. Здесь я хотел округлить g до 4-ёх знаков после запятой
    – ололо
    7 апр 2012 в 19:26
  • Попробуй программу без roundto. Интересно, как сработает. 7 апр 2012 в 19:34

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.