Программирование разветвляющихся вычислительных процессов с использованием структуры следования и ветвления

Программирование в среде TURBO PASCAL 7.0

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

Вариант №8

Тема – программирование разветвляющихся вычислительных процессов с использованием структуры следования и ветвления.

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

Выполнил: ________ ст. гр. ВД-03

Кононец Евгений

Проверил:_______ доцент

Журов Г. Н.

Задание 1.

Составить программу вычисления y при произвольных значениях исходных величин.

Решение:

Блок-схема:

 

Программа:

program Zad3;

var t,y:real;

begin

writeln('введите значение t');

readln(t);

if t>2 then y:=t*t+1

       else y:=sin(t*t+3);

writeln('   t=',t:6:3,'   y=',y:6:3);

readln;

end.

Результат:

введите значение t

-465.254

   t=-465.254   y= 0.767

введите значение t

562

   t=562.000   y=315845.000

Задание 2.

Составить программу для вычисления y при произвольных значениях исходных величин.

Решение.

Блок Схема.

 

Программа:

program Zad4;

var x,y:real;

begin

writeln('Введите значение х');

readln(x);

if x<1 then y:=((x*x*(2+x)/(x*x+1))+4+x)

       else

           if x>2 then y:=((x*x*(2+x)/(x*x+1))+x)

                  else y:=((x*x*(2+x)/(x*x+1))+2*x);

writeln ('   x=',x:6:3,'   y=',y:6:3);

readln;

end.

Результат:

Введите значение х

5

   x= 5.000   y=11.731

Введите значение х

1.5

   x= 1.500   y= 5.423

Введите значение х

-5

   x=-5.000   y=-3.885

Задание 3.

Составить программу для вычисления наибольшего из двух указанных величин при произвольных значениях исходных величин, причем каждое выражение вычислять не больше одного раза.

          

Решение:

Блок схема:

Программа:

program Zad5;

var x,y,n,k:real;

begin

writeln('Введите значение х');

readln(x);

k:=(4*x*exp(-x)/(1+x));

n:=((2+x)/(6+exp(-x)));

if k>n then y:=n

       else y:=k;

writeln('   x=',x:6:3,

'   k=',k:6:3,

'   n=',n:6:3,'   y=',y:6:3);

end.

Результат:

5

   x= 5.000   k= 0.022   n= 1.165   y= 0.022

Введите значение х

-2

   x=-2.000   k=59.112   n= 0.000   y= 0.000