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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: Google [Bot]


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

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