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

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

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

Вариант 13

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

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

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

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

при i < 4

при 4 ≤i≤ 6

при i > 6,

где a = 2.1; b = 1.8; c = -20.5

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

нет

нет

да

да

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

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

program lab_2;

const a=2.1;

b=1.8;

c=-20.5;

var i, w :real;

Begin

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

Read (i);

if i<4 Then w:=a/i+b*sqr(i)+c

else if (i>=4) and (i<=6) Then

w:=i

Else

w:=a*i+b*exp(3*ln(i));

Writeln ('W=',w:1:3);

End.