лабораторная работа / Лабораторная работа №1

Лабораторная работа №1 вариант-11

«Программирование линейных вычислительных процессов на языке Turbo Pascal»

Цель работы: знакомство с основами алгоритмизации и программирования линейных вычислительных процессов на языке Turbo Pascal.

Задание. Вычислить на ЭВМ значение переменных, указанных в таблице, по заданным расчетным формулам и набором исходных данных. На печать вывести значение вводимых исходных данных и результаты вычислений, сопровождая вывод наименованиями выводимых переменных.

F=ln(a+x²)+sin²(x/b)

Z=

a=10.2, b=9.2, c=0.5, x=2.2.

program dura;

var

a,b,c,x,f,z:real;

begin

writeln('vvedite a,b,x,c');

read(a,b,x,c);

f:=ln(a+sqr(x))+sqr(sin(x/b));

z:=exp(-c*x)*((x+sqrt(x+a)))/(x-sqrt(abs(x-b)));

writeln('f=', f:8:3,' z=', z:8:3);

e

F=ln(a+x²)+sin²(x/b)

Z=

nd.

Результат: f=2.350, z=-0.512.