3
, , . ( ).
( ) ( - ).
.
. , ; , .
Pascal for.
, , :
for i:= a to b do begin <> end;
for i:= a downto b do begin <> end;
I , ; A, B , , . 1, To; -1 DownTo.
1 : ; I ; I , ; , .. I:= I+1; I<=B ( I>=B) . , I>B (I<B H =-1), , . A>B ( A<B H =-1), .
, . , .
1. 2.
program 2x;
var i:integer;
begin
for i:=1 to 10 do
writeln('2x',i,'=',exp(i*ln(2)):3:0);
end.
: ab=ea*lnb
. , .
.
2. n, x.
:
1) - n x;
2) , sin x, 1; S:= 0;
|
|
3) 1;
4) n, , . 9;
5) sin x;
6) ;
7) 1;
8) .4;
9) S;
10) .
.
program summa;
var s, x, pr: real; n, i: integer;
begin
write(' x: '); readln(n, x);
pr:=1;{ sinx}
s:=0;
for i:=1 to n do
begin
pr:=pr*sin(x); { sin(x)}
s:=s+pr
end;
writeln(' ', s:7:3)
end.
. , , .
1. , , Pascal : , , . .
2. , .. , . , , .
1. 10 . , 15, 15. .
2. 10 . 10 .2. 20 50. , 3, 5.
3. 35 87. , 7 1, 2 5.
4. 1 50. , 5 7.
5. , 4, 6.
6. 100 200, 17.