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

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

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

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

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

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

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

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

Журов Г. Н.

Задание 1.

Составить программу для вычисления y, z при заданном значении x=0,42 по формуле

Решение:

Блок – схема:

 

Программа:

program Zad1;

var x,y,z,c:real;

begin

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

readln(x);

c:=ln(1+x*x);

y:=abs(x-c);

z:=c/exp(x);

writeln('x=',x:4:2,'   ln(1+x*x)=',c:6:4,'   y=',y:6:4,'   z=',z:6:4);

readln;

end.

Результат:

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

0.42

x=0.42   ln(1+x*x)=0.1625   y=0.2575   z=0.1067

Задание 2.

Составить программу для вычисления z  при заданном значении x=0.5 и p=1.42 по формуле:

Решение:

Блок – схема:

 

Программа:

program Zad2;

var x,p,a,z:real;

begin

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

readln(p,x);

a:=(1+sin(p/x)*sin(p/x));

z:=(x*a+ln(a)/ln(10));

writeln('   x=',x:6:3,'   p=',p:6:3,'   1+sin^2(p/x)',a:6:3,'   z=',z:6:3);

readln;

end.

Результат:

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

1.42

0.5

   x= 0.500   p= 1.420   1+sin^2(p/x) 1.088   z= 0.581