Реферат Лабораторная работа 6
Работа добавлена на сайт bukvasha.net: 2015-10-28Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
от 25%
Подписываем
договор
Цель работы: Освоение правил составления программ циклической структуры с параметром.
Задание № 17. Вычислить значение функции
|
Программа на 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
