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

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

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

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

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

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

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

при 1 ≤ t ≤ 2

при t < 1

при t > 2,

где a = - 0,5; b = 2.

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

нет

нет

да

да

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

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

program lab_2;

сonst a = -0.5; b = 2;

var t, y :real;

Begin

Writeln ('‚ўҐ¤ЁвҐ t');

Read (t);

if (t>=1) and (t<=2) Then y:=a*sqr(t)*ln(t)

else if (t<1) Then

y:=1

Else

y:=Exp(a*t)*cos(b*t);

Write ('y=',y:1:3);

Read (t);

End.

1. Задание2: В зависимости от того введена ли открытая скобка или закрытая, напечатать "открытая круглая скобка" или "закрытая фигурная скобка". (Учитывать круглые, квадратные, фигурные скобки).

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

нет

нет

нет

нет

нет

нет

да

да

да

да

да

да

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

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

program lab_2_2;

var x :char;

Label P;

Begin

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

P : Read (x);

Case x of

'(' : writeln ('Otkritaia Kruglaia Skobka');

')' : writeln ('Zakritaia Kruglaia Skobka');

'[' : writeln ('Otkritaia Kvadrtnaia Skobka');

']' : writeln ('Zakritaia Kvadrtnaia Skobka');

'{' : writeln ('Otkritaia Figurnaia Skobka');

'}' : writeln ('Zakritaia Figurnaia Skobka');

goto P;

End;

End.