Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 38 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

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

Рубрика: 

38
да
вывод
результатов
a = 1/iStart
S = S + a
i = i + Step
a = 1/i
ввод Eps , Step, iStart
начало
S=0, i=iStart
a < E
p
s
конец
нет
3) i = iStart;
4) a = 1/iStart;
5) если a < Eps, перейти на п.10;
6) S = S + a;
7) i = i + Step;
8) a = 1/ i;
9) перейти на п.5;
10) вывод результата.
Схема алгоритма.
Графическая схема алгоритма приведена на рисунке 2.
Рис.2. Принципиальная схема циклического алгоритма с "предусловием".
Запись алгоритма на языке Паскаль (операторная запись алгоритма).
Program ExampCircle1;
Var
i, iStart, Step : integer;
S, a, Eps : real;
Begin
{ Ввод исходных данных }
Writeln('Введите значения переменных iStart, Step, Eps:');
Readln(iStart, Step, Eps);
{ инициализация } 
  3) i = iStart;
  4) a = 1/iStart;
  5) если a < Eps, перейти на п.10;
  6) S = S + a;
  7) i = i + Step;
  8) a = 1/ i;
  9) перейти на п.5;
  10) вывод результата.
Схема алгоритма.
Графическая схема алгоритма приведена на рисунке 2.


                                    начало



                         ввод Eps , Step, iStart



                               S=0, i=iStart



                                a = 1/iStart



                                                      нет
                                  a < Eps

                                             да
                                                                 вывод
                                 S=S+a                           результатов

                                i = i + Step

                                                                  конец
                                   a = 1/i


               Рис.2. Принципиальная схема циклического алгоритма с "предусловием".

Запись алгоритма на языке Паскаль (операторная запись алгоритма).
 Program ExampCircle1;
   Var
    i, iStart, Step : integer;
    S, a, Eps      : real;
   Begin
    { Ввод исходных данных }
    Writeln('Введите значения переменных iStart, Step, Eps:');
    Readln(iStart, Step, Eps);
    { инициализация }

                                                                                      38

Страницы