Var X , c , s , y : real ; { описание переменных }

Begin {Начало основного блока}

WriteLn(' Введите значение x');

ReadLn(x) ; { Ввод x }

c := cos(x) ; { Вычисление c }

s := sin(x) ; { Вычисление s }

y := exp(s)*(sqr(c)*c*x-s)/(c*c+1.0) ; { Вычисление y }

WriteLn ;

WriteLn(' x=',x:6:2,' cos(x)=',c:7:4, ' sin(x)=',s:7:4,'

y=',y:8:4); {Печать значений x, cos(x), sin(x), y};

End. {Конец программы}

6. Вид печати:

x= -0.13 cos(x)= 0.9916 sin(x)=-0.1296 y= 0.0013

Задача 2. Составить программу для вычисления z при заданных значениях x = 5,1 и t = 0,1 по формуле

Напечатать x, t, z.

Решение.

1. Расчётные формулы:

2. Тест для отладки программы:

x = 5,1 , t=0,1, a = ln(x-1) =ln(5,1-1)=ln(4,1)=1,410987; 0,40657;

36,02918-0,01=36,01918;

3. Исходные данные: x = 5,1==> 5,1;

t = 0,1==> 0,1.

4. Блок - схема:

5. Программа:

Program Prim2 ; { Линейный вычислительный процесс}

Var X , t , a , b, c, z : real ; { Описание переменных }

Begin {Начало основного блока}

WriteLn(' Введите значение x,t');

ReadLn(x,t) ; { Ввод x,t }

a := ln(x-1) ; { Вычисление a }

b := exp(t-1) ; { Вычисление b }

c := x/abs(x)*exp(2.2*LN(abs(x)))-sqr(t) ; { Вычисление c }

z := (2/3*a-b)/c; { Вычисление z }

WriteLn ;

WriteLn(' x=',x:3:1,' t=',t:3:1,' z=',z:8:6); {Печать значений x , t ,z }

End. { Конец программы}

6. Вид печати:

x=5.1 t=0.1 z=0.078811

Варианты задания

Задача 1. Составить программу для вычисления и печати указанных величин при заданных значениях исходных величин (табл. 1), причём каждое подвыражение должно вычисляться по одному разу. Для обеспечения последнего условия ввести в случае необходимости промежуточные переменные.

Таблица 1

Вариант	Формула	Исходные данные	Печатаемые величины
1.		x = -0,41
2.		t = 0,9	t, , b
3.		x = 1,5	x, lnx, y
4.		x = 0,17
5.		x = -0,3
6.		x = 0,62
7.		t = 2,85
8.		x = -0,42
9.		x = 0,36
10.		x = -0,27

Задача 2. Составить программу для вычисления и печати указанных величин при заданных значениях исходных величин (табл. 2).

Таблица 2

Вариант	Формула	Исходные данные	Печатаемые величины
1.		x = 0,56 a = 2
2.		x = 0,8 a = 3	x, a, y
3.		b = 1,7 t = 0,73	b, t, y
4.		x = 4,21 a = 1,8	x , a, z
5.		x = 2,8 b = 4,1	x, b, s
6.		x = -2,9 a = 0,7	x, a, y
7.		x = 2,41 a = 4,5	x, a, y
8.		p = 1,42 x = 0,5
9.		x = 12 t = 8	x,t, y
10.		x = 2,5 t = 3,9

7