Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
suprut
0 / 0 / 0
Регистрация: 27.01.2013
Сообщений: 7
#1

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

11.02.2013, 16:36. Просмотров 302. Ответов 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
Ответы с готовыми решениями:

Нужно найти сумму и кол-во эл. массива буду благодарен
Найти сумму и кол-во елементов массива АН,содержащего N эллементов,...

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

Нужно найти ошибку в программе, встает и не работает дальше
Program lab8; Var a: array of char; b: array of char; konstr, kontxt,...

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

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

4
Puporev
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,518
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
Модератор
54217 / 41850 / 28922
Регистрация: 18.05.2008
Сообщений: 98,518
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
11.02.2013, 17:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.02.2013, 17:39

2 задачки 9 класса! Буду сильно благодарен!
Задание 1 С клавиатуры вводятся 2 однозначных целых числа a и b. Посчитать...

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

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


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

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

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