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

В чем ошибка программы?

10.12.2014, 00:00. Просмотров 314. Ответов 0
Метки нет (Все метки)

Разработка программ с использованием циклов c неизвестным числом повторений (само задание прикрепленно ниже).
Программа просто выводит "0". Что тут не так? Проверьте пожалуйста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var e,t,sm,smi:real;
    n:integer;
begin
e:=0.1;
n:=1;
while abs(sm-smi)>=e do{пока модуль разности 2х соседних значений превышает точность}
  begin
    smi:=sm;{запоминаем предыдущее значение}
    t:=n+(exp(ln(-1)*n)*exp(ln(n)*3));{рекуррентно считаем числитель}
    sm:=t/(exp(ln(3)*n));{новая сумма}
    n:=n+1;
  end;
write(sm);
readln
end.
0
Миниатюры
В чем ошибка программы?  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.12.2014, 00:00
Ответы с готовыми решениями:

В чем ошибка программы?
В чем ошибка программы, помогите исправить. Наверно в основной программе я неправильно обращаюсь к...

В чем ошибка программы?
program si; uses crt; var n,k,i,s:integer; begin clrscr; repeat writeln('Введите k>0,n>0',k,n...

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

Ошибка "операнды имеют неприводимые типы" в чем ошибка?
Привет форумчане! Скажите в чем ошибка? при компилировании, выходит ошибка "операнды имеют...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2014, 00:00

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

в чем ошибка?
program pr3; var x,y,w,t:real; n:integer; begin write('введите w'); write('введите t'); ...

В чем ошибка?
Помогите, пожалуйста, найти ошибку! Задача была следущая: "по координатам вершин треугольника...

в чем ошибка?
Программа, которая почему-то не работает var : i,z,n,sum,sum2 : integer; per,vtor : boolean; n...

В чем ошибка
Модуль unit zip1; interface procedure yyy(var s,t,y:real); function z(a,b,c:real):real;...


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

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

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