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