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

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

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

Вариант 22

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

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

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

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

при x<0

при x0

где b=0.25

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

нет

да

да

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

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

program lab_2;

const b = 0.25;

var x, y :real;

Begin

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

Read (x);

if x<0 Then y:=b*exp(x*ln(2))+abs(x)

else y:=1/sqr(x+1);

Writeln ('Y=',y:1:3);

End.

1. Элементы равностороннего треугольника пронумерованы следующим образом: 1 — сторона a, 2 — радиус R₁ вписанной окружности (R₁ = a·(3)^1/2/6), 3 — радиус R₂ описанной окружности (R₂ = 2·R₁), 4 — площадь S = a²·(3)^1/2/4. Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данного треугольника.

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

program lab_2_2;

v

да

нет

нет

да

да

нет

да

ar z:real;

i:byte;

Begin

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

Read (i);

Writeln ('Введите значение');

Read (z);

Case i of

1:begin

writeln ('R1=',z*sqrt(3)/6:1:3);

writeln ('R2=',2*z*sqrt(3)/6:1:3);

writeln ('S=',sqr(z)*sqrt(3)/4:1:3);

End;

2:begin

writeln ('a=',z/sqrt(3)/6:1:3);

writeln ('R2=',2*z:1:3);

writeln ('S=',sqr(z/sqrt(3)/6)*sqrt(3)/4:1:3);

end;

3:begin

writeln ('a=',z/2/sqrt(3)/6:1:3);

writeln ('R1=',z/2:1:3);

writeln ('S=',sqr(z/2/sqrt(3)/6)*sqrt(3)/4:1:3);

end;

4:begin

writeln ('a=',sqrt(z/sqrt(3)/4):1:3);

writeln ('R1=',sqrt(z/sqrt(3)/4)*sqrt(3)/6:1:3);

writeln ('R2=',2*sqrt(z/sqrt(3)/4)*sqrt(3)/6:1:3);

End;

end;

end.

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

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