лабораторная работа / вар7 / лаб2

Балаковский институт техники технологий и управления

Лабораторная работа №2

Вариант 7

Выполнил студент УИТ-2в

Балаково 2007 год.

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

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

при bx < 1

при bx = 1

при bx > 1,

где b = 1.5.

Блок-схема алгоритма представлена на рис.2

нет

нет

да

да

Рис.2. Блок-схема алгоритма

Текст программы:

program lab_2;

const b = 1.5;

var bx, q :real;

Begin

Writeln ('Введите bx');

Read (bx);

if bx<1 Then q:= bx-ln(bx)/ln(10)

else if (bx =1) Then

q:=1

Else

q:=bx+ ln(bx)/ln(10);

Writeln ('Q=',q:1:3);

End.