Материалы сайта
Это интересно
Лабораторная работа №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 Начало