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

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

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

где t=2.2.

Блок-схема.

НАЧАЛО

x=0.5

x<0.5

Ввод x

Вывод z

Введите x

КОНЕЦ

нет

нет

да

да

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

Program Lab21;

Const

t=2.2;

Var

x,z:real;

Begin

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

Read(x);

If x<0.5 then z:=(ln(exp(3*ln(x)))+sqr(x))/sqrt(x+t)

else if x=0.5 then z:=sqrt(x+t)+1/x

else z:=cos(x)+t*(sqr(sin(x)));

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

End.

Результат выполнения программы:

z(0.1)=-4.548

z(0.5)=3.643

z(1)=2.098

Проверка в математическом редакторе Mathcad.

Задание2. Ввести число от 0 до 5. Вывести его название на английском языке.

Блок-схема.

Введите i

НАЧАЛО

Ввод i

i=3

3

КОНЕЦ

i=0

i=4

4

i=5

i=2

i=1

three

four

five

two

one

zero

нет

нет

нет

да

да

да

нет

нет

да

да

да

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

Program lab22;

Var

i:0..5;

Begin

Writeln('Введите целое число от 0 до 5');

Read(i);

Case i of

0:writeln('zero');

1:writeln('one');

2:writeln('two');

3:writeln('three');

4:writeln('four');

5:writeln('five');

end;

End.

5