.


:




:

































 

 

 

 


.




- :

, .=5,10,15 b=1,5a.

 

 

.

 

 

- - .

 

.

.

 

.

 

.

 

.

 

5. ()

.y=sin(x)+a, x=0.1,a=3.3

x,a
program lin;

var

X,a
x,a,y:real;

begin

y,x,a
1.write(' x,a=');

2. readln(x,a);

3. y:=sin(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. {

 





:


: 2016-04-03; !; : 792 |


:

:

.
==> ...

1758 - | 1614 -


© 2015-2024 lektsii.org - -

: 0.011 .