Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Petro29
8 / 8 / 0
Регистрация: 30.04.2016
Сообщений: 183
#1

Почему не печатаются значения слагаемых? - Turbo Pascal

13.06.2016, 14:09. Просмотров 96. Ответов 1
Метки нет (Все метки)

Почему не печатаются значения слагаемых?
/А здесь результат суммы стоит нормально/
Вычислить сумму того же ряда с помощью цикла
С Предусловием (while).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program Summa;
uses Crt;
var  Eps:  real;
       S:  real;
       Y:  real;
        i:  integer;
begin
CrtScr;
    write(‘  Ввести Eps:  ‘  ,);
    readln (Eps);
    Y:=1;  {Первое слагаемое}
     S:=Y;  {Первое слагаемое в сумматоре}
     i:=0;  {Обнуление счётчика шагов}
    while abs(Y) >= Eps do
   begin { Начало тела цикла}
      i: = (1 + 2*i);  {Вычисляется номер текущего шага}
     Y: = 1 / Sqr(i);  {Подсчёт нового слагаемого}
      S: = S + Y;  {Увеличение суммы на слагаемое}
    end;
      writeln(‘  Сумма чисел =  ‘  ,  S: 6: 4);
      readln
end.

Вывод на экран:

Pascal
1
2
Ввести Epsilon:  0.008
Сумма чисел = 2.1360

Для шести слагаемых этого ряда Eps принимается <=0.008. Сумма должна получиться равной Y = 1.1921. А получилась не такая сумма. Почему? Значит в программе у меня что то не так. А что не так – не сумел определить.
Вы могли бы разобраться?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2016, 14:09
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Почему не печатаются значения слагаемых? (Turbo Pascal):

Не печатаются значения слагаемых - Turbo Pascal
Задача:Разбейте заданное число на 3 слагаемых всеми различными способами.Разбиение отличающиеся лишь порядком слагаемых ,разными не...

Представить число N в виде суммы M натуральных слагаемых так, чтобы сумма синусов слагаемых была максимальной - Pascal
Даны натуральные числа N и M. Нужно представить число N в виде суммы M натуральных слагаемых так, чтобы сумма синусов этих слагаемых была...

Посчитать сумму указанного в варианте ряда для заданного значения x и точности (количества слагаемых) - Pascal
Вот: у(х)=1-х+(Х*Х)/2!-(х*х*х)/3!+(х*х*х*х)/4!-......., abs(x)&lt;бесконечности z(x)=e^(-1)+b :wall::help::swoon::sorry:

Среди двухзначных чисел печатаются те числа, которые равны сумме своих цифр - Turbo Pascal
Помогите, пожалуйста, решить задачку. Написать программу, в которой среди двухзначных чисел печатаются те числа, которые равны сумме своих...

Никак не могу понять почему идет ошибка при подсчете среднего значения - Turbo Pascal
Вычислить среднее арифметическое кодов элементов отсортированного массива, имеющих индекс кратный трем. Не коды должны быть кратны 3, а...

Все значения отлично печатаются, а значение из hidden field не печатается! - Perl
Есть некая страница, у которой есть контролы: text, etc а также есть скрытое поле содержащее некое значение. По сабмиту вызывается...

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3555 / 2249 / 1150
Регистрация: 22.11.2013
Сообщений: 5,918
13.06.2016, 16:01 #2
Условие задания, которому не соответствует программа, предлагаете каждому читателю форума угадать самостоятельно?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2016, 16:01
Привет! Вот еще темы с ответами:

Создание и просмотр бинарных файлов: почему в результате работы программы компоненты печатаются не в том порядке? - C++
#include &lt;iostream&gt; #include &lt;stdlib.h&gt; #include &lt;fstream&gt; #include &lt;locale.h&gt; #include &lt;string&gt; #include &lt;set&gt; void...

Почему от перемены мест слагаемых меняется сумма? - HTML, CSS
В общем массиве кода страницы имеется вот такой простой HTML код: &lt;p class=&quot;comments&quot;&gt;Комментарии&lt;/p&gt; Стили для этого кода ...

Вычислить значения n-го слагаемого Q и суммы n слагаемых последовательности - C (СИ)
Здравствуйте. Помогите с задачкой. Язык Си. Для заданного преподавателем варианта задания составьте программу, которая вычисляет...

Программа, которая вычисляет значения n-го слагаемого Q и суммы n слагаемых последовательности S - MathCAD
Здравствуйте. Пожалуйста помогите написать программу, которая вычисляет значения n-го слагаемого Q и суммы n слагаемых последовательности...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru