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

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

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

Вариант 6

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

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

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

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

при x < a

при x = a

при x > a,

где a = 2.5.

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

нет

нет

да

да

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

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

program lab_2;

const a = 2.5;

var x,w:real;

Begin

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

Read(x);

if x<a Then w:= exp(3*ln(x))*sqrt(x-a)

else if (x=a) Then

w:=x*sin(a*x)

Else

w:=exp(-a*x)*cos(a*x);

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

End.

Задание2: Ввести первую букву названия страны. Вывести название ее столицы.

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

нет

нет

нет

нет

нет

да

да

да

да

да

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

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

program lab_2_2;

var i :char;

Label P;

Begin

Writeln ('Введите букву');

P : Read (i);

Case i of

'Р' : writeln ('Москва');

'Г' : writeln ('Берлин');

'А' : writeln ('Сидней');

'К' : writeln ('Токио');

'Ф' : writeln ('Париж');

End;

End.