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

СОДЕРЖАНИЕ

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 lab3_Vika;

Const a=2.5; b=0.4; deltax=0.2;

Var

t, w, t0, tk, dt:real;

Begin

Writeln(‘введите t0, tk, dt’);

Read(to, tk, dt);

Writeln(‘таблица функций w(t)’);

Writeln(‘t w(t)’);

t:=t0;

While t<tk do

begin

if t>0.1 then w:=SQRT(a*SQR(t)+b*cos(t)+1)

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

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

Writeln(t:10:3,’ ‘,w:10:3);

t:=t+deltax;

end;

End.

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

Вводим to=-1, tk=1, dt=0.2

Получаем

t w

-1.000 1.779

-0.800 1.521

-0.600 1.294

-0.400 1.115

-0.200 1.010

-0.000 1.000

0.200 1.221

0.400 1.330

0.600 1.493

0.800 1.697

1.000 1.928

7