лабораторная работа / вар19 / Лабораторная №2

СОДЕРЖАНИЕ

1 Цель работы. Вариант. Задание 3

2 Графическая схема алгоритма 4

3 Программа на языке Turbo Pascal 5

4 Результаты выполненной работы 6

1 ЦЕЛЬ РАБОТЫ. ВАРИАНТ

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

Вариант №19

Задание.

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

Если t<0.1

Если t=0.1

Если t>0.1

a=2.5

b=0.4

2 ГРАФИЧЕСКАЯ СХЕМА АЛГОРИТМА

Конец

3 ПРОГРАММА НА ЯЗЫКЕ Turbo Pascal

Program lab2_Vika;

UsesCrt;

Const a=2.5; b=0.4;

Var

t,w:real;

Begin

Clrscr;

Writeln(‘введите t’);

Readln(t);

If t<0.1 then w:=SQRT(a*SQR(t)+b*sin(t)+1)

else if t=0.1 then w:=a*t+b

else w:=SQRT(a*SQR(t)+b*cos(t)+1);

Writeln(‘w=’, w:8:3);

End.

4 РЕЗУЛЬТАТЫ ВЫПОЛНЕННОЙ РАБОТЫ

Вводим Получаем

t1=0.01 w=1.002

t2=0.1 w=1.193

t3=0.2 w=1.221

6