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

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

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

Вариант 4

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

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

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

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

при x < 1.4

при x = 1.4

при x > 1.4,

где a = 1.65

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

нет

нет

да

да

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

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

program lab_2;

const a=1.65;

var x, q :real;

Begin

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

Read (x);

if x<1.4 Then q:= pi*sqr(x)-7/sqr(x)

else if (x=1.4) Then

q:=a*exp(3*ln(x))+7*sqrt(x)

Else

q:=ln(x+7*sqrt(abs(x+a)));

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

End.