Рефераты - Афоризмы - Словари
Русские, белорусские и английские сочинения
Русские и белорусские изложения
 

Лабораторная работа №6

Работа из раздела: «Программирование и комп-ры»

Цель работы: Освоение правил составления программ циклической структуры с
параметром.

Задание № 17. Вычислить значение функции [pic], по  указанному  графику  для
значений аргумента [pic].
[pic]Блок-схема.
                                 [pic][pic]



                          Программа на Turbo Pascal


{**************************************************************** }
{Программа: lab6, Лаб. раб. №6, Вар. 17
                          }
{Цель: вычисление значения ф-ции f(x) с помощью оператора с параметром }
{ оператора и правил программирования разветвляющихся алгоритмов.        }
{Описание параметров и переменных:
                        }
{x –переменная цикла, y -значение функции, i – параметр цикла
       }
{Требуемые подпрограммы: нет.
                            }
{Программист: Позднышев А.А., гр. 316
                       }
{Проверил: Баринов В.В., каф. ВПМ
                          }
{Дата написания: 28 февраля 2004 г.
                             }
{*****************************************************************}

program lab6;
var i:integer;
    x,y:real;
begin
x:=-3;
      for i:=1 to 12 do
          begin
               if x<0 then y:=sqrt(3)*x/3;
               if x>1 then y:=ln(x);
               if(x>=0) and (x<=1) then y:=0;
               writeln('y=',y);
               x:=x+0.5;
          end;
end.



Результаты вычисления программы:

y=-1.7320508076E+00
y=-1.4433756730E+00
y=-1.1547005384E+00
y=-8.6602540379E-01
y=-5.7735026919E-01
y=-2.8867513460E-01
y= 0.0000000000E+00
y= 0.0000000000E+00
y= 0.0000000000E+00
y= 4.0546510811E-01
y= 6.9314718056E-01
y= 9.1629073188E-01


-----------------------
                                   Начало

                                    Конец

                                    x=0 x<=1

                                     x<0

                                    Конец

                                   X:= -3

                                   Вывод y

                                   Начало



ref.by 2006—2022
contextus@mail.ru