Алгоритмические языки и программирование. Игошина Л.В. - 31 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

Исходными данными в этой задаче являются значения a,b и h.
Начальное значение х принимаем равным а (х:=а). Каждое следующее
значение х вычисляется по формуле х:=х+h. Вычисления функции Y для
новых значений х заканчиваются, когда значение х становится больше, чем
заданное значение b.
Схема алгоритма и программа вычислений зависит от того, какой
оператор цикла используется в программе. Рассмотрим три различных
варианта решения поставленной задачи.
Вариант 1
Схема алгоритма с использованием цикла While ... Do
нет
да
Текст программы
{Лабораторная работа 3}
{Программирование циклов с использованием оператора WHILE}
{Студенты гр. ..... Фамилии …}
Uses crt; {Подключение стандартного модуля TP}
Var x,y,H,A,B: real;
BEGIN Clrscr; { Очистка экрана}
Writeln(' Введите A B H'); read(A,B,H);
x:=A;
While x<=B Do
Begin
if (6*x*x-x*x*x)<=0 then
Начало
Ввод
a, b, h
x := a
Пока
x ≤ b
6x
2
-x
3
>0
Вычисление
F
x := x+h
Вывод
F
Вывод
сооб-
щ
ения
Конец
А
А 
     Исходными данными в этой задаче являются значения a,b и h.
     Начальное значение х принимаем равным а (х:=а). Каждое следующее
значение х вычисляется по формуле х:=х+h. Вычисления функции Y для
новых значений х заканчиваются, когда значение х становится больше, чем
заданное значение b.
     Схема алгоритма и программа вычислений зависит от того, какой
оператор цикла используется в программе. Рассмотрим три различных
варианта решения поставленной задачи.
                                 Вариант 1
            Схема алгоритма с использованием цикла While ... Do


                                        6x2-x3     нет
              Начало                     >0
                                             да
              Ввод                    Вычисление             Вывод
              a, b, h                    F                   сооб-
                                                             щения

                                                      А
                                        Вывод
              x := a                     F
                                                            Конец
                            А
              Пока
              x≤b                       x := x+h



                                Текст программы
              {Лабораторная работа 3}
   {Программирование циклов с использованием оператора WHILE}
            {Студенты гр. ..... Фамилии …}
 Uses crt; {Подключение стандартного модуля TP}
 Var x,y,H,A,B: real;
 BEGIN        Clrscr; { Очистка экрана}
  Writeln(' Введите A B H'); read(A,B,H);
  x:=A;
  While x<=B Do
   Begin
    if (6*x*x-x*x*x)<=0 then

Страницы