Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
dimk86
0 / 0 / 0
Регистрация: 28.12.2014
Сообщений: 4
1

Вычислить значение выражения

29.12.2014, 15:02. Просмотров 831. Ответов 4
Метки нет (Все метки)

С помощью repeat. Помогите очень нужно.
0
Миниатюры
Вычислить значение выражения  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.12.2014, 15:02
Ответы с готовыми решениями:

Вычислить значение выражения
1)S=\sum_{n=1}^{M}cos(nx)/{n}^{2}; 2)S=\sum_{a>0}a ,где i=1,N;

Вычислить значение выражения
Всем привет, трудности с примерамы( Лаб.Работа №8 Программирование циклических...

Вычислить значение выражения
можно ли записать c:=longint(a+b);writeln(b*a*0.1);writeln(0.1*a*b);

Вычислить значение выражения
Ребят, помогите. срочно нужно. Обчислить z=9(3,4)+g(4,5)+g(7,8), где ...

Вычислить значение выражения
написать программу с помощью функции

4
Krasme
3162 / 2557 / 885
Регистрация: 02.02.2014
Сообщений: 7,054
29.12.2014, 15:05 2
dimk86, ниже у вас текст программы, кто мешает набрать его? пусть с while.. выложите текст сюда, вам помогут исправить на repeat
1
dimk86
0 / 0 / 0
Регистрация: 28.12.2014
Сообщений: 4
29.12.2014, 15:07  [ТС] 3
Программа с while.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program lab7;
uses crt;
var F,x,S,eps:real;
n:integer;
begin
clrscr;
write ('vvedite x=');
readln(x);
write ('vvedite eps=');
readln(eps);
F:=0; n:=1; S:=-1/2*((sin(2*x))/(2*n+1));
while abs(S)>eps do
begin
F:=F+S;
n:=n+1;
S:=-1/2*((sin(2*x))/(2*n+1));
end;
write ('pri x=',x:4:2,'eps=',eps:4:4,'summa F=',F:4:2);
readln;
end.
0
Puporev
Модератор
54711 / 42119 / 29083
Регистрация: 18.05.2008
Сообщений: 99,407
29.12.2014, 15:14 4
Лучший ответ Сообщение было отмечено dimk86 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
F:=0;
n:=1;
S:=-1/2*((sin(2*x))/(2*n+1));
repeat
F:=F+S;
n:=n+1;
S:=-1/2*((sin(2*x))/(2*n+1));
until abs(S)<eps;
1
Cyborg Drone
04.01.2015, 00:15     Вычислить значение выражения
  #5

Не по теме:

dimk86, фотографии текста запрещены. Прочитайте правила форума и оформляйте Ваши сообщения согласно этих правил.

0
04.01.2015, 00:15
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.01.2015, 00:15
Привет! Вот еще темы с ответами:

Вычислить значение выражения
помогите перевести это в паскаль.

Вычислить значение выражения
Условие: &quot;Использовать оператор цикла параметром. Массивы не использовать&quot; ...

Вычислить значение выражения
Y=(5!-3^5)/(35+(4!-3^4)/(34+(3!-3^3)/(3!-3^3)/(33+(2!-3^2)/(32+(1!-3)/(31+x)))))...


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

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

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