Составить программу вычисления у по формуле
а) способ 1: используются процедуры
Program Pr1a;
Var
x,y: real;{x – исходная величина, y - результат}
Procedure Parametr(x1:real; var a1: real);
begin
a1:= abs(sin(x1));
end;
Begin
Procedure Formula(xy:real; var y1: real);
var a: real;{a- промежуточная величина}
begin
Parametr(xy, a);
y1:= sqrt(cos(a)+ 1) / 4;
end;
Begin
writeln (‘введите х’);
readln(x);
Formula(x,y);
writeln('y=',y:10:8);
readln;
End.
| Действия
| Глобальные
| Локальные
| Формальные параметры
| Фактические параметры
|
| x
| y
| a
| x1
| a1
| xy
| y1
| x
| y
| xy
| a
|
| На экране отображается сообще- ние «введите x»
| 1,4
|
|
|
|
|
|
|
|
|
|
|
| Вызывается процедура
Formula(x,y)
|
|
|
|
|
|
|
| 1,4
|
|
|
|
| Исполняется процедура
Formula(xy,y1):
вызывается процедура
Parametr(xy, a);
исполняется Parametr(x1, a1):
a1:= abs(sin(x1))
завершается Parametr
y1:= sqrt(cos(a)+ 1) / 4
Завершается Formula
На экране отображается сообще-
ние y=0,4358
| _____
_______
____
____
____
____
____
____
____
| _____
_____
_____
_____
_____
_____
_____
_____
0,4358
| _____
_____
_____
_____
_____
_____
0,9854
_____
_____
| _____
_____
_____
_____
1,4__
_____
_____
_____
___
| _____
_____
_____
_____
_____
0,9854
_____
_____
_____
_____
| 1,4
_____
____
____
____
____
____
____
____
____
| _____
_____
_____
_____
_____
_____
_____
0,4358
| _____
_____
_____
_____
_____
_____
_____
_____
_____
| _____
_____
_____
_____
_____
_____
_____
_____
0,4358
| _____
_____
_____
1,4
_____
_____
_____
_____
_____
_____
| _____
_____
_____
_____
_____
_____
0,9854
_____
_____
_____
|
b) способ 2: используются функции
Program Pr1b;
Var x,y: real;{x – исходная величина, y - результат}
Function Parametr (x1:real): real;
begin
Parametr:= abs(sin(x1));
end;
Function Formula(xy:real): real;
var a: real;{a- промежуточная величина}
begin
a:= Parametr (xy);
Formula:= sqrt(cos(a)+ 1) / 4;
end;
Begin
writeln (‘введите х’);
readln(x);
y:=Formula(x);
writeln('y=',y:10:8);
readln;
End.
