, BEGIN END. Pascal, ( GOTO).
Pascal :
BEGIN
BEGIN
BEGIN
END;
END;
END.
BEGIN END , BEGIN END
; .
, .
;;.
()
- , , . . . Pascal: Sin (x) ; cos(x) ; tan(x)- ; ln (x) ; exp (x) - e^x; sqr (x) - x; sqrt(x)- ; abs(x)- x. . , : Sh (x)=(exp (x)-exp (-x)) /2
:=2.5;=0.38. , p=sina cosb/2
Program lab;
Var a,b,p:real;
Begin
a:=2,5;b:=0.38;
p:=sin(a)*cos(b/2);
writeln(a,b,p)
end.
IF()
, . : IF "" Then "1" Else "2"; "" - ; "1" , (True), "2" , (False).
, , .
PROGRAM Minimum;
VAR a, b, min: real;
BEGIN
WRITELN(' ');
READLN(a, b);
IF a<b Then min:=a ELSE min:=b;
WRITELN(min);
END.
PROGRAM Rar;
VAR a, b, p: real;
BEGIN
WRITE(' b=');
READLN(b);
a:=sin(b/2);
IF a<0.3 Then p:=exp(a)+exp(1/3*ln(a+1))
ELSE p:=sin(a/2)/cos(a/2);
WRITELN(p=, p:9:6);
END.