- :
, .=5,10,15 b=1,5a.
.
- - .
.
.
.
.
.
.y=sin(x)+a, x=0.1,a=3.3
x,a |
var
X,a |
begin
y,x,a |
2. readln(x,a);
4.writeln(y=', y:1:2, x=, x:3:1, a=, a:3:1);
end.
,
.
()
, , .
(), , ( ), (), , ( ). :
if < ()> then < 1> else < 2>
()
if < ()> then < 1>
a-b, a>b
y=a^2-b^2,a<b
a^2a=b
program rasv;var a,b,y:real;
begin
writeln(a,b');
readln(a,b);
if a>b then y:=a-b else
if a<b then y:=sqr(a)-sqr(b)
else y:=sqr(a);
writeln(y=, y:1:2);
end.
. if( else, . )
If a>b then y:=a-b;
If a<b then y:=sqr(a)-sqr(b);
If a-b then y:=sqr(a)
, .
()
(). , . - , .
WHILE
while:
while <> do <>;
while, do ( [ ] );
< > ( b <= 5);
|
|
<> - Pascal,
. .
: p5:=sin(a1/b)
WHILE
1) ( );
2) (-
) , -
, -
do;
3) 1
1, 2;
4) 1, 2 ,
( )
,
.
Program Primer; { }
Var { }
a1,x,y1: real; { }
begin { }
a1=1.2; x=2;
while b<=6 do
begin
y1:=cos(a1/x); { }
writeln(x:8:3,y1:10:3);{ b p5}
x:=x + 0.5;
end;
end. {