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

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
suprut
0 / 0 / 0
Регистрация: 27.01.2013
Сообщений: 7
#1

нужно найти ошибку в программе, буду в крайней степени благодарен - Pascal ABC

11.02.2013, 16:36. Просмотров 293. Ответов 4
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program pr6n5;
var z,c,x:integer;
s,e,a:real;
begin
writeln('vvedite x');
readln(x);
s:=0;
z:=2;
e:=0.0001;
c:=sqr(x);
a:=sqr(x)/2;
while abs(a)<e do
begin
z:=z+2;
c:=c*sqr(x);
a:=c/z;
s:=s+a;
end;
writeln('s=',s);
end.
задание вычислить приближенное значение бесконечной суммы с заданной точностью.ошибка в том, что сумму выдаёт в любом случае нуль, а так быть не должно.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.02.2013, 16:36
Я подобрал для вас темы с готовыми решениями и ответами на вопрос нужно найти ошибку в программе, буду в крайней степени благодарен (Pascal ABC):

Нужно найти сумму и кол-во эл. массива буду благодарен - Pascal
Найти сумму и кол-во елементов массива АН,содержащего N эллементов, удовлетворяющих условию 0&lt;AHi&lt;B.предусмотреть защиту от ввода...

Ребята, задача по паскалю, нужно сдать до завтра, а эту тему я пропустил:( буду благодарен - Pascal
Выведите на экран таблицу значений функции y=ax для х, изменяющегося от a до b с шагом h.

процедуры буду благодарен=(( - Pascal
Помогите пожалуста буду очень благодарен. Задание 1. Составить программу решения задачи, используя подпрограммы-процедуры. Задание...

буду очень благодарен - Pascal
Дан целочисленный массив x размера n. Упорядочить по невозрастанию те элементы массива, которые не находятся между минимальным и...

Семестровой по паскалю, буду очень благодарен :) - Pascal
12 Вариант. Совсем дуб дубом в программировании;)

2 задачки 9 класса! Буду сильно благодарен! - Pascal
Задание 1 С клавиатуры вводятся 2 однозначных целых числа a и b. Посчитать произведение всех вещественных чисел от a до b, с шагом 0,5....

4
Puporev
Модератор
53844 / 41477 / 14582
Регистрация: 18.05.2008
Сообщений: 97,215
11.02.2013, 16:40 #2
Цитата Сообщение от suprut Посмотреть сообщение
задание вычислить приближенное значение бесконечной суммы с заданной точностью
Так формулу ряда нужно....

Добавлено через 1 минуту
Ну и сразу ляп
Pascal
1
while abs(a)<e do
Нужно сменить < на >
0
suprut
0 / 0 / 0
Регистрация: 27.01.2013
Сообщений: 7
11.02.2013, 16:46  [ТС] #3
вот формула)
0
Миниатюры
нужно найти ошибку в программе, буду в крайней степени благодарен  
suprut
0 / 0 / 0
Регистрация: 27.01.2013
Сообщений: 7
11.02.2013, 17:27  [ТС] #4
Цитата Сообщение от Puporev Посмотреть сообщение
Так формулу ряда нужно....

Добавлено через 1 минуту
Ну и сразу ляп
Pascal
1
while abs(a)<e do
Нужно сменить < на >
а как насчет самой программы, какая в ней ошибка, почему ноль?
0
Puporev
Модератор
53844 / 41477 / 14582
Регистрация: 18.05.2008
Сообщений: 97,215
11.02.2013, 17:39 #5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program pr6n5;
var x,e,t,s:real;
    n:integer;
begin
repeat
writeln('vvedite |x|<1 x=');
readln(x);
until abs(x)<1;
e:=0.0001;
n:=1;
t:=1;
s:=0;
while abs(t)/n>e do
 begin
  t:=t*x*x*x*x;
  s:=s+t/n;
  n:=n+1;
 end;
writeln('s=',s:0:6);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.02.2013, 17:39
Привет! Вот еще темы с ответами:

Паскаль тупому ! Буду очень благодарен! Спасибо ) - Pascal ABC
1. Решение задач с использованием цикла с предусловием: -Дано трехзначное число. Используя одну операцию деления нацело.вывести первую...

Pascal ABC Графика . Буду благодарен! Переоформил по требованию модератора - Pascal ABC
Изобразите линии заданные неявно уравнением f(x,y)=0. \frac{{x}^{2}}{25}+\frac{{y}^{2}}{4}-1

Буду очень благодарен тем кто сможет написать нужный код) - Pascal
ksr *psr, если mi&gt;0 yi = (kmin+pi), если mi&lt;0 |pi*kmin|, если mi=0 ksr, psr – средние значения массивов, kmin –...

Дано целое число N (> 0). Найти сумму 1в N степени + 2 в степени N−1 + … + Nв 1 степени. - Pascal ABC
Дано целое число N (&gt; 0). Найти сумму 1в N степени + 2 в степени N−1 + … + Nв 1 степени. в авс паскале


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

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

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