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

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

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

Вариант 20

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

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

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

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

при >0

при <0

где c = 0.5, n = 10

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

нет

да

да

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

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

program lab_2;

const c = 0.5;n=10;

var i,z :real;

Begin

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

Read (i);

if cos((sqr(i)+1)/n)>0 Then z:=c*cos((sqr(i)+1)/n)

else if cos((sqr(i)+1)/n)<0 then z:=sin((sqr(i)+1)/n);

Writeln ('z=',z:1:3);

End.

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

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

program lab_2_2;

var z:real;

i:byte;

Begin

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

Read (i);

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

Read (z);

Case i of

1:begin

writeln ('c=',z*sqrt(2*sqr(z)):1:3);

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

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

End;

2:begin

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

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

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

end;

3:begin

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

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

writeln ('S=',sqr(z):1:3);

end;

4:begin

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

writeln ('c=',2*z/sqr(z):1:3);

writeln ('h=',sqrt(z):1:3);

End;

end;

end.

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

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