лабораторная работа / lab3 вар 16

БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ

ФАКУЛЬТЕТ ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ

КАФЕДРА УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ

ЛАБОРАТОРНАЯ РАБОТА №3

по дисциплине

программирование и основы алгоритмизации

Выполнил ст. гр. УИТ-21

Принял ассистент каф. УИТ

.____________

«____»_____________2006г.

Балаково 2006

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

Задание: Вычислить и вывести на экран значение заданной функции:

Sin (x)+1 X>0 x (-1;0,6) deltex=0,2

Z= -x^1/2 X<0

2 X=0

S:=sin(x)+1

S:= -x^1/2

S:= 2

program lab31;

var x,s,x0,xk,dx:real;

begin

read(x0,xk,dx);

x:=x0;

While x<xk do begin

if x>0 then s:=sin(x)+1

else if x<0 then s:=sqrt(-x)

else if x=0 then s:=2;

Writeln('s=',s:8:3);

x:=x+dx;

end;

end.

S:= 2

S:=sin(x)+1

S:= -x^1/2

program lab32;

var x,s,x0,xk,dx:real;

begin

readln(x0,xk,dx);

x:=x0;

begin repeat

if x>0 then s:=sin(x)+1

else if x<0 then s:=sqrt(-x)

else if x=0 then s:=2;

Writeln('s=',s:8:3,'x=',x:8:3);

x:=x+dx;

until x>xk ;

end;

end.

S:= 2

S:=sin(x)+1

S:= -x^1/2

X:=x+dx

program lab33; Таблица функции S(x)

const dx=0.2; x s

var x,s,x0,xk,d:real;n,i:integer; -1.000 1.000

begin -0.800 0.894

readln(x0,xk); -0.600 0.775

d:=(xk-x0)/dx; -0.400 0.632

n:=trunc(d)+1; -0.200 0.447

x:=x0; -0.000 0.000

For i:=1 to n do 0.200 1.199

Begin 0.400 1.389

if x>0 then s:=sin(x)+1 0.600 1.565

else if x<0 then s:=sqrt(-x)

else if x=0 then s:=2;

Writeln('s=',s:8:3,'x=',x:8:3);

x:=x+dx;

end;

end.