Реферат: Лабораторная работа №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;

--> ЧИТАТЬ ПОЛНОСТЬЮ <--