Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Petro29
8 / 8 / 3
Регистрация: 30.04.2016
Сообщений: 303
#1

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

13.06.2016, 14:09. Просмотров 124. Ответов 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. А получилась не такая сумма. Почему? Значит в программе у меня что то не так. А что не так – не сумел определить.
Вы могли бы разобраться?
http://www.cyberforum.ru/turbo-pascal/thread694126.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2016, 14:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Почему не печатаются значения слагаемых? (Turbo Pascal):

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

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

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

Никак не могу понять почему идет ошибка при подсчете среднего значения
Вычислить среднее арифметическое кодов элементов отсортированного массива,...

Все значения отлично печатаются, а значение из hidden field не печатается!
Есть некая страница, у которой есть контролы: text, etc а также есть скрытое...

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

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

Почему от перемены мест слагаемых меняется сумма?
В общем массиве кода страницы имеется вот такой простой HTML код: &lt;p...

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

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


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

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

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