лабораторная работа / вар18 / ЦИКЛИЧЕСКИЕ АЛГОРИТМЫ

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

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

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

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

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

ЦИКЛИЧЕСКИЕ АЛГОРИТМЫ

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

Проверил

2006

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

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

0 x < -1

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

z = 0 x >1

Начало

Ввод x;

Sin((+1)/n)0

z=a*Sin((+1)/n) z=cos(i+1/n)

Вывод z

Конец.

program lab2;

Var z,a,n,i:real;

Begin

Write(‘a=’);

Writeln(‘n=’);

Writeln(‘i=’);

Read(a,n,i);

If sin((i*i+1)/n)>=0 then z:=a*sin((i*i+1)/n)

else z:=cos(i+1/n);

Writeln(‘z=’,z:6:3);

end.

i=5 z=0.155,

i=1 z=0.06,