лабораторная работа / вар18 / Лаба №2

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

САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

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

ЛАБОРАТОРНАЯ РАБОТА 2

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

Программирование алгоритмов разветвляющихся и с заданным числом повторений циклических структур на алгоритмическом языке TURBO PASCAL.

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

Проверил

2006

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

Задание: вычислить на ЭВМ значение переменных

0 x < -1

z = 1- abs(x) -1<= x <=1

z = 0 x >1

program lab2(input,output);

var z,x:real;

begin

write('x');

read(x);

if x<-1 then z:=0

Else if (x>=-1)and(x<=1) then z:=1-abs(x)

Else if x>1 then z:=0;

writeln('z=',z:8:6);

end.

X1= -2 Z1= 0

X2= 0.4 Z2= 0.6

X3= 2 Z3= -1

Блок – схема алгоритма:

1

2

3 нет 5 нет

4 да 6 да 7

Z = 0

Z = 1-asb(x)

Z = 0

8

9