→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Pascal Операторы цикла 
Автор Сообщение
Администратор
Аватара пользователя

Регистрация: 03.11.2007
Сообщения: 559
Откуда: Украина
Специальность:

Репутация: 6 [ ? ]
Сообщение Pascal Операторы цикла
Вычислить с точностью до e (e>0) каждую внутреннюю сумму, определить количество слагаемых, вывести промежуточные результаты:



Математическое решение
Каждая внутренняя сумма есть суммой геометрической прогрессии
Знаменатель геометрической прогрессии:



Алгоритм в виде диаграммы действий

Текст программы
program prg3;
{ http://nataliya.kiev.ua }
const n=5;
var
x,k,m:integer;
e,s,d,l:real;
begin
writeln('Введите точность:');
write('E=');
readln(e);
for x:=1 to n do
begin
writeln('x=',x);
k:=1;
l:=sqr(x)/2;
repeat
l:=-l*x/((k+1)*(k+2));
d:=d+l;
write(l:11:6);
k:=k+1;
m:=m+1;
until abs(l)<e;
writeln;
s:=s+d;
write('s',x,'=',d:0:7);
writeln(' n',x,'=',k-1)
end;
Writeln;
writeln('Количество слагаемых:',m);
Writeln('S=',s:0:8);
readln;
end.
Результат работы программы
Введите точность:
E=0.1
x=1
-0.083333
s1=-0.0833333 n1=1
x=2
-0.666667 0.111111 -0.011111
s2=-0.6500000 n2=3
x=3
-2.250000 0.562500 -0.084375
s3=-2.4218750 n3=3
x=4
-5.333333 1.777778 -0.355556 0.047407
s4=-6.2855787 n4=4
x=5
-10.416667 4.340278 -1.085069 0.180845 -0.021529
s5=-13.2877213 n5=5

Количество слагаемых:16
S=-22.72850832

Введите точность:
E=0.001
x=1
-0.083333 0.006944 -0.000347
s1=-0.0767361 n1=3
x=2
-0.666667 0.111111 -0.011111 0.000741
s2=-0.6426620 n2=4
x=3
-2.250000 0.562500 -0.084375 0.008438 -0.000603
s3=-2.4067022 n3=5
x=4
-5.333333 1.777778 -0.355556 0.047407 -0.004515 0.000322
s4=-6.2745984 n4=6
x=5
-10.416667 4.340278 -1.085069 0.180845 -0.021529 0.001922 -0.000133
s5=-13.2749522 n5=7

Количество слагаемых:25
S=-22.67565101
Теория к программе
Операторы цикла
В языке программирования Паскаль реализованы три типа операторов цикла:
- цикл с параметром FOR .. TO/DOWNTO .. DO;
- цикл с предусловием WHILE .. DO;
- цикл с постусловием REPEAT .. UNTIL.
Цикл с параметром (счетчиком)
Общий вид:
FOR <управляющая переменная,i>:=<начальное значение,n0> TO <конечное значение,nf>
DO <оператор,S>;
Цикл с предусловием
Общий вид:
WHILE <логическое выражение,V> DO <оператор,S>
Цикл с постусловием
Общий вид :
REPEAT <оператор,S1>;
<оператор,S2>;
.
.
<оператор,SN>;
UNTIL <логическое выражение,V>;



11.11.2007 18:50
Профиль ICQ
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
© 2013 «Форум программистов Украины»