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

		нет		нет
		да		да
	Рисунок 5. Алгоритм 31-го варианта

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

PROGRAM Lab_2;

{ Лабораторная работа N 2 Вариант N 31

А.Я.Умненькая, ст. гр. Я-007 }

CONST

C=2.13;

VAR

A,B,F,R:real;

BEGIN

Writeln('Значения аргументов A и B?');

Readln(A,B);

R:=A+B;

if R>C then

F:= Sin(R)+1.0/R

else

if R<C then

F:= cos(A)-ln(-R)

else

F:= exp(R)/C;

Writeln(' Рез-т: ',F:8:4);

END.

Результаты расчетов

Рез-т: -0.4154

Рез-т: 0.2328

Рез-т: 3.9506

Варианты заданий

Таблица 11. Варианты заданий лабораторной работы № 2