TURBO PASCAL:Учебное пособие. Терёхин В.В. - 56 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

Составители: 

Рубрика: 

56
не требуется объединять операторы в один составной, пото-
му что часть программы между служебными словами Repeat и
Until и так является его телом.
Примеры:
1)
Repeat
x: = x + 1 ;
Write('х= ', х);
У:= sin(х);
Write('у= ', у);
Until x= 100;
2)
Repeat
t:= t - 1;
Until t= 0;
Задача. Найти
∑
∞
=
1
3
1
i
i
с точностью e.
program p17;
var
S, е, х: real;
i: integer;
begin
Writeln('Введите точность');
Read(e);
S:= 0;
i:= 1;
Repeat
x:= l/(i*i*i) ;
S:= S + x;
i : = i + 1 ;
Until x < e;
Writeln(
‘
S= ' , S: 10: 8) ;
end. 
не требуется объединять операторы в один составной, пото-
му что часть программы между служебными словами Repeat и
Until и так является его телом.
        Примеры:
        1)
Repeat
   x: = x + 1 ;
   Write('х= ', х);
   У:= sin(х);
   Write('у= ', у);
Until x= 100;
        2)
Repeat
   t:= t - 1;
Until t= 0;

                     ∞
                           1
      Задача. Найти ∑         с точностью e.
                    i =1   i3
program p17;
var
   S, е, х: real;
   i: integer;
begin
   Writeln('Введите точность');
   Read(e);
   S:= 0;
   i:= 1;
   Repeat
       x:= l/(i*i*i) ;
       S:= S + x;
       i:=i + 1;
   Until x < e;
   Writeln(‘S= ' , S: 10: 8) ;
end.
                                                       56

Страницы