Реферат: Лабораторная работа №6

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

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

Б

y

Программа на 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

Министерство образования РФ

Рязанская государственная радиотехническая академия

Кафедра ВПМ

Отчет о

лабораторной работе № 6:

«Проектирование программ циклической структуры

с известным числом повторений»

Выполнил: ст. гр. 316

Позднышев А.А.

Проверил: Баринов В.В.

Рязань 2004